CLISP - an ANSI Common Lisp

Email Archive: clisp-devel (read-only)

clisp-cvs Digest, Vol 22, Issue 27
From: <clisp-cvs-request@li...> - 2008-02-26 20:06
Send clisp-cvs mailing list submissions to
	clisp-cvs@...

To subscribe or unsubscribe via the World Wide Web, visit
	https://lists.sourceforge.net/lists/listinfo/clisp-cvs
or, via email, send a message with subject or body 'help' to
	clisp-cvs-request@...

You can reach the person managing the list at
	clisp-cvs-owner@...

When replying, please edit your Subject line so it is more specific
than "Re: Contents of clisp-cvs digest..."


CLISP CVS commits for today

Today's Topics:

   1. clisp/src ChangeLog,1.6019,1.6020 (Bruno Haible)
   2. clisp/src spvw_debug.d,1.78,1.79 ChangeLog,1.6020,1.6021
      (Sam Steingold)
   3. clisp/src spvw_garcol.d, 1.103, 1.104 makemake.in, 1.726,
      1.727 ChangeLog, 1.6021, 1.6022 (Sam Steingold)


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

Message: 1
Date: Mon, 25 Feb 2008 22:41:06 +0000
From: Bruno Haible <haible@...>
Subject: clisp/src ChangeLog,1.6019,1.6020
To: clisp-cvs@...
Message-ID: <E1JTm0T-0008SB-BB@...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv20519/src

Modified Files:
	ChangeLog 
Log Message:
Update a ChangeLog entry from yesterday.


Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.6019
retrieving revision 1.6020
diff -u -d -r1.6019 -r1.6020
--- ChangeLog	25 Feb 2008 14:37:39 -0000	1.6019
+++ ChangeLog	25 Feb 2008 22:41:02 -0000	1.6020
@@ -28,11 +28,9 @@
 
 2008-02-24  Bruno Haible  <bruno@...>
 
-	* Makefile.devel (GTK2_VERSION, GTK2_SOURCE_FILE, GTK2_SOURCE_URL): New
-	variables.
+	* Makefile.devel (GTK2_SVN_ROOT): New variable.
 	(src/m4/gtk-2.0.m4): New rule.
 	(src/aclocal.m4): Depend on it.
-	(EXCLUDE): Also exclude the GTK2_SOURCE_FILE.
 
 2008-02-24  Bruno Haible  <bruno@...>
 




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

Message: 2
Date: Tue, 26 Feb 2008 17:45:15 +0000
From: Sam Steingold <sds@...>
Subject: clisp/src spvw_debug.d,1.78,1.79 ChangeLog,1.6020,1.6021
To: clisp-cvs@...
Message-ID: <E1JU3rg-0000fb-U8@...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv29765/src

Modified Files:
	spvw_debug.d ChangeLog 
Log Message:
(DEBUG_SPVW_ASSERT): print the failed assertion before abort()
both as is and with expanded macros


Index: spvw_debug.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/spvw_debug.d,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -d -r1.78 -r1.79
--- spvw_debug.d	8 Feb 2008 17:17:29 -0000	1.78
+++ spvw_debug.d	26 Feb 2008 17:45:06 -0000	1.79
@@ -2,7 +2,8 @@
 
 /* DEBUG_SPVW_ASSERT(expression) is an assertion used to debug SPVW. */
 #ifdef DEBUG_SPVW
-  #define DEBUG_SPVW_ASSERT(expression)  if (!(expression)) abort(); else (void)0/*;*/
+  /* print the failed assertion before abort() as is and with expanded macros */
+  #define DEBUG_SPVW_ASSERT(expression)  if (!(expression)) {fprintf(stderr,"\n[%s:%d] assertion failure:\n" #expression "\n" STRING(expression) "\n",__FILE__,__LINE__); abort();} else (void)0/*;*/
 #else
   #define DEBUG_SPVW_ASSERT(expression)  (void)0/*;*/
 #endif

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.6020
retrieving revision 1.6021
diff -u -d -r1.6020 -r1.6021
--- ChangeLog	25 Feb 2008 22:41:02 -0000	1.6020
+++ ChangeLog	26 Feb 2008 17:45:07 -0000	1.6021
@@ -1,3 +1,8 @@
+2008-02-26  Sam Steingold  <sds@...>
+
+	* spvw_debug.d (DEBUG_SPVW_ASSERT): print the failed assertion
+	before abort() both as is and with expanded macros
+
 2008-02-25  Sam Steingold  <sds@...>
 
 	* Makefile.devel (src/m4/gtk-2.0.m4): use wget instead of svn




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

Message: 3
Date: Tue, 26 Feb 2008 17:56:28 +0000
From: Sam Steingold <sds@...>
Subject: clisp/src spvw_garcol.d, 1.103, 1.104 makemake.in, 1.726,
	1.727 ChangeLog, 1.6021, 1.6022
