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

fix non-ELF unix starter creation

Browse Source
This commit is contained in:
Matthew Flatt 2011-11-26 19:59:53 -07:00
parent 291a18b045
commit 58fa3dd6d7
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

@ -185,7 +185,7 @@
(lambda (in) (lambda (in)
(read-elf (read-elf
in in
(lambda () (values #f #f #f)) (lambda () (values #f #f #f #f))
(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)))]