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 5be3f5887ba2a3289144ebc74da134904321f264..81b5a5ff6d7b5a2b07ce9639db43c1b286ae205b 100644 (file)
--- 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)))
 \f
 (let-syntax ((define-entries