From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 11 Dec 1993 20:32:23 +0000 (+0000)
Subject: fasdump_compiled_entry was not aligning compiled-code blocks to
X-Git-Tag: 20090517-FFI~7374
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=01e81daed8b32aae2175ec4ebf57f914ca40c4bc;p=mit-scheme.git

fasdump_compiled_entry was not aligning compiled-code blocks to
floating-point boundaries as it copied them to the output file.
---

diff --git a/v7/src/microcode/bchdmp.c b/v7/src/microcode/bchdmp.c
index bd49e48f4..de62cca64 100644
--- a/v7/src/microcode/bchdmp.c
+++ b/v7/src/microcode/bchdmp.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: bchdmp.c,v 9.76 1993/12/07 20:35:50 gjr Exp $
+$Id: bchdmp.c,v 9.77 1993/12/11 20:32:23 gjr Exp $
 
 Copyright (c) 1987-1993 Massachusetts Institute of Technology
 
@@ -222,6 +222,7 @@ static Boolean compiled_code_present_p;
     SCHEME_OBJECT * Saved_Old = Old;					\
 									\
     fasdump_remember_to_fix (Old, (* Old));				\
+    FLOAT_ALIGN_FREE (To_Address, To);					\
     New_Address = (MAKE_BROKEN_HEART (To_Address));			\
     copy_vector (&success);						\
     if (!success)							\