mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

assembler: give proper permissions to .data section

Browse source 
* module/system/vm/assembler.scm (link-data): Give stringbufs the
  "shared" flag already, so we don't attempt to set it at runtime.  Give
  .data sections the SHF_WRITE flag.
This commit is contained in:
Andy Wingo 2013-08-20 22:08:25 +02:00
parent 72bb47ae4c
commit 8fa7288928
1 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

14
module/system/vm/assembler.scm
View file

@ -801,8 +801,13 @@ should be .data or .rodata), and return the resulting linker object.
(modulo (- alignment (modulo address alignment)) alignment))) (modulo (- alignment (modulo address alignment)) alignment)))
(define tc7-vector 13) (define tc7-vector 13)
(define tc7-narrow-stringbuf 39) (define stringbuf-shared-flag #x100)
(define tc7-wide-stringbuf (+ 39 #x400)) (define stringbuf-wide-flag #x400)
(define tc7-stringbuf 39)
(define tc7-narrow-stringbuf
(+ tc7-stringbuf stringbuf-shared-flag))
(define tc7-wide-stringbuf
(+ tc7-stringbuf stringbuf-shared-flag stringbuf-wide-flag))
(define tc7-ro-string (+ 21 #x200)) (define tc7-ro-string (+ 21 #x200))
(define tc7-rtl-program 69) (define tc7-rtl-program 69)
@ -941,7 +946,10 @@ should be .data or .rodata), and return the resulting linker object.
(lp (1+ i) (lp (1+ i)
(align (+ (byte-length obj) pos) 8) (align (+ (byte-length obj) pos) 8)
(cons (make-linker-symbol obj-label pos) labels))) (cons (make-linker-symbol obj-label pos) labels)))
(make-object asm name buf '() labels)))))))) (make-object asm name buf '() labels
#:flags (match name
('.data (logior SHF_ALLOC SHF_WRITE))
('.rodata SHF_ALLOC))))))))))
(define (link-constants asm) (define (link-constants asm)
"Link sections to hold constants needed by the program text emitted "Link sections to hold constants needed by the program text emitted