From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 18 Mar 1991 21:08:58 +0000 (+0000)
Subject: Fix bug in Clear_Memory introduced when constant space overwriting
X-Git-Tag: 20090517-FFI~10839
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f833eb11098b70760d625b7c37a0268218699ae0;p=mit-scheme.git

Fix bug in Clear_Memory introduced when constant space overwriting
hack was added.  It was fixed in memmag.c, but not here!
---

diff --git a/v7/src/microcode/bchmmg.c b/v7/src/microcode/bchmmg.c
index f4c6e5dc4..8fee8c77c 100644
--- a/v7/src/microcode/bchmmg.c
+++ b/v7/src/microcode/bchmmg.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchmmg.c,v 9.58 1991/02/26 21:14:40 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/bchmmg.c,v 9.59 1991/03/18 21:08:58 jinx Exp $
 
 Copyright (c) 1987-1991 Massachusetts Institute of Technology
 
@@ -199,9 +199,9 @@ DEFUN (Clear_Memory, (Our_Heap_Size, Our_Stack_Size, Our_Constant_Size),
   SET_MEMTOP (Heap_Top - GC_Reserve);
   Free = Heap_Bottom;
   Constant_Top = (Constant_Space + Our_Constant_Size);
+  Initialize_Stack ();
   Free_Constant = Constant_Space;
   SET_CONSTANT_TOP ();
-  Initialize_Stack ();
   return;
 }