[Guile-commits] GNU Guile branch, master, updated. v2.1.0-190-gc9caa6c

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=c9caa6c88d2b48f62ae0485518ff2a7f2cef5f29

The branch, master has been updated
       via  c9caa6c88d2b48f62ae0485518ff2a7f2cef5f29 (commit)
      from  92c0ebac90439a90b7acc33f3c44f5adf470d8c9 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit c9caa6c88d2b48f62ae0485518ff2a7f2cef5f29
Author: Andy Wingo <address@hidden>
Date:   Tue Dec 6 18:09:02 2011 +0100

    fix asm-to-bytecode.test
    
    * 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.

-----------------------------------------------------------------------

Summary of changes:
 test-suite/tests/asm-to-bytecode.test |    7 +++----
 1 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/test-suite/tests/asm-to-bytecode.test 
b/test-suite/tests/asm-to-bytecode.test
index edb9bfd..1132a41 100644
--- a/test-suite/tests/asm-to-bytecode.test
+++ b/test-suite/tests/asm-to-bytecode.test
@@ -130,7 +130,7 @@
                (string=? (target-os) os)))))))
 
 (define %objcode-cookie-size
-  (string-length "GOOF----LE-8-2.0"))
+  (string-length "GOOF----LE-8"))
 
 (define (test-target triplet endian word-size)
   (pass-if (format #f "target `~a' honored" triplet)
@@ -153,7 +153,7 @@
                       #f)))
               (write-objcode (bytecode->objcode b) p)
               (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))
                                              "LE")
                                             ((eq? endian (endianness big))
@@ -161,8 +161,7 @@
                                             (else
                                              (error "unknown endianness"
                                                     endian)))
-                                      word-size
-                                      (effective-version))))
+                                      word-size)))
                 (bytevector-copy! (get-objcode) 0 cookie 0
                                   %objcode-cookie-size)
                 (string=? (utf8->string cookie) expected)))))))))


hooks/post-receive
-- 
GNU Guile