Fix floating alignment.

diff --git a/v7/src/microcode/psbtobin.c b/v7/src/microcode/psbtobin.c
index deda5675d3d9a99b4ec152a26b8994a59785c9c5..1678b104ab838b05abdf851788a27fe8c4ff0e82 100644 (file)
--- 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));
 }
 \f
 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 98823d9c7db0eecb57bc7bb27cdc015392fc7f9e..d18ab19f6476dbfff85069698a53b1b399fde456 100644 (file)
--- 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));
 }
 \f
 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);