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

mach-o: fix linkedit vm length when ad hoc signing

Browse Source
This commit is contained in:
Matthew Flatt 2020-12-19 07:08:25 -07:00
parent 0e4f57f44c
commit 585f9d8201
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/collects/compiler/private/mach-o.rkt
View File

@ -492,8 +492,12 @@
(write-ulong padded-size out) ; data offset
(write-ulong data-size out)
;; Update LINKEDIT length:
(file-position out (+ link-edit-pos 8 16 (* 3 (if link-edit-64? 8 4))))
((if link-edit-64? write-xulong write-ulong) (+ link-edit-len data-size (- padded-size orig-size)) out)
(let ([file-pos (+ link-edit-pos 8 16 (* 1 (if link-edit-64? 8 4)))]
[len (+ link-edit-len data-size (- padded-size orig-size))])
(file-position out file-pos)
((if link-edit-64? write-xulong write-ulong) (round-up-page len) out) ; vm-len
(file-position out (+ file-pos (* 2 (if link-edit-64? 8 4))))
((if link-edit-64? write-xulong write-ulong) len out))
;; Add padding:
(file-position out orig-size)
(write-bytes (make-bytes (- padded-size orig-size) 0) out)