diff options
Diffstat (limited to 'rts/sm')
| -rw-r--r-- | rts/sm/HeapAlloc.h | 4 | ||||
| -rw-r--r-- | rts/sm/MBlock.c | 4 | ||||
| -rw-r--r-- | rts/sm/Sanity.c | 6 |
3 files changed, 7 insertions, 7 deletions
diff --git a/rts/sm/HeapAlloc.h b/rts/sm/HeapAlloc.h index a867a484ae..0ec1e6d7bb 100644 --- a/rts/sm/HeapAlloc.h +++ b/rts/sm/HeapAlloc.h @@ -162,10 +162,10 @@ typedef struct { extern W_ mpc_misses; -StgBool HEAP_ALLOCED_miss(StgWord mblock, void *p); +StgBool HEAP_ALLOCED_miss(StgWord mblock, const void *p); INLINE_HEADER -StgBool HEAP_ALLOCED(void *p) +StgBool HEAP_ALLOCED(const void *p) { StgWord mblock; uint32_t entry_no; diff --git a/rts/sm/MBlock.c b/rts/sm/MBlock.c index 11b12d1c16..440b03efa7 100644 --- a/rts/sm/MBlock.c +++ b/rts/sm/MBlock.c @@ -359,7 +359,7 @@ uint32_t mblock_map_count = 0; MbcCacheLine mblock_cache[MBC_ENTRIES]; static MBlockMap * -findMBlockMap(void *p) +findMBlockMap(const void *p) { uint32_t i; StgWord32 hi = (StgWord32) (((StgWord)p) >> 32); @@ -373,7 +373,7 @@ findMBlockMap(void *p) return NULL; } -StgBool HEAP_ALLOCED_miss(StgWord mblock, void *p) +StgBool HEAP_ALLOCED_miss(StgWord mblock, const void *p) { MBlockMap *map; MBlockMapLine value; diff --git a/rts/sm/Sanity.c b/rts/sm/Sanity.c index 794bce7491..2abe56b9bc 100644 --- a/rts/sm/Sanity.c +++ b/rts/sm/Sanity.c @@ -35,7 +35,7 @@ static void checkSmallBitmap ( StgPtr payload, StgWord bitmap, uint32_t ); static void checkLargeBitmap ( StgPtr payload, StgLargeBitmap*, uint32_t ); -static void checkClosureShallow ( StgClosure * ); +static void checkClosureShallow ( const StgClosure * ); static void checkSTACK (StgStack *stack); /* ----------------------------------------------------------------------------- @@ -79,9 +79,9 @@ checkLargeBitmap( StgPtr payload, StgLargeBitmap* large_bitmap, uint32_t size ) */ static void -checkClosureShallow( StgClosure* p ) +checkClosureShallow( const StgClosure* p ) { - StgClosure *q; + const StgClosure *q; q = UNTAG_CLOSURE(p); ASSERT(LOOKS_LIKE_CLOSURE_PTR(q)); |