X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Frts%2FStable.c;h=c047469cf592f43962e433d8b30fea9a132ca7e8;hb=53fe941370fd7fc90bf2e725f0f0b7c0382ceb4e;hp=30a603a8ae66941317db8f499f3aa4d56e2d3263;hpb=2ec7f46d067748eb0f62e0b23b9ebf50ecfc67e0;p=ghc-hetmet.git diff --git a/ghc/rts/Stable.c b/ghc/rts/Stable.c index 30a603a..c047469 100644 --- a/ghc/rts/Stable.c +++ b/ghc/rts/Stable.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: Stable.c,v 1.26 2003/06/24 13:45:49 stolz Exp $ + * $Id: Stable.c,v 1.27 2003/11/12 17:49:11 sof Exp $ * * (c) The GHC Team, 1998-2002 * @@ -117,7 +117,7 @@ static HashTable *addrToStableHash = NULL; #define INIT_SPT_SIZE 64 -static inline void +STATIC_INLINE void initFreeList(snEntry *table, nat n, snEntry *free) { snEntry *p; @@ -197,7 +197,7 @@ lookupStableName(StgPtr p) } } -static inline void +STATIC_INLINE void freeStableName(snEntry *sn) { ASSERT(sn->sn_obj == NULL);