From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 15 Feb 1992 07:09:38 +0000 (+0000)
Subject: Change invoke-interface and invoke-interface/call to use
X-Git-Tag: 20090517-FFI~9738
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3b2fdb20f4e94686d133ce56d5c157f5b816f983;p=mit-scheme.git

Change invoke-interface and invoke-interface/call to use
MOVB instead of MOVW.
---

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