Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv11934

Modified Files: compiler.lisp Log Message: Specify asm-x86:*cpu-mode* :32-bit.

--- /project/movitz/cvsroot/movitz/compiler.lisp 2008/02/23 22:36:21 1.193 +++ /project/movitz/cvsroot/movitz/compiler.lisp 2008/03/06 21:14:22 1.194 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.193 2008/02/23 22:36:21 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.194 2008/03/06 21:14:22 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -143,7 +143,8 @@ (resolved-code (finalize-code body-code nil nil)))

(multiple-value-bind (code-vector symtab) - (let ((asm:*instruction-compute-extra-prefix-map* + (let ((asm-x86:*cpu-mode* :32-bit) + (asm:*instruction-compute-extra-prefix-map* '((:call . compute-call-extra-prefix)))) (asm:assemble-proglist (translate-program resolved-code :muerte.cl :cl) :symtab (list (cons :nil-value (image-nil-word *image*))))) @@ -993,7 +994,8 @@

(defun assemble-funobj (funobj combined-code) (multiple-value-bind (code-vector code-symtab) - (let ((asm:*instruction-compute-extra-prefix-map* + (let ((asm-x86:*cpu-mode* :32-bit) + (asm:*instruction-compute-extra-prefix-map* '((:call . compute-call-extra-prefix)))) (asm:assemble-proglist combined-code :symtab (list* (cons :nil-value (image-nil-word *image*))