From bf0a7399911625e935c0c4211dcbdd7a433bfd23 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 26 Mar 2018 17:41:59 -0600 Subject: [PATCH] raco exe: fix section alignment for PE rewriting A new resource section was aligned based on the old section's virtual address, instead of the PE's specified section alignment. That could make alignment round up too far, leaving a disallowed gap in the sections' virtual addresses. --- racket/collects/compiler/private/pe-rsrc.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/collects/compiler/private/pe-rsrc.rkt b/racket/collects/compiler/private/pe-rsrc.rkt index b92302d9e0..9335c9665d 100644 --- a/racket/collects/compiler/private/pe-rsrc.rkt +++ b/racket/collects/compiler/private/pe-rsrc.rkt @@ -454,7 +454,7 @@ (define new-virtual-addr (same-alignment - (section-virtual-addr s) + (pe-section-alignment pe) (for/fold ([pos 0]) ([s2 (in-list (pe-sections pe))] #:unless (eq? s s2)) (max pos