From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 20 Aug 1987 21:16:44 +0000 (+0000)
Subject: Minor change to satisfy the VMS C compiler which does not like arrays
X-Git-Tag: 20090517-FFI~13129
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=08bf751a32ae1f791951f355fdd5bdccbc565b83;p=mit-scheme.git

Minor change to satisfy the VMS C compiler which does not like arrays
in registers.
---

diff --git a/v7/src/microcode/regex.c b/v7/src/microcode/regex.c
index 08c884818..69c5c7f3c 100644
--- a/v7/src/microcode/regex.c
+++ b/v7/src/microcode/regex.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/regex.c,v 1.3 1987/07/21 04:33:17 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/regex.c,v 1.4 1987/08/20 21:16:44 jinx Rel $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -1009,8 +1009,10 @@ int name (pattern_start, pattern_end, buffer, registers,		\
   fast unsigned char *match_pc;						\
   fast unsigned char *match_limit;					\
   fast unsigned char *gap_limit;					\
-  fast unsigned char fastmap[MAX_ASCII];				\
+  fast unsigned char *fastmap;						\
+  unsigned char fastmap_array[MAX_ASCII];				\
 									\
+  fastmap = &fastmap_array[0];						\
   translation = (buffer -> translation);				\
   can_be_null =								\
     (re_compile_fastmap							\