guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, master, updated. release_1-9-8-100-gf7


From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. release_1-9-8-100-gf7cea64
Date: Tue, 16 Mar 2010 14:55:53 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=f7cea64566407151de4ff665ec787fca927b908f

The branch, master has been updated
       via  f7cea64566407151de4ff665ec787fca927b908f (commit)
      from  db5034ab89426edacf5229e7e6b37cb0495cd287 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit f7cea64566407151de4ff665ec787fca927b908f
Author: Andy Wingo <address@hidden>
Date:   Tue Mar 16 15:55:24 2010 +0100

    more vm gc fixen
    
    * libguile/vm-i-system.c (continuation_call): Sync before calling a
      continuation. Shouldn't much matter, but it seems like a good idea.
      (wind-fluids): More importantly, sync before allocating a with-fluids
      object.

-----------------------------------------------------------------------

Summary of changes:
 libguile/vm-i-system.c |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c
index e21a910..27c6c33 100644
--- a/libguile/vm-i-system.c
+++ b/libguile/vm-i-system.c
@@ -983,6 +983,7 @@ VM_DEFINE_INSTRUCTION (89, continuation_call, 
"continuation-call", 0, -1, 0)
   SCM contregs;
   POP (contregs);
 
+  SYNC_ALL ();
   scm_i_check_continuation (contregs);
   vm_return_to_continuation (scm_i_contregs_vm (contregs),
                              scm_i_contregs_vm_cont (contregs),
@@ -1564,6 +1565,7 @@ VM_DEFINE_INSTRUCTION (90, wind_fluids, "wind-fluids", 1, 
-1, 0)
   if (sp - 2*n < SCM_FRAME_UPPER_ADDRESS (fp))
     goto vm_error_stack_underflow;
 
+  SYNC_REGISTER ();
   wf = scm_i_make_with_fluids (n, sp + 1 - 2*n, sp + 1 - n);
   scm_i_swap_with_fluids (wf, dynstate);
   scm_i_set_dynwinds (scm_cons (wf, scm_i_dynwinds ()));


hooks/post-receive
-- 
GNU Guile




reply via email to

[Prev in Thread] Current Thread [Next in Thread]