From b97d46a4df6bf00313225cd6f49628f49bb65c43 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sat, 23 Jan 1999 17:48:23 +0000
Subject: [PATCH] [project @ 1999-01-23 17:48:23 by sof] integerToInt64Zh:
didn't handle negative integers particularly well
---
ghc/includes/PrimOps.h | 33 ++++++++++++++++++---------------
1 file changed, 18 insertions(+), 15 deletions(-)
diff --git a/ghc/includes/PrimOps.h b/ghc/includes/PrimOps.h
index 58f2df0dd59f..e68a09d62963 100644
--- a/ghc/includes/PrimOps.h
+++ b/ghc/includes/PrimOps.h
@@ -1,5 +1,5 @@
/* -----------------------------------------------------------------------------
- * $Id: PrimOps.h,v 1.8 1999/01/21 10:31:42 simonm Exp $
+ * $Id: PrimOps.h,v 1.9 1999/01/23 17:48:23 sof Exp $
*
* Macros for primitive operations in STG-ish C code.
*
@@ -20,19 +20,19 @@
#define leCharZh(r,a,b) r=(I_)((a)<=(b))
/* Int comparisons: >#, >=# etc */
-#define ZgZh(r,a,b) r=(I_)((a) >(b))
-#define ZgZeZh(r,a,b) r=(I_)((a)>=(b))
-#define ZeZeZh(r,a,b) r=(I_)((a)==(b))
-#define ZdZeZh(r,a,b) r=(I_)((a)!=(b))
-#define ZlZh(r,a,b) r=(I_)((a) <(b))
-#define ZlZeZh(r,a,b) r=(I_)((a)<=(b))
-
-#define gtWordZh(r,a,b) r=(I_)((a) >(b))
-#define geWordZh(r,a,b) r=(I_)((a)>=(b))
-#define eqWordZh(r,a,b) r=(I_)((a)==(b))
-#define neWordZh(r,a,b) r=(I_)((a)!=(b))
-#define ltWordZh(r,a,b) r=(I_)((a) <(b))
-#define leWordZh(r,a,b) r=(I_)((a)<=(b))
+#define ZgZh(r,a,b) r=(I_)((I_)(a) >(I_)(b))
+#define ZgZeZh(r,a,b) r=(I_)((I_)(a)>=(I_)(b))
+#define ZeZeZh(r,a,b) r=(I_)((I_)(a)==(I_)(b))
+#define ZdZeZh(r,a,b) r=(I_)((I_)(a)!=(I_)(b))
+#define ZlZh(r,a,b) r=(I_)((I_)(a) <(I_)(b))
+#define ZlZeZh(r,a,b) r=(I_)((I_)(a)<=(I_)(b))
+
+#define gtWordZh(r,a,b) r=(I_)((W_)(a) >(W_)(b))
+#define geWordZh(r,a,b) r=(I_)((W_)(a)>=(W_)(b))
+#define eqWordZh(r,a,b) r=(I_)((W_)(a)==(W_)(b))
+#define neWordZh(r,a,b) r=(I_)((W_)(a)!=(W_)(b))
+#define ltWordZh(r,a,b) r=(I_)((W_)(a) <(W_)(b))
+#define leWordZh(r,a,b) r=(I_)((W_)(a)<=(W_)(b))
#define gtAddrZh(r,a,b) r=(I_)((a) >(b))
#define geAddrZh(r,a,b) r=(I_)((a)>=(b))
@@ -347,8 +347,11 @@ EF_(decodeDoubleZh_fast);
res = (LI_)d[0]; \
} else { \
res = (LI_)d[0] + (LI_)d[1] * 0x100000000LL; \
+ if ( sa < 0 ) { \
+ res = (LI_)-res; \
+ } \
} \
- (r) = res; \
+ (r) = res; \
}
/* Conversions */
--
GitLab