From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 30 Oct 1993 18:11:31 +0000 (+0000)
Subject: Fix braino: Multiplying compiled_entries_size by a constant (or
X-Git-Tag: 20090517-FFI~7640
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=78bdd470e16a10d8764b779516f81065ec337ab7;p=mit-scheme.git

Fix braino: Multiplying compiled_entries_size by a constant (or
initializing to a constant) does not guarantee that the table is large
enough for the current batch of entries.
---

diff --git a/v7/src/microcode/cmpauxmd/c.c b/v7/src/microcode/cmpauxmd/c.c
index ff5fcc666..022473b78 100644
--- a/v7/src/microcode/cmpauxmd/c.c
+++ b/v7/src/microcode/cmpauxmd/c.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: c.c,v 1.8 1993/10/30 17:53:48 gjr Exp $
+$Id: c.c,v 1.9 1993/10/30 18:11:31 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -213,6 +213,9 @@ DEFUN (declare_compiled_code,
     unsigned long new_entries_size = ((compiled_entries_size == 0)
 				      ? 100
 				      : ((compiled_entries_size * 3) / 2));
+    if (new_entries_size <= n_dispatch)
+      new_entries_size = (n_dispatch + 1);
+
     new_entries = ((struct compiled_entry_s *)
 		   (lrealloc (compiled_entries,
 			      (new_entries_size