diff options
author | Andy Wingo <wingo@pobox.com> | 2012-01-29 22:24:25 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-01-29 22:30:21 +0100 |
commit | a39b116f0071629082b0dc09ea782e321ee313ca (patch) | |
tree | 504196a3b93f5b4b16caad6c543318096ffbbff2 /libguile/vm-i-loader.c | |
parent | 5e80f2cea30e18e58b9aaf4e95acf8ccfd1eb45f (diff) | |
download | guile-a39b116f0071629082b0dc09ea782e321ee313ca.tar.gz |
Revert "attempt to clear stale references on VM C stack"
This reverts commit 04b2d773548c57b6eadd1808a8d15cce47af9630.
Since it wasn't fixing the "lexical vars are collectable" test, it added
complexity with no benefit.
Diffstat (limited to 'libguile/vm-i-loader.c')
-rw-r--r-- | libguile/vm-i-loader.c | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/libguile/vm-i-loader.c b/libguile/vm-i-loader.c index 19f527135..6fa8eb2ea 100644 --- a/libguile/vm-i-loader.c +++ b/libguile/vm-i-loader.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2001,2008,2009,2010,2011,2012 Free Software Foundation, Inc. +/* Copyright (C) 2001,2008,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 @@ -73,9 +73,6 @@ VM_DEFINE_LOADER (104, load_program, "load-program") PUSH (scm_make_program (objcode, objs, SCM_BOOL_F)); - DEAD (objs); - DEAD (objcode); - ip += len; NEXT; @@ -87,7 +84,6 @@ VM_DEFINE_INSTRUCTION (105, link_now, "link-now", 0, 1, 1) POP (what); SYNC_REGISTER (); PUSH (resolve_variable (what, scm_current_module ())); - DEAD (what); NEXT; } @@ -99,8 +95,6 @@ VM_DEFINE_LOADER (106, load_array, "load-array") POP2 (shape, type); SYNC_REGISTER (); PUSH (scm_from_contiguous_typed_array (type, shape, ip, len)); - DEAD (type); - DEAD (shape); ip += len; NEXT; } |