[Commit] nickle ChangeLog,1.81,1.82 builtin-file.c,1.17,1.18

[Bart Massey]

Committed by: bart

Update of /local/src/CVS/nickle
In directory home.keithp.com:/tmp/cvs-serv29601

Modified Files:
	ChangeLog builtin-file.c 
Log Message:
* builtin-file.c:
don't allow bases smaller than 2 in do_File_print().
Closes bug report by Clem Taylor <clemtaylor at comcast.net>.
	


Index: ChangeLog
===================================================================
RCS file: /local/src/CVS/nickle/ChangeLog,v
retrieving revision 1.81
retrieving revision 1.82
diff -u -d -r1.81 -r1.82
--- ChangeLog	13 Aug 2004 04:40:17 -0000	1.81
+++ ChangeLog	22 Aug 2004 23:45:31 -0000	1.82
@@ -1,3 +1,9 @@
+2004-08-22  Bart Massey <bart at cs.pdx.edu>
+
+	* builtin-file.c:
+	don't allow bases smaller than 2 in do_File_print().
+	Closes bug report by Clem Taylor <clemtaylor at comcast.net>.
+	
 2004-08-12  Keith Packard  <keithp at keithp.com>
 
 	* Makefile.am:

Index: builtin-file.c
===================================================================
RCS file: /local/src/CVS/nickle/builtin-file.c,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- builtin-file.c	8 Jun 2004 09:30:53 -0000	1.17
+++ builtin-file.c	22 Aug 2004 23:45:32 -0000	1.18
@@ -215,6 +215,12 @@
     ibase = IntPart (base, "Illegal base");
     if (aborting)
 	return Void;
+    if (ibase < 2) {
+	RaiseStandardException (exception_invalid_argument,
+				"base is less than 2",
+				2, NewInt (0), base);
+	return Void;
+    }
     iwidth = IntPart (width, "Illegal width");
     if (aborting)
 	return Void;