diff options
Diffstat (limited to 'module/system/vm/assembler.scm')
-rw-r--r-- | module/system/vm/assembler.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm index d4c9de86d..ea50b5bb6 100644 --- a/module/system/vm/assembler.scm +++ b/module/system/vm/assembler.scm @@ -2061,8 +2061,9 @@ should be .data or .rodata), and return the resulting linker object. ((array? obj) (let-values - ;; array tag + rank + contp flag: see libguile/arrays.h . - (((tag) (logior tc7-array (ash (array-rank obj) 17) (ash 1 16))) + ;; array tag + rank + ;; see libguile/arrays.h: SCM_I_ARRAY_NDIM, SCM_I_ARRAYP, scm_i_raw_array + (((tag) (logior tc7-array (ash (array-rank obj) 16))) ((bv-set! bvs-set!) (case word-size ((4) (values bytevector-u32-set! bytevector-s32-set!)) |