From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 3 Apr 1990 19:53:47 +0000 (+0000)
Subject: Eliminate dependency on byte order from BIT-SUBSTRING-FIND-NEXT-SET-BIT.
X-Git-Tag: 20090517-FFI~11462
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e17a20b2f8e649b052a8348ff37e3ad89b9a0264;p=mit-scheme.git

Eliminate dependency on byte order from BIT-SUBSTRING-FIND-NEXT-SET-BIT.
Use INC_BIT_STR_PTR rather than pre-decrementing.
---

diff --git a/v7/src/microcode/bitstr.c b/v7/src/microcode/bitstr.c
index f6abe3dc3..6e9525707 100644
--- a/v7/src/microcode/bitstr.c
+++ b/v7/src/microcode/bitstr.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bitstr.c,v 9.40 1989/09/20 23:06:09 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bitstr.c,v 9.41 1990/04/03 19:53:47 jinx Exp $
 
-Copyright (c) 1987, 1988, 1989 Massachusetts Institute of Technology
+Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -889,11 +889,15 @@ DEFINE_PRIMITIVE ("BIT-SUBSTRING-FIND-NEXT-SET-BIT", Prim_bitstr_find_next_set_b
     {
       FIND_NEXT_SET_LOOP (bit);
     }
-  while ((--word) > end_word)
+  INC_BIT_STRING_PTR (word);
+  while (word > end_word)
+  {
     if ((* (INC_BIT_STRING_PTR (scan))) != 0)
       {
 	FIND_NEXT_SET_LOOP (0);
       }
+    INC_BIT_STRING_PTR (word);
+  }
   if (((* (INC_BIT_STRING_PTR (scan))) &
        ((end_bit == OBJECT_LENGTH) ? (~ 0) : (LOW_MASK (end_bit))))
       != 0)