mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

fix asm-to-bytecode.test

Browse source 
* test-suite/tests/asm-to-bytecode.test (%objcode-cookie-size)
  (test-target): The objcode version embedded in the cookie is not an
  effective version, so elide it from the test.
This commit is contained in:
Andy Wingo 2011-12-06 18:09:02 +01:00
parent 92c0ebac90
commit c9caa6c88d
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -130,7 +130,7 @@
(string=? (target-os) os))))))) (string=? (target-os) os)))))))
(define %objcode-cookie-size (define %objcode-cookie-size
(string-length "GOOF----LE-8-2.0")) (string-length "GOOF----LE-8"))
(define (test-target triplet endian word-size) (define (test-target triplet endian word-size)
(pass-if (format #f "target `~a' honored" triplet) (pass-if (format #f "target `~a' honored" triplet)
@ -153,7 +153,7 @@
#f))) #f)))
(write-objcode (bytecode->objcode b) p) (write-objcode (bytecode->objcode b) p)
(let ((cookie (make-bytevector %objcode-cookie-size)) (let ((cookie (make-bytevector %objcode-cookie-size))
(expected (format #f "GOOF----~a-~a-~a" (expected (format #f "GOOF----~a-~a"
(cond ((eq? endian (endianness little)) (cond ((eq? endian (endianness little))
"LE") "LE")
((eq? endian (endianness big)) ((eq? endian (endianness big))
@ -161,8 +161,7 @@
(else (else
(error "unknown endianness" (error "unknown endianness"
endian))) endian)))
word-size word-size)))
(effective-version))))
(bytevector-copy! (get-objcode) 0 cookie 0 (bytevector-copy! (get-objcode) 0 cookie 0
%objcode-cookie-size) %objcode-cookie-size)
(string=? (utf8->string cookie) expected))))))))) (string=? (utf8->string cookie) expected)))))))))