clisp-cvs Digest, Vol 5, Issue 9

[<cli...@li...>]

Send clisp-cvs mailing list submissions to
	cli...@li...

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
	cli...@li...

You can reach the person managing the list at
	cli...@li...

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/modules/libsvm - New directory (Sam Steingold)
   2. clisp/src io.d,1.296,1.297 ChangeLog,1.5387,1.5388 (Sam Steingold)
   3. clisp/src foreign.d,1.158,1.159 ChangeLog,1.5388,1.5389
      (Sam Steingold)


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

Message: 1
Date: Tue, 19 Sep 2006 23:13:51 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/modules/libsvm - New directory
To: cli...@li...
Message-ID: <E1G...@ma...>

Update of /cvsroot/clisp/clisp/modules/libsvm
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv16165/libsvm

Log Message:
Directory /cvsroot/clisp/clisp/modules/libsvm added to the repository





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

Message: 2
Date: Wed, 20 Sep 2006 01:01:56 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src io.d,1.296,1.297 ChangeLog,1.5387,1.5388
To: cli...@li...
Message-ID: <E1G...@ma...>

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

Modified Files:
	io.d ChangeLog 
Log Message:
more meaningful error message on top-level READ
with a non-NIL recursive-p argument
(check_read_reference_table): new function
(make_references, lookup_label): use it


Index: io.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/io.d,v
retrieving revision 1.296
retrieving revision 1.297
diff -u -d -r1.296 -r1.297
--- io.d	9 Sep 2006 05:04:44 -0000	1.296
+++ io.d	20 Sep 2006 01:01:53 -0000	1.297
@@ -2223,6 +2223,14 @@
          GETTEXT("~S: the value of ~S has been arbitrarily altered to ~S"));
 }
 
+local object check_read_reference_table (void) {
+  var object val = Symbol_value(S(read_reference_table));
+  if (boundp(val)) return val;
+  pushSTACK(S(read)); pushSTACK(S(read_reference_table));
+  pushSTACK(TheSubr(subr_self)->name);
+  fehler(error,GETTEXT("~S: symbol ~S is not bound, it appears that top-level ~S was called with a non-NIL recursive-p argument"));
+}
+
 /* UP: disentangles #n# - References to #n= - markings in an Object.
  > value of SYS::*READ-REFERENCE-TABLE*:
      Alist of Pairs (marking . marked Object), where
@@ -2230,7 +2238,7 @@
  > obj: Object
  < result: destructively modified Object without References */
 local object make_references (object obj) {
-  var object alist = Symbol_value(S(read_reference_table));
+  var object alist = check_read_reference_table();
   # SYS::*READ-REFERENCE-TABLE* = NIL -> nothing to do:
   if (nullp(alist)) {
     return obj;
@@ -3652,7 +3660,7 @@
   }
   # n is an Integer >=0.
   var object alist = # value of SYS::*READ-REFERENCE-TABLE*
-    Symbol_value(S(read_reference_table));
+    check_read_reference_table();
   # Execute (assoc n alist :test #'read-label-equal):
   var bool smallp = small_read_label_integer_p(n);
   var object label = (smallp ? make_small_read_label(posfixnum_to_V(n)) : nullobj);

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.5387
retrieving revision 1.5388
diff -u -d -r1.5387 -r1.5388
--- ChangeLog	11 Sep 2006 02:41:06 -0000	1.5387
+++ ChangeLog	20 Sep 2006 01:01:53 -0000	1.5388
@@ -1,3 +1,10 @@
+2006-09-15  Sam Steingold  <sd...@po...>
+
+	more meaningful error message on top-level READ with a non-NIL
+	recursive-p argument
+	* io.d (check_read_reference_table): new function
+	(make_references, lookup_label): use it
+
 2006-09-10  Sam Steingold  <sd...@po...>
 
 	* modules/rawsock/configure.in (net/if.h): need <sys/types.h> on *BSD




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

Message: 3
Date: Wed, 20 Sep 2006 01:02:56 +0000
From: Sam Steingold <sd...@us...>
Subject: clisp/src foreign.d,1.158,1.159 ChangeLog,1.5388,1.5389
To: cli...@li...
Message-ID: <E1G...@ma...>

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

Modified Files:
	foreign.d ChangeLog 
Log Message:
(convert_from_foreign, convert_to_foreign):
check data==NULL and issue an error instead of a segfault


Index: foreign.d
===================================================================
RCS file: /cvsroot/clisp/clisp/src/foreign.d,v
retrieving revision 1.158
retrieving revision 1.159
diff -u -d -r1.158 -r1.159
--- foreign.d	8 Sep 2006 00:26:31 -0000	1.158
+++ foreign.d	20 Sep 2006 01:02:53 -0000	1.159
@@ -1040,6 +1040,10 @@
 }
 global maygc object convert_from_foreign (object fvd, const void* data)
 {
+  if (NULL == data) {
+    pushSTACK(fvd); pushSTACK(TheSubr(subr_self)->name);
+    fehler(error,GETTEXT("~S: trying to read an object of type ~S from NULL address"));
+  }
   check_SP();
   check_STACK();
   if (symbolp(fvd)) {
@@ -1850,6 +1854,10 @@
 global maygc void convert_to_foreign (object fvd, object obj, void* data,
                                       converter_malloc_t converter_malloc)
 {
+  if (NULL == data) {
+    pushSTACK(fvd); pushSTACK(obj); pushSTACK(TheSubr(subr_self)->name);
+    fehler(error,GETTEXT("~S: trying to write object ~S of type ~S into NULL address"));
+  }
   check_SP();
   check_STACK();
   if (symbolp(fvd)) {

Index: ChangeLog
===================================================================
RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v
retrieving revision 1.5388
retrieving revision 1.5389
diff -u -d -r1.5388 -r1.5389
--- ChangeLog	20 Sep 2006 01:01:53 -0000	1.5388
+++ ChangeLog	20 Sep 2006 01:02:53 -0000	1.5389
@@ -1,3 +1,8 @@
+2006-09-19  Sam Steingold  <sd...@po...>
+
+	* foreign.d (convert_from_foreign, convert_to_foreign):
+	check data==NULL and issue an error instead of a segfault
+
 2006-09-15  Sam Steingold  <sd...@po...>
 
 	more meaningful error message on top-level READ with a non-NIL




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

-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV

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

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


End of clisp-cvs Digest, Vol 5, Issue 9
***************************************