[Guile-commits] 06/07: Fix bounds on compiler-emitted JIT metadata

[Andy Wingo]

wingo pushed a commit to branch lightning
in repository guile.

commit b8a557d9a9f71e00a2b163fcf2501cffd95a8697
Author: Andy Wingo <address@hidden>
Date:   Mon Aug 20 09:17:34 2018 +0200

    Fix bounds on compiler-emitted JIT metadata
    
    * module/system/vm/assembler.scm (link-data): Fix relocation addend for
      JIT data bounds.  I never get this right!
---
 module/system/vm/assembler.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index e949a9f..58b5f95 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -1845,10 +1845,10 @@ should be .data or .rodata), and return the resulting 
linker object.
         (($ <jit-data> low-pc high-pc)
          ;; Patch "start" and "end" fields of "struct jit_data".
          (cons* (make-linker-reloc 'rel32/1 (+ pos word-size 4)
-                                   (- (+ word-size 4) low-pc)
+                                   (+ low-pc word-size 4)
                                    '.rtl-text)
                 (make-linker-reloc 'rel32/1 (+ pos word-size 8)
-                                   (- (+ word-size 8) high-pc)
+                                   (+ high-pc word-size 8)
                                    '.rtl-text)
                 relocs))
         (_ relocs)))