1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00

Revert "attempt to clear stale references on VM C stack"

This reverts commit 04b2d77354.

Since it wasn't fixing the "lexical vars are collectable" test, it added
complexity with no benefit.
This commit is contained in:
Andy Wingo 2012-01-29 22:24:25 +01:00
parent 5e80f2cea3
commit a39b116f00
4 changed files with 10 additions and 229 deletions

View file

@ -1,4 +1,4 @@
/* Copyright (C) 2001, 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
/* Copyright (C) 2001, 2009, 2010, 2011 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@ -152,8 +152,6 @@
#define ASSERT_BOUND(x)
#endif
#define DEAD(v) v = SCM_UNDEFINED
#if VM_CHECK_OBJECT
#define SET_OBJECT_COUNT(n) object_count = n
#else
@ -327,7 +325,6 @@ do \
CONS (l, x, l); \
} \
PUSH (l); \
DEAD (l); \
} while (0)
/* The opposite: push all of the elements in L onto the list. */
@ -353,9 +350,7 @@ do { \
CONS (l, o, l); \
POP (o); \
} \
DEAD (o); \
PUSH (l); \
DEAD (l); \
} while (0)
#define POP_CONS_MARK() \
@ -368,9 +363,7 @@ do { \
CONS (l, o, l); \
POP (o); \
} \
DEAD (o); \
PUSH (l); \
DEAD (l); \
} while (0)