Fix syntax of MOVZX instruction in LOAD-CHAR-INTO-REGISTER.

Thanks, mejja.

We need to check this stuff at compile-time...blahhh.

diff --git a/src/compiler/machines/x86-64/rules1.scm b/src/compiler/machines/x86-64/rules1.scm
index 7f47f4483082723a5eb7976d6d84c172fcd5f769..651fc8c49df756760102af4409f538e0828a4250 100644 (file)
--- a/src/compiler/machines/x86-64/rules1.scm
+++ b/src/compiler/machines/x86-64/rules1.scm
@@ -459,7 +459,7 @@ USA.
 (define (load-char-into-register type source target)
   (let ((target (target-register-reference target)))
     (cond ((zero? type)
-          (LAP (MOVZX B ,target ,source)))
+          (LAP (MOVZX Q ,target B ,source)))
          (else
           (LAP ,@(load-non-pointer target type 0)
                (MOV B ,target ,source))))))