mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 00:10:21 +02:00
Code Activity

fix the disassembler for load-string, load-symbol et al

Browse source 
* module/language/assembly/decompile-bytecode.scm (decode-bytecode): Fix
  decoding of lengths in loader instructions.
This commit is contained in:
Andy Wingo 2009-02-01 11:32:07 +01:00
parent 89bbf35596
commit 8403b9f59b
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/assembly/decompile-bytecode.scm
View file

@ -73,7 +73,8 @@
((eq? inst 'load-program)
(decode-load-program pop))
((< (instruction-length inst) 0)
(let* ((len (decode-length pop))
(let* ((len (let* ((a (pop)) (b (pop)) (c (pop)))
(+ (ash a 16) (ash b 8) c)))
(str (make-string len)))
(let lp ((i 0))
(if (= i len)