diff options
| author | Andy Wingo <wingo@pobox.com> | 2013-01-24 22:35:14 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2013-05-17 22:24:00 +0200 |
| commit | 70c4e6787b19fbf130706f90614a164780c70feb (patch) | |
| tree | a69ea44dcd676c9279485a2f73f017c6970c1df2 | |
| parent | a8d4671006ad6627ef92194054c51e28183f791c (diff) | |
| download | guile-70c4e6787b19fbf130706f90614a164780c70feb.tar.gz | |
fix chunking bug in rtl assembler
* module/system/vm/rtl.scm (link-text-object): Fix bug in which previous
chunks were written in the wrong order.
| -rw-r--r-- | module/system/vm/rtl.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/vm/rtl.scm b/module/system/vm/rtl.scm index b252ea538..aa5bbd028 100644 --- a/module/system/vm/rtl.scm +++ b/module/system/vm/rtl.scm @@ -675,7 +675,7 @@ (define (link-text-object asm) (let ((buf (make-u32vector (asm-pos asm)))) - (let lp ((pos 0) (prev (asm-prev asm))) + (let lp ((pos 0) (prev (reverse (asm-prev asm)))) (if (null? prev) (let ((byte-size (* (asm-idx asm) 4))) (bytevector-copy! (asm-cur asm) 0 buf pos byte-size) |