From ae1901a49533672a25d81e75c45f9a04ebc8eabf Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 12 May 1988 22:28:29 +0000 Subject: [PATCH] Conditionalize phase error test so that it is ignored if FLOATING_ALIGNMENT is defined. This will eventually be fixed correctly. --- v7/src/microcode/purify.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/v7/src/microcode/purify.c b/v7/src/microcode/purify.c index cb336b2a1..3fae22fec 100644 --- a/v7/src/microcode/purify.c +++ b/v7/src/microcode/purify.c @@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising, promotional, or sales literature without prior written consent from MIT in each case. */ -/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/purify.c,v 9.34 1988/05/05 08:42:17 cph Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/purify.c,v 9.35 1988/05/12 22:28:29 cph Exp $ * * This file contains the code that copies objects into pure * and constant space. @@ -462,12 +462,14 @@ Pointer Info; Recomputed_Length = ((Free_Constant - New_Object) - 4); *Free_Constant++ = Make_Non_Pointer(TC_MANIFEST_SPECIAL_NM_VECTOR, 1); *Free_Constant++ = Make_Non_Pointer(END_OF_BLOCK, (Recomputed_Length + 5)); +#ifndef FLOATING_ALIGNMENT if (Length > Recomputed_Length) { fprintf(stderr, "\nPurify phase error %x, %x\n", Length, Recomputed_Length); Microcode_Termination(TERM_EXIT); } +#endif *New_Object++ = Make_Non_Pointer(TC_MANIFEST_SPECIAL_NM_VECTOR, Pure_Length); *New_Object = Make_Non_Pointer(PURE_PART, (Recomputed_Length + 5)); -- 2.25.1