mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

Rename DT_GUILE_VM_VERSION.

Browse source 
* libguile/objcodes.c (DT_GUILE_VM_VERSION, process_dynamic_segment):
* module/system/vm/elf.scm (DT_GUILE_VM_VERSION): Rename from
  DT_GUILE_RTL_VERSION.
* module/system/vm/assembler.scm (link-dynamic-section): Adapt.
This commit is contained in:
Andy Wingo 2013-11-19 20:02:15 +01:00
parent 6b9470bf48
commit 8bf83893c7
3 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1220,7 +1220,7 @@ it will be added to the GC roots at runtime."
(* i word-size) 0 label)
relocs))
(%set-uword! bv (* i word-size) 0 endianness))))
(set-uword! 0 DT_GUILE_RTL_VERSION)
(set-uword! 0 DT_GUILE_VM_VERSION)
(set-uword! 1 (logior (ash *bytecode-major-version* 16)
*bytecode-minor-version*))
(set-uword! 2 DT_GUILE_ENTRY)