projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.15.20: refactor "system locks" framework, one TIMER buglet
[sbcl.git]
/
src
/
compiler
/
x86-64
/
call.lisp
diff --git
a/src/compiler/x86-64/call.lisp
b/src/compiler/x86-64/call.lisp
index
4242c99
..
8e1da4d
100644
(file)
--- a/
src/compiler/x86-64/call.lisp
+++ b/
src/compiler/x86-64/call.lisp
@@
-356,7
+356,8
@@
;; Restore EDI, and reset the stack.
(emit-label restore-edi)
(loadw rdi-tn rbx-tn (- (1+ 1)))
;; Restore EDI, and reset the stack.
(emit-label restore-edi)
(loadw rdi-tn rbx-tn (- (1+ 1)))
- (inst mov rsp-tn rbx-tn))))
+ (inst mov rsp-tn rbx-tn)
+ (inst cld))))
(values))
\f
;;;; unknown values receiving
(values))
\f
;;;; unknown values receiving
@@
-1320,7
+1321,8
@@
(inst sub rcx 1)
(inst jmp :nz loop)
;; NIL out the last cons.
(inst sub rcx 1)
(inst jmp :nz loop)
;; NIL out the last cons.
- (storew nil-value dst 1 list-pointer-lowtag))
+ (storew nil-value dst 1 list-pointer-lowtag)
+ (inst cld))
(emit-label done))))
;;; Return the location and size of the &MORE arg glob created by
(emit-label done))))
;;; Return the location and size of the &MORE arg glob created by