diff --git a/assembly/x86/arith.lisp b/assembly/x86/arith.lisp index da982463d4ea7d42b882448a265931f4d6d9b399..1b4b385a4d8bf16396983a3f89f6b971cdc2cdb9 100644 --- a/assembly/x86/arith.lisp +++ b/assembly/x86/arith.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/x86/arith.lisp,v 1.3 1997/02/10 17:06:35 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/x86/arith.lisp,v 1.4 1997/09/15 10:40:12 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -221,7 +221,7 @@ (inst jmp eax) TRUE - (inst mov res t-value))) + (load-symbol res t))) ); eval-when @@ -267,7 +267,7 @@ (inst jmp eax) RETURN-T - (inst mov res t-value)) + (load-symbol res t)) (define-assembly-routine (generic-= (:cost 10) diff --git a/compiler/x86/parms.lisp b/compiler/x86/parms.lisp index 7efcc58112b95d82c7dc37861b2d9d9deca4f76b..1440423cfd56b2c7c299e3d96fe9292d1ed45f52 100644 --- a/compiler/x86/parms.lisp +++ b/compiler/x86/parms.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/parms.lisp,v 1.5 1997/09/08 02:24:47 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/parms.lisp,v 1.6 1997/09/15 10:40:10 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -161,11 +161,10 @@ (defparameter target-static-space-start #x05000000) (defparameter target-dynamic-space-start #x09000000) -;;; Given that NIL and T are the first things allocated in static space, we -;;; can know their values at compile time: +;;; Given that NIL is the first things allocated in static space, we +;;; know its value at compile time: ;;; (defparameter nil-value #x0500000B) -(defparameter t-value #x0500002F) ;;;; Other random constants.