suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix `raco exe' for ELF starter

Browse Source
This commit is contained in:
Matthew Flatt 2011-10-04 12:57:49 -06:00
parent 3941a5d04f
commit 902ea5f7a5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/compiler/private/elf.rkt
View File

@ -189,7 +189,7 @@
(lambda (elf sections programs str-section strs) (lambda (elf sections programs str-section strs)
(let ([new-sec-pos (+ (elf-sh-offset elf) (let ([new-sec-pos (+ (elf-sh-offset elf)
(* (elf-sh-esize elf) (elf-sh-ecount elf)))] (* (elf-sh-esize elf) (elf-sh-ecount elf)))]
[new-sec-delta (round-up (elf-sh-ecount elf) SECTION-ALIGN)] [new-sec-delta (round-up (elf-sh-esize elf) SECTION-ALIGN)]
[new-str-pos (+ (section-offset str-section) [new-str-pos (+ (section-offset str-section)
(section-size str-section))] (section-size str-section))]
[new-str-delta (round-up (add1 (bytes-length section-name)) [new-str-delta (round-up (add1 (bytes-length section-name))