From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 1 Aug 1989 17:19:23 +0000 (+0000)
Subject: Bug: code to extract ASCII from a char object was assuming that the
X-Git-Tag: 20090517-FFI~11913
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9c5513a49ff7a85087d9b4495fc083c14a9f3315;p=mit-scheme.git

Bug: code to extract ASCII from a char object was assuming that the
machine was big-endian, rather than little-endian, and thus extracted
the type code rather than the ASCII code.
---

diff --git a/v7/src/compiler/machines/vax/lapgen.scm b/v7/src/compiler/machines/vax/lapgen.scm
index c57484068..5dae89eb1 100644
--- a/v7/src/compiler/machines/vax/lapgen.scm
+++ b/v7/src/compiler/machines/vax/lapgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/lapgen.scm,v 4.7 1989/05/21 03:55:03 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/lapgen.scm,v 4.8 1989/08/01 17:19:23 cph Exp $
 $MC68020-Header: lapgen.scm,v 4.19 89/01/18 13:49:56 GMT cph Exp $
 
 Copyright (c) 1987, 1989 Massachusetts Institute of Technology
@@ -425,7 +425,8 @@ MIT in each case. |#
 	     (pseudo-register-offset register))))))
 
 (define-integrable (indirect-char/ascii-reference! register offset)
-  (indirect-byte-reference! register (+ 3 (* offset 4))))
+  (indirect-byte-reference! register (* offset 4)))
+
 (define (char->signed-8-bit-immediate character)
   (let ((ascii (char->ascii character)))
     (if (< ascii 128)