diff options
| -rw-r--r-- | includes/RtsAPI.h | 2 | ||||
| -rw-r--r-- | rts/hooks/Hooks.h | 2 | ||||
| -rw-r--r-- | rts/hooks/MallocFail.c | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/includes/RtsAPI.h b/includes/RtsAPI.h index 16b848678d..a4a094fd14 100644 --- a/includes/RtsAPI.h +++ b/includes/RtsAPI.h @@ -90,7 +90,7 @@ typedef struct { void (* outOfHeapHook) (W_ request_size, W_ heap_size); // Called when malloc() fails, before exiting - void (* mallocFailHook) (W_ request_size /* in bytes */, char *msg); + void (* mallocFailHook) (W_ request_size /* in bytes */, const char *msg); // Called for every GC void (* gcDoneHook) (unsigned int gen, diff --git a/rts/hooks/Hooks.h b/rts/hooks/Hooks.h index 35a6011aaa..1383ccdb0f 100644 --- a/rts/hooks/Hooks.h +++ b/rts/hooks/Hooks.h @@ -21,7 +21,7 @@ extern char *ghc_rts_opts; extern void OnExitHook (void); extern void StackOverflowHook (W_ stack_size); extern void OutOfHeapHook (W_ request_size, W_ heap_size); -extern void MallocFailHook (W_ request_size /* in bytes */, char *msg); +extern void MallocFailHook (W_ request_size /* in bytes */, const char *msg); extern void FlagDefaultsHook (void); #include "EndPrivate.h" diff --git a/rts/hooks/MallocFail.c b/rts/hooks/MallocFail.c index 63343a770c..42606b6f34 100644 --- a/rts/hooks/MallocFail.c +++ b/rts/hooks/MallocFail.c @@ -11,7 +11,7 @@ #include <stdio.h> void -MallocFailHook (W_ request_size /* in bytes */, char *msg) +MallocFailHook (W_ request_size /* in bytes */, const char *msg) { fprintf(stderr, "malloc: failed on request for %" FMT_Word " bytes; message: %s\n", request_size, msg); } |