dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add new language between assembly and objcode: bytecode

Browse source 
* module/language/bytecode/Makefile.am:
* module/language/bytecode/spec.scm: Add another language to the stack,
  bytecode. Bytecode is the u8vector form of object code..

* configure.in:
* module/language/Makefile.am:
* module/language/assembly/Makefile.am:
* test-suite/tests/asm-to-bytecode.test:
* module/language/assembly/spec.scm:
* module/language/assembly/compile-bytecode.scm: Update to include the
  new pass.
This commit is contained in:
Andy Wingo 2009-01-30 10:20:08 +01:00
commit 6f78702819
8 changed files with 56 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/asm-to-bytecode.test
View file

@ -17,7 +17,7 @@
(define-module (test-suite tests asm-to-bytecode)
#:use-module (test-suite lib)
#:use-module (system vm instruction)
#:use-module (language assembly compile-objcode))
#:use-module (language assembly compile-bytecode))
(define (munge-bytecode v)
(let ((newv (make-u8vector (vector-length v))))
@ -39,7 +39,7 @@
(define (get-addr) i)
(run-test `(length ,x) #t
(lambda ()
(fill-objcode x write-byte get-addr '())
(write-bytecode x write-byte get-addr '())
(= i len)))
(run-test `(compile-equal? ,x ,y) #t
(lambda ()