X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FLdvProfile.c;h=7db89038311686932bc3d04861cb54b1811490ef;hb=085afd3e54adb6a240b8c498bae29e4b7402525a;hp=31777e5557bda0c9b648fa8f9e7213f1ac0499c1;hpb=557947d3f93e11285e36423ddb08d859af60ab47;p=ghc-hetmet.git diff --git a/ghc/rts/LdvProfile.c b/ghc/rts/LdvProfile.c index 31777e5..7db8903 100644 --- a/ghc/rts/LdvProfile.c +++ b/ghc/rts/LdvProfile.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: LdvProfile.c,v 1.5 2003/02/22 04:51:51 sof Exp $ + * $Id: LdvProfile.c,v 1.6 2003/11/12 17:49:08 sof Exp $ * * (c) The GHC Team, 2001 * Author: Sungwoo Park @@ -94,7 +94,7 @@ LDV_recordDead_FILL_SLOP_DYNAMIC( StgClosure *p ) * closure. Returns the size of the closure, including the profiling * header portion, so that the caller can find the next closure. * ----------------------------------------------------------------------- */ -static inline nat +STATIC_INLINE nat processHeapClosureForDead( StgClosure *c ) { nat size;