[Commit] nickle ChangeLog, 1.74, 1.75 builtin-toplevel.c, 1.26, 1.27 nickle.h, 1.119, 1.120

[Bart Massey]

Committed by: bart

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

Modified Files:
	ChangeLog builtin-toplevel.c nickle.h 
Log Message:
Be able to mark a box uninit (for shift())



Index: ChangeLog
===================================================================
RCS file: /local/src/CVS/nickle/ChangeLog,v
retrieving revision 1.74
retrieving revision 1.75
diff -u -d -r1.74 -r1.75
--- ChangeLog	9 Jul 2004 18:48:35 -0000	1.74
+++ ChangeLog	22 Jul 2004 19:42:06 -0000	1.75
@@ -1,3 +1,9 @@
+2004-07-22  Bart Massey  <bart at cs.pdx.edu>
+
+	* value.h:
+	* builtin-toplevel.c: (do_make_uninit):
+	Be able to mark a box uninit (for shift())
+	
 2004-07-09  Keith Packard  <keithp at keithp.com>
 
 	* func.c: (MarkFuncCode), (MarkBuiltinCode):

Index: builtin-toplevel.c
===================================================================
RCS file: /local/src/CVS/nickle/builtin-toplevel.c,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- builtin-toplevel.c	8 Jun 2004 09:30:53 -0000	1.26
+++ builtin-toplevel.c	22 Jul 2004 19:42:06 -0000	1.27
@@ -130,6 +130,10 @@
 	    " bool is_uninit (*poly r)\n"
 	    "\n"
 	    " Return whether 'r' references uninitialized storage.\n" },
+        { do_make_uninit, "make_uninit", "v", "*p", "\n"
+	    " void make_uninit (*poly r)\n"
+	    "\n"
+	    " Makes 'r' reference uninitialized storage.\n" },
         { do_mantissa, "mantissa", "r", "R", "\n"
 	    " rational mantissa (real r)\n"
 	    "\n"
@@ -834,6 +838,20 @@
 }
 
 Value
+do_make_uninit (Value av)
+{
+    ENTER ();
+    if (!av) {
+	RaiseStandardException (exception_invalid_argument,
+				"do_make_uninit: invalid reference",
+				2, NewInt (0), av);
+    } else {
+	RefValueSet(av, 0);
+    }
+    RETURN (Void);
+}
+
+Value
 do_is_array (Value av)
 {
     ENTER ();

Index: nickle.h
===================================================================
RCS file: /local/src/CVS/nickle/nickle.h,v
retrieving revision 1.119
retrieving revision 1.120
diff -u -d -r1.119 -r1.120
--- nickle.h	17 Jun 2004 20:30:47 -0000	1.119
+++ nickle.h	22 Jul 2004 19:42:06 -0000	1.120
@@ -987,6 +987,7 @@
 Value	do_is_bool (Value);
 Value	do_is_void (Value);
 Value	do_is_uninit (Value);
+Value	do_make_uninit (Value);
 Value	do_hash (Value);
 Value	do_Thread_get_priority (Value);
 Value	do_Thread_id_to_thread (Value);