From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 23 Oct 2002 02:03:13 +0000 (+0000)
Subject: Rewrite loop in Prim_microcode_library_path to work around bug in IBM
X-Git-Tag: 20090517-FFI~2147
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=88fdb78838109386f94bf90441658c7f8b424543;p=mit-scheme.git

Rewrite loop in Prim_microcode_library_path to work around bug in IBM
C compiler 3.6.5.
---

diff --git a/v7/src/microcode/boot.c b/v7/src/microcode/boot.c
index 90718fe4b..9a8b2bba1 100644
--- a/v7/src/microcode/boot.c
+++ b/v7/src/microcode/boot.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: boot.c,v 9.107 2002/07/02 20:49:05 cph Exp $
+$Id: boot.c,v 9.108 2002/10/23 02:03:13 cph Exp $
 
 Copyright (c) 1988-2002 Massachusetts Institute of Technology
 
@@ -647,11 +647,11 @@ DEFINE_PRIMITIVE ("MICROCODE-LIBRARY-PATH", Prim_microcode_library_path, 0, 0, 0
     CONST char ** scan = option_library_path;
     CONST char ** end = option_library_path;
     while (1)
-      if ((*end++) == 0)
-	{
-	  end -= 1;
+      {
+	if ((*end) == 0)
 	  break;
-	}
+	end += 1;
+      }
     {
       SCHEME_OBJECT result =
 	(allocate_marked_vector (TC_VECTOR, (end - scan), 1));