X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FStgMacros.lh;fp=ghc%2Fincludes%2FStgMacros.lh;h=c638b6d9fa4d1f89cd17f176ffc42416c3fa2477;hb=a6e433788e0108c1fa2b287c5d20bee09f644c7e;hp=059f44c34f0456ca98255cbf3e211dd515be189a;hpb=4ebe783936b208b998d84686bdca83e7baf880de;p=ghc-hetmet.git

diff --git a/ghc/includes/StgMacros.lh b/ghc/includes/StgMacros.lh
index 059f44c..c638b6d 100644
--- a/ghc/includes/StgMacros.lh
+++ b/ghc/includes/StgMacros.lh
@@ -457,6 +457,8 @@ I_ stg_div PROTO((I_ a, I_ b));
 #define ZdZh(r,a,b)		r=ULTRASAFESTGCALL2(I_,(void *, I_, I_),stg_div,(a),(b))
 #define remIntZh(r,a,b)		r=(a)%(b)
 #define negateIntZh(r,a)	r=-(a)
+/* Ever used ? -- SOF */
+#define absIntZh(a)		r=(( (a) >= 0 ) ? (a) : (-(a)))
 \end{code}
 
 %************************************************************************