summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2009-10-28 06:27:47 -0700
committerMichael Gran <spk121@yahoo.com>2009-10-28 06:27:47 -0700
commitb158c2c3b592e13ae2694cb1d974bb0de60d19c6 (patch)
treebf6c0305af577fc97bf3ca5f57b63a8c75caf3db
parent3a5bc4fadac5b1574f081e7ecd3a043cbd395794 (diff)
downloadguile-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.scm2
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))