From 69f72c6467f95b0133f510086d07ad2e37d8e6d0 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 23 Jan 1990 08:30:51 +0000 Subject: [PATCH] Fix floating alignment. --- v7/src/microcode/psbtobin.c | 8 ++++---- v8/src/microcode/psbtobin.c | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) 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); -- 2.25.1