From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 12 Apr 1990 21:12:22 +0000 (+0000)
Subject: Fix a bug in BIT_STRING_INDEX_PAIR_TO_INDEX for machines with vax byte
X-Git-Tag: 20090517-FFI~11438
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=15fa13ea67193941ded2f8f5f8b94fc9fd7aa0a4;p=mit-scheme.git

Fix a bug in BIT_STRING_INDEX_PAIR_TO_INDEX for machines with vax byte
order.
---

diff --git a/v7/src/microcode/bitstr.h b/v7/src/microcode/bitstr.h
index bb985f0cd..6714d3091 100644
--- a/v7/src/microcode/bitstr.h
+++ b/v7/src/microcode/bitstr.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bitstr.h,v 1.6 1989/09/20 23:06:15 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/bitstr.h,v 1.7 1990/04/12 21:12:22 jinx Rel $
 
-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
@@ -101,7 +101,7 @@ The "size in bits" is a C "long" integer.
   ((BIT_STRING_FIRST_WORD + 1) + ((index) / OBJECT_LENGTH))
 
 #define BIT_STRING_INDEX_PAIR_TO_INDEX(string, word, bit)		\
-  (((word) * OBJECT_LENGTH) + (bit))
+  ((((word) - (BIT_STRING_FIRST_WORD + 1)) * OBJECT_LENGTH) + (bit))
 
 #define READ_BITS_PTR(object, offset, end)				\
   (MEMORY_LOC								\