From 99f6b49ebeb56f82db5bd36bb1cfb82c7c5d4b49 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Mon, 15 Sep 1997 10:40:12 +0000 Subject: [PATCH] Value of the t-value parameter was wrong! Remove it and use load-symbol. --- assembly/x86/arith.lisp | 6 +++--- compiler/x86/parms.lisp | 7 +++---- 2 files changed, 6 insertions(+), 7 deletions(-) diff --git a/assembly/x86/arith.lisp b/assembly/x86/arith.lisp index da982463d..1b4b385a4 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 7efcc5811..1440423cf 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. -- GitLab