From aaa9a18c77d4a65c8977bfeffa55e7097754d450 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 14 May 2006 12:40:00 +0000 Subject: [PATCH] fix header-size calculation svn: r2938 --- collects/compiler/private/mach-o.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/compiler/private/mach-o.ss b/collects/compiler/private/mach-o.ss index 4b09e18616..f82f69afdb 100644 --- a/collects/compiler/private/mach-o.ss +++ b/collects/compiler/private/mach-o.ss @@ -229,7 +229,7 @@ (write-ulong (+ sz delta) out) (flush-output out) ;; Shift rest of load commands by delta - (let ([end cmdssz]) + (let ([end (+ cmdssz 56)]) (file-position p (+ pos sz)) (let ([s (read-bytes (- end (+ pos sz)) p)]) (file-position out (+ pos sz delta)) @@ -240,7 +240,7 @@ (flush-output out)) ;; Change load-commands size in header: (file-position out 20) - (write-ulong (+ end delta) out) + (write-ulong (+ cmdssz delta) out) (flush-output out))) (file-position out (+ pos offset)) (write-bytes new-path out)