From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 8 Jan 2004 17:52:34 +0000 (+0000)
Subject: Fix thinko in previous change.
X-Git-Tag: 20090517-FFI~1733
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=634e2d4da554a89c6f8d720d2de8df97356f0b8b;p=mit-scheme.git

Fix thinko in previous change.
---

diff --git a/v7/src/microcode/primutl.c b/v7/src/microcode/primutl.c
index 93c05957a..3579d2bca 100644
--- a/v7/src/microcode/primutl.c
+++ b/v7/src/microcode/primutl.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: primutl.c,v 9.77 2004/01/07 05:30:44 cph Exp $
+$Id: primutl.c,v 9.78 2004/01/08 17:52:34 cph Exp $
 
 Copyright 1993,2000,2001,2004 Massachusetts Institute of Technology
 
@@ -149,11 +149,13 @@ static unsigned long prim_table_size = 0;
 {									\
   if (table == 0)							\
     {									\
-      table = (OS_malloc (new_size * (sizeof (elt_t))));		\
       static_elt_t * from = (& (static_table [0]));			\
       static_elt_t * from_end						\
 	= (& (static_table [MAX_STATIC_PRIMITIVE + 1]));		\
-      elt_t * to = ((elt_t *) table);					\
+      elt_t * to;							\
+									\
+      table = (OS_malloc (new_size * (sizeof (elt_t))));		\
+      to = ((elt_t *) table);						\
       while (from < from_end)						\
 	(*to++) = ((elt_t) (*from++));					\
     }									\