mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

Fix incorrect display of wide strings in decompilation

Browse source 
A byte ordering error caused incorrect display of wide strings
when using the ",c" decompilation from the REPL.

* module/language/assembly/decompile-bytecode.scm (decode-bytecode):
  wide strings are encoded in native endianness
This commit is contained in:
Michael Gran 2009-10-28 06:27:47 -07:00
parent 3a5bc4fada
commit b158c2c3b5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -119,7 +119,7 @@
(let lp ((i 0)) (let lp ((i 0))
(if (= i len) (if (= i len)
`(,inst ,(if (eq? inst 'load-wide-string) `(,inst ,(if (eq? inst 'load-wide-string)
(utf32->string seq) (utf32->string seq (native-endianness))
seq)) seq))
(begin (begin
(sequence-set! seq i (pop)) (sequence-set! seq i (pop))