[Guile-commits] GNU Guile branch, master, updated. release_1-9-11-19-g8c65549

[Ludovic Courtès]

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=8c655494166c45f89586ee6b277391d4a82c2b3a

The branch, master has been updated
       via  8c655494166c45f89586ee6b277391d4a82c2b3a (commit)
       via  a150c156a910e72563a78a09fe9573e2b02a6f29 (commit)
       via  44ffcae006bb28ee4a03340bab2c79da5023b324 (commit)
      from  625b43acc758fad6174ca3731b57b55e85256934 (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 8c655494166c45f89586ee6b277391d4a82c2b3a
Author: Ludovic Courtès <address@hidden>
Date:   Sun Jun 6 16:58:01 2010 +0200

    Add tests for `program-sources' (bug #29817).
    
    * test-suite/tests/compiler.test ("program-sources"): New test prefix.

commit a150c156a910e72563a78a09fe9573e2b02a6f29
Author: Ludovic Courtès <address@hidden>
Date:   Sun Jun 6 16:22:37 2010 +0200

    Don't build any generated source file at "make dist" time.
    
    * srfi/Makefile.am
      (address@hidden@_la_SOURCES,
      address@hidden@_la_SOURCES,
      address@hidden@_la_SOURCES,
      address@hidden@_la_SOURCES):
      Remove `.x' files so that they're not built by "make dist".
    
    * test-suite/standalone/Makefile.am (libtest_asmobs_la_SOURCES): Remove
      `test-asmobs-lib.x'.
      (libtest_ffi_la_SOURCES): Remove `test-ffi-lib.x'.
      (BUILT_SOURCES): Likewise.

commit 44ffcae006bb28ee4a03340bab2c79da5023b324
Author: Ludovic Courtès <address@hidden>
Date:   Sun Jun 6 12:25:57 2010 +0200

    Add tests for `procedure-name'.
    
    This is a followup to 22cf27c815b756cac6893b5b239898767e6cb498 ("fix
    procedure naming").
    
    * test-suite/tests/compiler.test ("procedure-name"): New test prefix.

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

Summary of changes:
 srfi/Makefile.am                  |    8 +++---
 test-suite/standalone/Makefile.am |    5 +--
 test-suite/tests/compiler.test    |   54 +++++++++++++++++++++++++++++++++---
 3 files changed, 55 insertions(+), 12 deletions(-)

diff --git a/srfi/Makefile.am b/srfi/Makefile.am
index bb91268..cb36dda 100644
--- a/srfi/Makefile.am
+++ b/srfi/Makefile.am
@@ -46,22 +46,22 @@ lib_LTLIBRARIES = \
 
 BUILT_SOURCES = srfi-1.x srfi-4.x srfi-13.x srfi-14.x srfi-60.x
 
address@hidden@_la_SOURCES = srfi-1.x srfi-1.c
address@hidden@_la_SOURCES = srfi-1.c
 address@hidden@_la_LIBADD =            \
    $(top_builddir)/libguile/address@hidden@.la $(top_builddir)/lib/libgnu.la
 address@hidden@_la_LDFLAGS = -no-undefined -export-dynamic -version-info 
@LIBGUILE_SRFI_SRFI_1_INTERFACE@
 
address@hidden@_la_SOURCES = srfi-4.x srfi-4.c
address@hidden@_la_SOURCES = srfi-4.c
 address@hidden@_la_LIBADD =            \
    $(top_builddir)/libguile/address@hidden@.la $(top_builddir)/lib/libgnu.la
 address@hidden@_la_LDFLAGS = -no-undefined -export-dynamic -version-info 
@LIBGUILE_SRFI_SRFI_4_INTERFACE@
 
address@hidden@_la_SOURCES = srfi-13.x srfi-13.c srfi-14.x srfi-14.c
address@hidden@_la_SOURCES = srfi-13.c srfi-14.c
 address@hidden@_la_LIBADD =    \
    $(top_builddir)/libguile/address@hidden@.la $(top_builddir)/lib/libgnu.la
 address@hidden@_la_LDFLAGS = -no-undefined -export-dynamic -version-info 
@LIBGUILE_SRFI_SRFI_13_14_INTERFACE@
 
address@hidden@_la_SOURCES = srfi-60.x srfi-60.c
address@hidden@_la_SOURCES = srfi-60.c
 address@hidden@_la_LIBADD =    \
    $(top_builddir)/libguile/address@hidden@.la $(top_builddir)/lib/libgnu.la
 address@hidden@_la_LDFLAGS = -no-undefined -export-dynamic -version-info 
@LIBGUILE_SRFI_SRFI_60_INTERFACE@
diff --git a/test-suite/standalone/Makefile.am 
b/test-suite/standalone/Makefile.am
index 806245c..34266b7 100644
--- a/test-suite/standalone/Makefile.am
+++ b/test-suite/standalone/Makefile.am
@@ -79,7 +79,7 @@ TESTS += test-round
 
 # test-asmobs
 noinst_LTLIBRARIES += libtest-asmobs.la
-libtest_asmobs_la_SOURCES = test-asmobs-lib.c test-asmobs-lib.x
+libtest_asmobs_la_SOURCES = test-asmobs-lib.c
 libtest_asmobs_la_CFLAGS = ${test_cflags}
 libtest_asmobs_la_LDFLAGS = -no-undefined -rpath `pwd` # so libtool will 
really build an .so
 libtest_asmobs_la_LIBADD = ${top_builddir}/libguile/address@hidden@.la
@@ -89,11 +89,10 @@ TESTS += test-asmobs
 
 # test-ffi
 noinst_LTLIBRARIES += libtest-ffi.la
-libtest_ffi_la_SOURCES = test-ffi-lib.c test-ffi-lib.x
+libtest_ffi_la_SOURCES = test-ffi-lib.c
 libtest_ffi_la_CFLAGS = ${test_cflags}
 libtest_ffi_la_LDFLAGS = -no-undefined -rpath `pwd` # so libtool will really 
build an .so
 libtest_ffi_la_LIBADD = ${top_builddir}/libguile/address@hidden@.la
-BUILT_SOURCES += test-ffi-lib.x
 check_SCRIPTS += test-ffi
 TESTS += test-ffi
 
diff --git a/test-suite/tests/compiler.test b/test-suite/tests/compiler.test
index 6d433eb..90538ac 100644
--- a/test-suite/tests/compiler.test
+++ b/test-suite/tests/compiler.test
@@ -1,5 +1,5 @@
 ;;;; compiler.test --- tests for the compiler      -*- scheme -*-
-;;;; Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+;;;; Copyright (C) 2008, 2009, 2010 Free Software Foundation, Inc.
 ;;;; 
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -16,10 +16,11 @@
 ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 
USA
 
 (define-module (test-suite tests compiler)
-  :use-module (test-suite lib)
-  :use-module (test-suite guile-test)
-  :use-module (system base compile)
-  :use-module ((system vm vm) #:select (the-vm vm-load)))
+  #:use-module (test-suite lib)
+  #:use-module (test-suite guile-test)
+  #:use-module (system base compile)
+  #:use-module ((system vm vm) #:select (the-vm vm-load))
+  #:use-module ((system vm program) #:select (program-sources source:addr)))
 
 (define read-and-compile
   (@@ (system base compile) read-and-compile))
@@ -105,3 +106,46 @@
       (compile '(eval-when (compile eval)
                   (fluid-set! current-reader (lambda args 'chbouib))))
       (eq? (fluid-ref current-reader) r))))
+
+
+(with-test-prefix "procedure-name"
+
+  (pass-if "program"
+    (let ((m  (make-module)))
+      (beautify-user-module! m)
+      (compile '(define (foo x) x) #:env m)
+      (eq? (procedure-name (module-ref m 'foo)) 'foo)))
+
+  (pass-if "program with lambda"
+    (let ((m  (make-module)))
+      (beautify-user-module! m)
+      (compile '(define foo (lambda (x) x)) #:env m)
+      (eq? (procedure-name (module-ref m 'foo)) 'foo)))
+
+  (pass-if "subr"
+    (eq? (procedure-name waitpid) 'waitpid)))
+
+
+(with-test-prefix "program-sources"
+
+  (with-test-prefix "source info associated with IP 0"
+
+    ;; Tools like `(system vm coverage)' like it when source info is associated
+    ;; with IP 0 of a VM program, which corresponds to the entry point.  See
+    ;; also <http://savannah.gnu.org/bugs/?29817> for details.
+
+    (pass-if "lambda"
+      (let ((s (program-sources (compile '(lambda (x) x)))))
+        (not (not (memv 0 (map source:addr s))))))
+
+    (pass-if "lambda*"
+      (let ((s (program-sources
+                (compile '(lambda* (x #:optional y) x)))))
+        (not (not (memv 0 (map source:addr s))))))
+
+    (pass-if "case-lambda"
+      (let ((s (program-sources
+                (compile '(case-lambda (()    #t)
+                                       ((y)   y)
+                                       ((y z) (list y z)))))))
+        (not (not (memv 0 (map source:addr s))))))))


hooks/post-receive
-- 
GNU Guile