From 7d589c31bb4bf0846e2541e75988c97a1ebf2860 Mon Sep 17 00:00:00 2001 From: rrt Date: Wed, 31 Oct 2001 16:38:55 +0000 Subject: [PATCH] [project @ 2001-10-31 16:38:55 by rrt] Beginnings of .NET Integer support. --- ghc/lib/std/PrelNum.lhs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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. -- 1.7.10.4