[pure-lang-svn] SF.net SVN: pure-lang: [135] pure/trunk/runtime.cc

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

Revision: 135
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=135&view=rev
Author:   agraef
Date:     2008-05-25 09:01:10 -0700 (Sun, 25 May 2008)

Log Message:
-----------
Bugfix in pointer -> bigint conversion.

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

Modified: pure/trunk/runtime.cc
===================================================================
--- pure/trunk/runtime.cc	2008-05-25 15:56:23 UTC (rev 134)
+++ pure/trunk/runtime.cc	2008-05-25 16:01:10 UTC (rev 135)
@@ -1211,11 +1211,12 @@
   case EXPR::INT:	return pure_pointer((void*)x->data.i);
   case EXPR::BIGINT:
     if (sizeof(mp_limb_t) == 8)
-      return pure_pointer((void*)x->data.z->_mp_d[0]);
+      return pure_pointer((void*)mpz_getlimbn(x->data.z, 0));
     else if (sizeof(void*) == 4)
       return pure_pointer((void*)mpz_get_ui(x->data.z));
     else {
-      uint64_t u = x->data.z->_mp_d[0]+(((uint64_t)x->data.z->_mp_d[1])<<32);
+      uint64_t u = mpz_getlimbn(x->data.z, 0) +
+	(((uint64_t)mpz_getlimbn(x->data.z, 1))<<32);
       return pure_pointer((void*)u);
     }
   default:		return 0;


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