[Guile-commits] GNU Guile branch, master, updated. release_1-9-10-107-gb79ba0b

[Ludovic Courtès]

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=b79ba0b01e7dc89d2ba8da2c5cf4e200f4bb5de1

The branch, master has been updated
       via  b79ba0b01e7dc89d2ba8da2c5cf4e200f4bb5de1 (commit)
      from  36b5e394072c94b062a69a6d77b418e16ce70fce (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 b79ba0b01e7dc89d2ba8da2c5cf4e200f4bb5de1
Author: Ludovic Courtès <address@hidden>
Date:   Fri May 7 15:59:50 2010 +0200

    Attempt to guarantee 8-byte alignment of on-stack frame objects.
    
    * libguile/vm.c (vm_dispatch_hook): Make FRAME a union with a `double'
      member.

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

Summary of changes:
 libguile/vm.c |   10 +++++++---
 1 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/libguile/vm.c b/libguile/vm.c
index 4f766cb..1f3e1f8 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -186,7 +186,11 @@ vm_dispatch_hook (SCM vm, int hook_num)
   struct scm_vm *vp;
   SCM hook;
   struct scm_frame c_frame;
-  scm_t_cell frame;
+  union
+  {
+    double alignment;
+    scm_t_cell cell;
+  } frame;
   SCM args[1];
 
   vp = SCM_VM_DATA (vm);
@@ -211,8 +215,8 @@ vm_dispatch_hook (SCM vm, int hook_num)
   c_frame.sp = vp->sp;
   c_frame.ip = vp->ip;
   c_frame.offset = 0;
-  frame.word_0 = SCM_PACK (scm_tc7_frame);
-  frame.word_1 = PTR2SCM (&c_frame);
+  frame.cell.word_0 = SCM_PACK (scm_tc7_frame);
+  frame.cell.word_1 = PTR2SCM (&c_frame);
   args[0] = PTR2SCM (&frame);
 
   scm_c_run_hookn (hook, args, 1);


hooks/post-receive
-- 
GNU Guile