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