From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 16 Jul 2005 03:46:42 +0000 (+0000)
Subject: Fix problem with decrementing of string length variable.
X-Git-Tag: 20090517-FFI~1248
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0fd85311372f171cd01dd82778b106756790be98;p=mit-scheme.git

Fix problem with decrementing of string length variable.
---

diff --git a/v7/src/microcode/syntax.c b/v7/src/microcode/syntax.c
index 6f08a6e85..c4b5cd918 100644
--- a/v7/src/microcode/syntax.c
+++ b/v7/src/microcode/syntax.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: syntax.c,v 1.29 2005/07/15 05:31:09 cph Exp $
+$Id: syntax.c,v 1.30 2005/07/16 03:46:42 cph Exp $
 
 Copyright 1987,1988,1989,1991,1993,1996 Massachusetts Institute of Technology
 Copyright 2000,2004,2005 Massachusetts Institute of Technology
@@ -144,9 +144,10 @@ DEFINE_PRIMITIVE ("STRING->SYNTAX-ENTRY", Prim_string_to_syntax_entry, 1, 1, 0)
   length = (STRING_LENGTH (ARG_REF (1)));
   scan = (STRING_LOC ((ARG_REF (1)), 0));
 
-  if ((length--) > 0)
+  if (length > 0)
     {
       unsigned long c = (*scan++);
+      length -= 1;
       if (c >= 0200) error_bad_range_arg (1);
       result = (syntax_spec_code[c]);
       if (result == ILLEGAL) error_bad_range_arg (1);
@@ -154,9 +155,10 @@ DEFINE_PRIMITIVE ("STRING->SYNTAX-ENTRY", Prim_string_to_syntax_entry, 1, 1, 0)
   else
     result = ((unsigned long) syntaxcode_whitespace);
 
-  if ((length--) > 0)
+  if (length > 0)
     {
       unsigned long c = (*scan++);
+      length -= 1;
       if (c != ' ') result |= (c << 4);
     }