Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
99f6b49e
Commit
99f6b49e
authored
Sep 15, 1997
by
dtc
Browse files
Value of the t-value parameter was wrong! Remove it and use
load-symbol.
parent
fff343fc
Changes
2
Hide whitespace changes
Inline
Side-by-side
assembly/x86/arith.lisp
View file @
99f6b49e
...
...
@@ -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/0
2
/1
0
1
7:06:35
dtc Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/x86/arith.lisp,v 1.
4
1997/0
9
/1
5
1
0: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
)
...
...
compiler/x86/parms.lisp
View file @
99f6b49e
...
...
@@ -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
value
s
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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment