1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00

Fix line advance DWARF opcodes when line advance is exactly 128

* module/system/vm/assembler.scm (link-debug): Fix off-by-one error in
  which forward jumps of 128 were mis-rendered.
This commit is contained in:
Andy Wingo 2013-11-07 11:10:36 +01:00
parent 32ca15d7d7
commit 31602aa04a

View file

@ -1638,7 +1638,7 @@ it will be added to the GC roots at runtime."
(define (put-sleb128 port val)
(let lp ((val val))
(if (<= 0 (+ val 64) 128)
(if (<= 0 (+ val 64) 127)
(put-u8 port (logand val #x7f))
(begin
(put-u8 port (logior #x80 (logand val #x7f)))