diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2020-01-26 09:29:57 +0000 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2020-01-26 09:29:57 +0000 |
commit | a37535b2bd2eb5cad1fc502cbff2ed6db0befe5d (patch) | |
tree | 1dba3f9e55c39ae459ac2ee8cbfef078aecba83b | |
parent | 1da1ad0752ff81cc4bc531df7dabc091ae660820 (diff) | |
download | haskell-a37535b2bd2eb5cad1fc502cbff2ed6db0befe5d.tar.gz |
Make Block.h compile with c++ compilerswip/ghc-debug-rebased
-rw-r--r-- | includes/rts/storage/Block.h | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/includes/rts/storage/Block.h b/includes/rts/storage/Block.h index 4afc3689cb..626cddb2a2 100644 --- a/includes/rts/storage/Block.h +++ b/includes/rts/storage/Block.h @@ -84,10 +84,18 @@ // freely modified. #if !defined(CMINUSMINUS) + + +struct NonmovingSegmentInfo { + StgWord8 log_block_size; + StgWord16 next_free_snap; +}; + typedef struct bdescr_ { StgPtr start; // [READ ONLY] start addr of memory + union { StgPtr free; // First free byte of memory. // allocGroup() sets this to the value of start. @@ -100,10 +108,7 @@ typedef struct bdescr_ { // indicate that a block is unallocated. // // Unused by the non-moving allocator. - struct NonmovingSegmentInfo { - StgWord8 log_block_size; - StgWord16 next_free_snap; - } nonmoving_segment; + struct NonmovingSegmentInfo nonmoving_segment; }; struct bdescr_ *link; // used for chaining blocks together |