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
/
insts.lisp
diff --git
a/src/compiler/x86-64/insts.lisp
b/src/compiler/x86-64/insts.lisp
index
4179980
..
3f0c6f0
100644
(file)
--- a/
src/compiler/x86-64/insts.lisp
+++ b/
src/compiler/x86-64/insts.lisp
@@
-2503,8
+2503,8
@@
(- (label-position where)
(+ posn 4))))))
(fixup
(- (label-position where)
(+ posn 4))))))
(fixup
- (emit-byte segment #b11101000)
- (emit-relative-fixup segment where))
+ ;; There is no CALL rel64...
+ (error "Cannot CALL a fixup: ~S" where))
(t
(maybe-emit-rex-for-ea segment where nil :operand-size :do-not-set)
(emit-byte segment #b11111111)
(t
(maybe-emit-rex-for-ea segment where nil :operand-size :do-not-set)
(emit-byte segment #b11111111)
@@
-2586,7
+2586,7
@@
(t
(emit-byte segment #b11000011)))))
(t
(emit-byte segment #b11000011)))))
-(define-instruction jecxz (segment target)
+(define-instruction jrcxz (segment target)
(:printer short-jump ((op #b0011)))
(:emitter
(emit-byte segment #b11100011)
(:printer short-jump ((op #b0011)))
(:emitter
(emit-byte segment #b11100011)