projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4ebe783
)
[project @ 1997-05-18 04:29:32 by sof]
author
sof
<unknown>
Sun, 18 May 1997 04:29:32 +0000
(
04:29
+0000)
committer
sof
<unknown>
Sun, 18 May 1997 04:29:32 +0000
(
04:29
+0000)
Added absIntZh (just to be on the safe side)
ghc/includes/StgMacros.lh
patch
|
blob
|
history
diff --git
a/ghc/includes/StgMacros.lh
b/ghc/includes/StgMacros.lh
index
059f44c
..
c638b6d
100644
(file)
--- 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}
%************************************************************************