From: rrt <unknown>
Date: Wed, 31 Oct 2001 16:38:55 +0000 (+0000)
Subject: [project @ 2001-10-31 16:38:55 by rrt]
X-Git-Tag: Approximately_9120_patches~660
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7d589c31bb4bf0846e2541e75988c97a1ebf2860;p=ghc-hetmet.git

[project @ 2001-10-31 16:38:55 by rrt]
Beginnings of .NET Integer support.
---

diff --git a/ghc/lib/std/PrelNum.lhs b/ghc/lib/std/PrelNum.lhs
index 6707bd5..4d0af57 100644
--- a/ghc/lib/std/PrelNum.lhs
+++ b/ghc/lib/std/PrelNum.lhs
@@ -1,5 +1,5 @@
 % ------------------------------------------------------------------------------
-% $Id: PrelNum.lhs,v 1.41 2001/10/03 13:57:42 simonmar Exp $
+% $Id: PrelNum.lhs,v 1.42 2001/10/31 16:38:55 rrt Exp $
 %
 % (c) The University of Glasgow, 1994-2000
 %
@@ -109,7 +109,13 @@ divModInt x@(I# _) y@(I# _) = (x `divInt` y, x `modInt` y)
 \begin{code}
 data Integer	
    = S# Int#				-- small integers
+#ifndef ILX
    | J# Int# ByteArray#			-- large integers
+#else
+   | J# Void BigInteger                 -- .NET big ints
+
+foreign type dotnet "BigInteger" BigInteger
+#endif
 \end{code}
 
 Convenient boxed Integer PrimOps.