diff options
author | Michael Gran <spk121@yahoo.com> | 2009-10-28 06:27:47 -0700 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2009-10-28 06:27:47 -0700 |
commit | b158c2c3b592e13ae2694cb1d974bb0de60d19c6 (patch) | |
tree | bf6c0305af577fc97bf3ca5f57b63a8c75caf3db | |
parent | 3a5bc4fadac5b1574f081e7ecd3a043cbd395794 (diff) | |
download | guile-b158c2c3b592e13ae2694cb1d974bb0de60d19c6.tar.gz |
Fix incorrect display of wide strings in decompilation
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
-rw-r--r-- | module/language/assembly/decompile-bytecode.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/assembly/decompile-bytecode.scm b/module/language/assembly/decompile-bytecode.scm index 555ee12d7..6d41da2cb 100644 --- a/module/language/assembly/decompile-bytecode.scm +++ b/module/language/assembly/decompile-bytecode.scm @@ -119,7 +119,7 @@ (let lp ((i 0)) (if (= i len) `(,inst ,(if (eq? inst 'load-wide-string) - (utf32->string seq) + (utf32->string seq (native-endianness)) seq)) (begin (sequence-set! seq i (pop)) |