From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 23 Jan 1990 08:30:51 +0000 (+0000)
Subject: Fix floating alignment.
X-Git-Tag: 20090517-FFI~11567
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=69f72c6467f95b0133f510086d07ad2e37d8e6d0;p=mit-scheme.git

Fix floating alignment.
---

diff --git a/v7/src/microcode/psbtobin.c b/v7/src/microcode/psbtobin.c
index deda5675d..1678b104a 100644
--- a/v7/src/microcode/psbtobin.c
+++ b/v7/src/microcode/psbtobin.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/psbtobin.c,v 9.39 1989/09/24 15:24:26 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/psbtobin.c,v 9.40 1990/01/23 08:30:51 jinx Exp $
 
 Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
@@ -1012,9 +1012,8 @@ Read_Header_and_Allocate()
 	    program_name, Size);
     quit(1);
   }
-  Heap += HEAP_BUFFER_SPACE;
-  INITIAL_ALIGN_FLOAT(Heap);
-  return (Size - HEAP_BUFFER_SPACE);
+  Heap += (TRAP_MAX_IMMEDIATE + 1);
+  return (Size - (TRAP_MAX_IMMEDIATE + 1));
 }
 
 void
@@ -1031,6 +1030,7 @@ do_it()
 
   Heap_Table = &Heap[0];
   Heap_Base = &Heap_Table[Heap_Objects];
+  ALIGN_FLOAT (Heap_Base);
   Heap_Object_Base =
     Read_External(Heap_Objects, Heap_Table, Heap_Base);
 
diff --git a/v8/src/microcode/psbtobin.c b/v8/src/microcode/psbtobin.c
index 98823d9c7..d18ab19f6 100644
--- a/v8/src/microcode/psbtobin.c
+++ b/v8/src/microcode/psbtobin.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/psbtobin.c,v 9.39 1989/09/24 15:24:26 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/psbtobin.c,v 9.40 1990/01/23 08:30:51 jinx Exp $
 
 Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 
@@ -1012,9 +1012,8 @@ Read_Header_and_Allocate()
 	    program_name, Size);
     quit(1);
   }
-  Heap += HEAP_BUFFER_SPACE;
-  INITIAL_ALIGN_FLOAT(Heap);
-  return (Size - HEAP_BUFFER_SPACE);
+  Heap += (TRAP_MAX_IMMEDIATE + 1);
+  return (Size - (TRAP_MAX_IMMEDIATE + 1));
 }
 
 void
@@ -1031,6 +1030,7 @@ do_it()
 
   Heap_Table = &Heap[0];
   Heap_Base = &Heap_Table[Heap_Objects];
+  ALIGN_FLOAT (Heap_Base);
   Heap_Object_Base =
     Read_External(Heap_Objects, Heap_Table, Heap_Base);