From 902ea5f7a59fa02d175ff1b627a7554ade80521b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 4 Oct 2011 12:57:49 -0600 Subject: [PATCH] fix `raco exe' for ELF starter --- collects/compiler/private/elf.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/compiler/private/elf.rkt b/collects/compiler/private/elf.rkt index 2decf07ba1..bdfc2f841a 100644 --- a/collects/compiler/private/elf.rkt +++ b/collects/compiler/private/elf.rkt @@ -189,7 +189,7 @@ (lambda (elf sections programs str-section strs) (let ([new-sec-pos (+ (elf-sh-offset elf) (* (elf-sh-esize elf) (elf-sh-ecount elf)))] - [new-sec-delta (round-up (elf-sh-ecount elf) SECTION-ALIGN)] + [new-sec-delta (round-up (elf-sh-esize elf) SECTION-ALIGN)] [new-str-pos (+ (section-offset str-section) (section-size str-section))] [new-str-delta (round-up (add1 (bytes-length section-name))