From 3b2fdb20f4e94686d133ce56d5c157f5b816f983 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 15 Feb 1992 07:09:38 +0000 Subject: [PATCH] Change invoke-interface and invoke-interface/call to use MOVB instead of MOVW. --- v7/src/compiler/machines/i386/lapgen.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/machines/i386/lapgen.scm b/v7/src/compiler/machines/i386/lapgen.scm index 5be3f5887..81b5a5ff6 100644 --- a/v7/src/compiler/machines/i386/lapgen.scm +++ b/v7/src/compiler/machines/i386/lapgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/lapgen.scm,v 1.11 1992/02/13 19:03:55 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/lapgen.scm,v 1.12 1992/02/15 07:09:38 jinx Exp $ $MC68020-Header: /scheme/compiler/bobcat/RCS/lapgen.scm,v 4.42 1991/05/28 19:14:26 jinx Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -413,11 +413,11 @@ MIT in each case. |# quotient remainder modulo)) (define-integrable (invoke-interface code) - (LAP (MOV W (R ,eax) (& ,code)) + (LAP (MOV B (R ,eax) (& ,code)) (JMP ,entry:compiler-scheme-to-interface))) (define-integrable (invoke-interface/call code) - (LAP (MOV W (R ,eax) (& ,code)) + (LAP (MOV B (R ,eax) (& ,code)) (CALL ,entry:compiler-scheme-to-interface/call))) (let-syntax ((define-entries -- 2.25.1