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

mach-o: fix generating embedding executables

Browse Source 
aimed at fixing DrRacket startup on Lion
This commit is contained in:
Matthew Flatt 2011-06-17 08:38:30 -06:00
parent 8e80af6f42
commit c7d86ed3a6
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/compiler/private/mach-o.rkt
View File

@ -133,7 +133,7 @@
[exportbindoff (read-ulong p)] [exportbindoff (read-ulong p)]
[exportbindsize (read-ulong p)]) [exportbindsize (read-ulong p)])
(set! dyld-info-pos pos) (set! dyld-info-pos pos)
(set! dyld-info-offs (vector bindoff weakbindoff lazybindoff exportbindoff)))] (set! dyld-info-offs (vector rebaseoff bindoff weakbindoff lazybindoff exportbindoff)))]
[else [else
(void)]) (void)])
(file-position p (+ pos sz)) (file-position p (+ pos sz))
@ -224,12 +224,13 @@
(when dyld-info-pos (when dyld-info-pos
(let ([update (lambda (n) (let ([update (lambda (n)
(unless (< (vector-ref dyld-info-offs n) out-offset) (unless (< (vector-ref dyld-info-offs n) out-offset)
(file-position out (+ dyld-info-pos new-cmd-sz 16 (* n 8))) (file-position out (+ dyld-info-pos new-cmd-sz 8 (* n 8)))
(write-ulong (+ (vector-ref dyld-info-offs n) outlen) out)))]) (write-ulong (+ (vector-ref dyld-info-offs n) outlen) out)))])
(update 0) (update 0)
(update 1) (update 1)
(update 2) (update 2)
(update 3)))) (update 3)
(update 4))))
;; Write segdata to former link-data offset: ;; Write segdata to former link-data offset:
(file-position out out-offset) (file-position out out-offset)
(display segdata out) (display segdata out)