diff options
| author | sof <unknown> | 2003-11-12 17:49:11 +0000 |
|---|---|---|
| committer | sof <unknown> | 2003-11-12 17:49:11 +0000 |
| commit | 20593d1d1cf47050d9430895a1c2ada6c39dfb98 (patch) | |
| tree | 0f93410b3bf46f851d5fc08085d0c9a8300d3cd4 /ghc/rts/BlockAlloc.c | |
| parent | a814590c794226b34c0c9aff4138b0e7722ddab5 (diff) | |
| download | haskell-20593d1d1cf47050d9430895a1c2ada6c39dfb98.tar.gz | |
[project @ 2003-11-12 17:49:05 by sof]
Tweaks to have RTS (C) sources compile with MSVC. Apart from wibbles
related to the handling of 'inline', changed Schedule.h:POP_RUN_QUEUE()
not to use expression-level statement blocks.
Diffstat (limited to 'ghc/rts/BlockAlloc.c')
| -rw-r--r-- | ghc/rts/BlockAlloc.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/rts/BlockAlloc.c b/ghc/rts/BlockAlloc.c index 8e09d0cc5c..63da2a2b63 100644 --- a/ghc/rts/BlockAlloc.c +++ b/ghc/rts/BlockAlloc.c @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: BlockAlloc.c,v 1.16 2003/02/18 05:47:53 sof Exp $ + * $Id: BlockAlloc.c,v 1.17 2003/11/12 17:49:05 sof Exp $ * * (c) The GHC Team 1998-2000 * @@ -44,7 +44,7 @@ void initBlockAllocator(void) Allocation -------------------------------------------------------------------------- */ -static inline void +STATIC_INLINE void initGroup(nat n, bdescr *head) { bdescr *bd; @@ -194,7 +194,7 @@ allocMegaGroup(nat n) * pointer to the newly enlarged group p. */ -static inline bdescr * +STATIC_INLINE bdescr * coalesce(bdescr *p) { bdescr *bd, *q; |