pure-lang-svn

[pure-lang-svn] SF.net SVN: pure-lang: [10] pure/trunk/lib/primitives.pure

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

Revision: 10
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=10&view=rev
Author:   agraef
Date:     2008-04-30 10:39:44 -0700 (Wed, 30 Apr 2008)

Log Message:
-----------
Fix broken put_xyz operations.

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

Modified: pure/trunk/lib/primitives.pure
===================================================================
--- pure/trunk/lib/primitives.pure	2008-04-30 16:24:09 UTC (rev 9)
+++ pure/trunk/lib/primitives.pure	2008-04-30 17:39:44 UTC (rev 10)
@@ -282,9 +282,9 @@
 extern void pointer_put_string(void *ptr, char *x); // IMPURE!
 extern void pointer_put_pointer(void *ptr, void *x); // IMPURE!
 
-put_byte x::pointer y::int = pointer_put_byte x;
-put_int x::pointer y::int = pointer_put_int x;
-put_double x::pointer y::double = pointer_put_double x;
-put_string x::pointer y::string = pointer_put_string x;
-put_pointer x::pointer y::string = pointer_put_pointer x;
-put_pointer x::pointer y::pointer = pointer_put_pointer x;
+put_byte x::pointer y::int = pointer_put_byte x y;
+put_int x::pointer y::int = pointer_put_int x y;
+put_double x::pointer y::double = pointer_put_double x y;
+put_string x::pointer y::string = pointer_put_string x y;
+put_pointer x::pointer y::string = pointer_put_pointer x y;
+put_pointer x::pointer y::pointer = pointer_put_pointer x y;


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

[pure-lang-svn] SF.net SVN: pure-lang: [347] pure/trunk/lib/primitives.pure

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

Revision: 347
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=347&view=rev
Author:   agraef
Date:     2008-07-01 03:50:29 -0700 (Tue, 01 Jul 2008)

Log Message:
-----------
Fix up real powers of integers so that we get a complex result with math.pure.

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

Modified: pure/trunk/lib/primitives.pure
===================================================================
--- pure/trunk/lib/primitives.pure	2008-07-01 10:43:04 UTC (rev 346)
+++ pure/trunk/lib/primitives.pure	2008-07-01 10:50:29 UTC (rev 347)
@@ -308,6 +308,7 @@
 x::double^y::bigint	= c_pow x (double y);
 x::int^y::double	|
 x::bigint^y::double	= c_pow (double x) y if x>=0 || int y==y;
+			= double x^y otherwise;
 
 /* Pointer arithmetic. We do this using bigints, so that the code is portable
    to 64 bit systems. */


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