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:
parent
32ca15d7d7
commit
31602aa04a
1 changed files with 1 additions and 1 deletions
|
@ -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)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue