diff options
Diffstat (limited to 'module/system/vm')
-rw-r--r-- | module/system/vm/assembler.scm | 2 | ||||
-rw-r--r-- | module/system/vm/elf.scm | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm index fd99179d4..7c1d58982 100644 --- a/module/system/vm/assembler.scm +++ b/module/system/vm/assembler.scm @@ -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) diff --git a/module/system/vm/elf.scm b/module/system/vm/elf.scm index 516745913..2fe99bada 100644 --- a/module/system/vm/elf.scm +++ b/module/system/vm/elf.scm @@ -105,7 +105,7 @@ DT_FINI_ARRAYSZ DT_RUNPATH DT_FLAGS DT_ENCODING DT_PREINIT_ARRAY DT_PREINIT_ARRAYSZ DT_NUM DT_LOGUILE DT_GUILE_GC_ROOT DT_GUILE_GC_ROOT_SZ DT_GUILE_ENTRY - DT_GUILE_RTL_VERSION DT_HIGUILE DT_LOOS DT_HIOS DT_LOPROC + DT_GUILE_VM_VERSION DT_HIGUILE DT_LOOS DT_HIOS DT_LOPROC DT_HIPROC string-table-ref @@ -780,7 +780,7 @@ (define DT_GUILE_GC_ROOT #x37146000) ; Offset of GC roots (define DT_GUILE_GC_ROOT_SZ #x37146001) ; Size in machine words of GC roots (define DT_GUILE_ENTRY #x37146002) ; Address of entry thunk -(define DT_GUILE_RTL_VERSION #x37146003); Bytecode version +(define DT_GUILE_VM_VERSION #x37146003) ; Bytecode version (define DT_HIGUILE #x37146fff) ; End of Guile-specific (define DT_LOOS #x6000000d) ; Start of OS-specific (define DT_HIOS #x6ffff000) ; End of OS-specific |