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

fix header-size calculation

Browse Source 
svn: r2938
This commit is contained in:
Matthew Flatt 2006-05-14 12:40:00 +00:00
parent 9be16da09b
commit aaa9a18c77
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -229,7 +229,7 @@
(write-ulong (+ sz delta) out) (write-ulong (+ sz delta) out)
(flush-output out) (flush-output out)
;; Shift rest of load commands by delta ;; Shift rest of load commands by delta
(let ([end cmdssz]) (let ([end (+ cmdssz 56)])
(file-position p (+ pos sz)) (file-position p (+ pos sz))
(let ([s (read-bytes (- end (+ pos sz)) p)]) (let ([s (read-bytes (- end (+ pos sz)) p)])
(file-position out (+ pos sz delta)) (file-position out (+ pos sz delta))
@ -240,7 +240,7 @@
(flush-output out)) (flush-output out))
;; Change load-commands size in header: ;; Change load-commands size in header:
(file-position out 20) (file-position out 20)
(write-ulong (+ end delta) out) (write-ulong (+ cmdssz delta) out)
(flush-output out))) (flush-output out)))
(file-position out (+ pos offset)) (file-position out (+ pos offset))
(write-bytes new-path out) (write-bytes new-path out)