[pure-lang-svn] SF.net SVN: pure-lang:[651] pure/trunk

[<ag...@us...>]

Revision: 651
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=651&view=rev
Author:   agraef
Date:     2008-08-28 11:25:58 +0000 (Thu, 28 Aug 2008)

Log Message:
-----------
Moved definition of NULL to primitives.pure.

Modified Paths:
--------------
    pure/trunk/interpreter.cc
    pure/trunk/lib/primitives.pure

Modified: pure/trunk/interpreter.cc
===================================================================
--- pure/trunk/interpreter.cc	2008-08-28 11:22:17 UTC (rev 650)
+++ pure/trunk/interpreter.cc	2008-08-28 11:25:58 UTC (rev 651)
@@ -337,8 +337,6 @@
   defn("argv",		args);
   defn("version",	pure_cstring_dup(version.c_str()));
   defn("sysinfo",	pure_cstring_dup(host.c_str()));
-  // null pointer
-  const_defn("NULL",	pure_pointer(0));
 }
 
 // Errors and warnings.

Modified: pure/trunk/lib/primitives.pure
===================================================================
--- pure/trunk/lib/primitives.pure	2008-08-28 11:22:17 UTC (rev 650)
+++ pure/trunk/lib/primitives.pure	2008-08-28 11:25:58 UTC (rev 651)
@@ -373,6 +373,8 @@
 /* Pointer arithmetic. We do this using bigints, so that the code is portable
    to 64 bit systems. */
 
+const NULL = pointer 0; // the null pointer
+
 null x::pointer		= bigint x==0;
 
 x::pointer-y::pointer	= bigint x-bigint y;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.