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

Encode the length of constant lists/vectors on 2 octets instead of 1.

Browse source 
* module/system/vm/assemble.scm (dump-object!): New sub-procedure
  `too-long'.  For `list' and `vector', encode the length on 2 octets
  instead of 1 and report an error if a list/vector is longer than 65535.

* module/system/vm/disasm.scm (original-value): New sub-procedure
  `list-or-vector?'; when true, return the number of elements for that
  list/vector.

* src/vm_system.c (list): Fetch the length as a two-octet integer.
  (vector): Likewise.

* testsuite/t-basic-contructs.scm: New.

* testsuite/Makefile.am (vm_test_files): Added the above file.

* module/system/vm/core.scm (load-compiled): Added a bit of
  documentation.

git-archimport-id: lcourtes@laas.fr--2005-mobile/guile-vm--mobile--0.6--patch-11
This commit is contained in:
Ludovic Courtes 2006-01-02 18:04:04 +00:00 • committed by Ludovic Courtès
parent a55572bf3d
commit 23b587b0a1
6 changed files with 48 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -163,4 +163,6 @@
(define-public (vm-load vm objcode)
(vm (objcode->program objcode)))
;; `load-compiled' is referred to by `boot-9.scm' and used by `use-modules'
;; and friends.
(set! load-compiled (lambda (file) (vm-load (the-vm) (load-objcode file))))