x86: use modular addition when decoding call displacement

gsorbier · May 10, 2018 · 7189279 · 7189279
1 parent 0257865
commit 7189279
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp
@@ -43,7 +43,8 @@
 
 (define-arg-type displacement
  :sign-extend t
- :use-label (lambda (value dstate) (+ (dstate-next-addr dstate) value))
+ :use-label (lambda (value dstate)
+ (ldb (byte 32 0) (+ (dstate-next-addr dstate) value)))
  :printer (lambda (value stream dstate)
  (maybe-note-assembler-routine value nil dstate)
  (print-label value stream dstate)))