[pure-lang-svn] SF.net SVN: pure-lang: [80] pure/trunk/interpreter.cc

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

Revision: 80
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=80&view=rev
Author:   agraef
Date:     2008-05-13 13:59:09 -0700 (Tue, 13 May 2008)

Log Message:
-----------
64 bit: bigint fixes, correction.

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

Modified: pure/trunk/interpreter.cc
===================================================================
--- pure/trunk/interpreter.cc	2008-05-13 18:41:46 UTC (rev 79)
+++ pure/trunk/interpreter.cc	2008-05-13 20:59:09 UTC (rev 80)
@@ -204,7 +204,8 @@
   declare_extern((void*)pure_apply,
 		 "pure_apply",      "expr*",  2, "expr*", "expr*");
   declare_extern((void*)pure_cmp_bigint,
-		 "pure_cmp_bigint", "int",    3, "expr*", "int", "long*");
+		 "pure_cmp_bigint", "int",    3, "expr*", "int",
+		 sizeof(mp_limb_t)==8?"long*":"int*");
   declare_extern((void*)pure_cmp_string,
 		 "pure_cmp_string", "int",    2, "expr*", "char*");
 


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