[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, master, updated. v2.1.0-190-gc9caa6c
Date: Tue, 06 Dec 2011 17:09:14 +0000

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".

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 
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 @@
               (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))
                                             ((eq? endian (endianness big))
@@ -161,8 +161,7 @@
                                              (error "unknown endianness"
-                                      word-size
-                                      (effective-version))))
+                                      word-size)))
                 (bytevector-copy! (get-objcode) 0 cookie 0
                 (string=? (utf8->string cookie) expected)))))))))

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]