mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 08:10:17 +02:00
Code Activity

Add FIXMEs about misaligned objcode-metas.

Browse source 
* libguile/objcodes.c (scm_c_make_objcode_slice): Add comment about
  misaligned `objcode-meta'.

* module/language/assembly/compile-bytecode.scm (write-bytecode):
  Likewise.
This commit is contained in:
Ludovic Courtès 2009-07-15 23:53:22 +02:00
parent 5bd047cefa
commit ec99fe8ecb
2 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/assembly/compile-bytecode.scm
View file

@ -110,6 +110,9 @@
(set! i (1+ i))
(if (> i 0) (write-byte x))))
(get-addr (lambda () i)))
;; FIXME: We should add padding here so that META's bytecode
;; meets the alignment requirements of `scm_objcode'. See
;; `scm_c_make_objcode_slice ()'.
(write-bytecode meta write get-addr '()))))
((load-unsigned-integer ,str) (write-loader str))
((load-integer ,str) (write-loader str))