From 9c5513a49ff7a85087d9b4495fc083c14a9f3315 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 1 Aug 1989 17:19:23 +0000 Subject: [PATCH] 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. --- v7/src/compiler/machines/vax/lapgen.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 2.25.1