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

fix mach-o updating

Browse Source
This commit is contained in:
Matthew Flatt 2011-08-31 19:29:55 -06:00
parent e7ec9f5eb7
commit c5588f87e3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -56,6 +56,7 @@
[link-edit-addr 0] [link-edit-addr 0]
[link-edit-offset 0] [link-edit-offset 0]
[link-edit-len 0] [link-edit-len 0]
[link-edit-vmlen 0]
[dyld-info-pos #f] [dyld-info-pos #f]
[dyld-info-offs #f]) [dyld-info-offs #f])
;; (printf "~a cmds, length 0x~x\n" cnt cmdssz) ;; (printf "~a cmds, length 0x~x\n" cnt cmdssz)
@ -82,6 +83,7 @@
(set! link-edit-64? 64?) (set! link-edit-64? 64?)
(set! link-edit-pos pos) (set! link-edit-pos pos)
(set! link-edit-addr vmaddr) (set! link-edit-addr vmaddr)
(set! link-edit-vmlen vmlen)
(set! link-edit-offset offset) (set! link-edit-offset offset)
(set! link-edit-len len) (set! link-edit-len len)
(when (link-edit-len . < . 0) (when (link-edit-len . < . 0)
@ -145,7 +147,7 @@
[out-offset (if move-link-edit? [out-offset (if move-link-edit?
link-edit-offset link-edit-offset
(+ link-edit-offset (round-up-page link-edit-len)))] (+ link-edit-offset (round-up-page link-edit-len)))]
[out-addr (+ link-edit-addr (round-up-page link-edit-len))]) [out-addr (+ link-edit-addr (round-up-page link-edit-vmlen))])
(unless ((+ end-cmd new-cmd-sz) . < . min-used) (unless ((+ end-cmd new-cmd-sz) . < . min-used)
(error 'check-header (error 'check-header
"no room for a new section load command (current end is ~a; min used is ~a)" "no room for a new section load command (current end is ~a; min used is ~a)"