To: clisp-cvs@...
Message-ID: <E1JU42Y-0002QZ-91@...>

Update of /cvsroot/clisp/clisp/src
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv2077/src

Modified Files:
	spvw_garcol.d makemake.in ChangeLog 
Log Message:
a less invasive work-around for bug #[ 1413016 ]:
it is not amd64 which is at fault, but TYPECODES
* makemake.in (XCFLAGS): revert the 2007-10-15 patch
* spvw_garcol.d (update) [TYPECODES]: comment out DEBUG_SPVW_ASSERT
(gc_unmarkcheck) [TYPECODES]: disable


Index: spvw_garcol.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/spvw_garcol.d,v
retrieving revision 1.103
retrieving revision 1.104
diff -u -d -r1.103 -r1.104
--- spvw_garcol.d	13 Feb 2008 23:40:56 -0000	1.103
+++ spvw_garcol.d	26 Feb 2008 17:56:25 -0000	1.104
@@ -1237,8 +1237,8 @@
               if (marked(ThePointer(obj))) {             /* marked? */  \
                 var object newptr =                                     \
                   type_untype_object(type,untype(*(gcv_object_t*)ThePointer(obj))); \
-                DEBUG_SPVW_ASSERT(is_valid_varobject_address(as_oint(newptr)) \
-                                  || is_valid_stack_address(as_oint(newptr))); \
+                /*DEBUG_SPVW_ASSERT(is_valid_varobject_address(as_oint(newptr))\
+                  || is_valid_stack_address(as_oint(newptr)));*/        \
                 *(gcv_object_t*)objptr = newptr;                        \
               }                                                         \
           }                                                             \
@@ -1385,7 +1385,7 @@
   page->page_end = p2; /* set upper bound of the objects of variable length */
 }
 
-#if defined(DEBUG_SPVW) && !defined(GENERATIONAL_GC)
+#if defined(DEBUG_SPVW) && !defined(GENERATIONAL_GC) && !defined(TYPECODES)
   /* check, if everything is really unmarked: */
   #define CHECK_GC_UNMARKED()  gc_unmarkcheck()
 local void gc_unmarkcheck (void) {

Index: makemake.in
===================================================================
RCS file: /cvsroot/clisp/clisp/src/makemake.in,v
retrieving revision 1.726
retrieving revision 1.727
diff -u -d -r1.726 -r1.727
--- makemake.in	24 Feb 2008 23:45:20 -0000	1.726
+++ makemake.in	26 Feb 2008 17:56:25 -0000	1.727
@@ -1372,11 +1372,7 @@
   elif [ ${HSYS} != "win32msvc" ]; then
     XCFLAGS=$XCFLAGS' -g'
   fi
-  XCFLAGS=$XCFLAGS' -DDEBUG_OS_ERROR -DDEBUG_BYTECODE -DSAFETY=3'
-  if [ "$cpu" != x86_64 ]; then
-    # http://sourceforge.net/tracker/index.php?func=detail&aid=1413016&group_id=1355&atid=101355
-    XCFLAGS=$XCFLAGS' -DDEBUG_SPVW'
-  fi
+  XCFLAGS=$XCFLAGS' -DDEBUG_OS_ERROR -DDEBUG_SPVW -DDEBUG_BYTECODE -DSAFETY=3'
   case "$CC" in
     *"g++"* ) XCFLAGS=$XCFLAGS' -DDEBUG_GCSAFETY'; ;;
   esac

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.6021
retrieving revision 1.6022
diff -u -d -r1.6021 -r1.6022
--- ChangeLog	26 Feb 2008 17:45:07 -0000	1.6021
+++ ChangeLog	26 Feb 2008 17:56:25 -0000	1.6022
@@ -1,5 +1,13 @@
 2008-02-26  Sam Steingold  <sds@...>
 
+	a less invasive work-around for bug #[ 1413016 ]:
+	it is not amd64 which is at fault, but TYPECODES
+	* makemake.in (XCFLAGS): revert the 2007-10-15 patch
+	* spvw_garcol.d (update) [TYPECODES]: comment out DEBUG_SPVW_ASSERT
+	(gc_unmarkcheck) [TYPECODES]: disable
+
+2008-02-26  Sam Steingold  <sds@...>
+
 	* spvw_debug.d (DEBUG_SPVW_ASSERT): print the failed assertion
 	before abort() both as is and with expanded macros
 




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

-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/

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

_______________________________________________
clisp-cvs mailing list
clisp-cvs@...
https://lists.sourceforge.net/lists/listinfo/clisp-cvs


End of clisp-cvs Digest, Vol 22, Issue 27
*****************************************
Thread View

Thread	Author	Date
clisp-cvs Digest, Vol 22, Issue 27	<clisp-cvs-request@li...>