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

raco exe: fix 32-bit ELF updating

Browse Source 
Closes #1264
This commit is contained in:
Matthew Flatt 2016-02-27 17:19:01 -05:00
parent bc99eb0eef
commit d70616ec65
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -434,7 +434,7 @@
[offset (section-offset s)]) [offset (section-offset s)])
(file-position out (adjust (+ (elf-sh-offset elf) (file-position out (adjust (+ (elf-sh-offset elf)
(* i (elf-sh-esize elf)) (* i (elf-sh-esize elf))
(at-class 14 16)))) (at-class 12 16))))
(define new-addr (vm-adjust addr)) (define new-addr (vm-adjust addr))
(unless (or (= new-addr addr) (unless (or (= new-addr addr)