diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-06-07 14:58:00 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-06-07 14:58:00 +0000 |
| commit | f07c4a158ebd4e7270266fe04077ea3c931f0672 (patch) | |
| tree | d930bc6005e80d4379ffcccabb0ce36a8c920a43 /rts/RtsMessages.c | |
| parent | 82783802fd1ac36b26a8a55b94e4086b637cc15d (diff) | |
| download | haskell-f07c4a158ebd4e7270266fe04077ea3c931f0672.tar.gz | |
add 'const' modifiers to types where appropriate
Diffstat (limited to 'rts/RtsMessages.c')
| -rw-r--r-- | rts/RtsMessages.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/rts/RtsMessages.c b/rts/RtsMessages.c index 62a3b8b751..73af8391e9 100644 --- a/rts/RtsMessages.c +++ b/rts/RtsMessages.c @@ -30,7 +30,7 @@ RtsMsgFunction *debugMsgFn = rtsDebugMsgFn; RtsMsgFunction *errorMsgFn = rtsErrorMsgFn; void -barf(char *s, ...) +barf(const char*s, ...) { va_list ap; va_start(ap,s); @@ -40,20 +40,20 @@ barf(char *s, ...) } void -vbarf(char *s, va_list ap) +vbarf(const char*s, va_list ap) { (*fatalInternalErrorFn)(s,ap); stg_exit(EXIT_INTERNAL_ERROR); // just in case fatalInternalErrorFn() returns } void -_assertFail(char *filename, unsigned int linenum) +_assertFail(const char*filename, unsigned int linenum) { barf("ASSERTION FAILED: file %s, line %u\n", filename, linenum); } void -errorBelch(char *s, ...) +errorBelch(const char*s, ...) { va_list ap; va_start(ap,s); @@ -62,13 +62,13 @@ errorBelch(char *s, ...) } void -verrorBelch(char *s, va_list ap) +verrorBelch(const char*s, va_list ap) { (*errorMsgFn)(s,ap); } void -debugBelch(char *s, ...) +debugBelch(const char*s, ...) { va_list ap; va_start(ap,s); @@ -77,7 +77,7 @@ debugBelch(char *s, ...) } void -vdebugBelch(char *s, va_list ap) +vdebugBelch(const char*s, va_list ap) { (*debugMsgFn)(s,ap); } @@ -111,7 +111,7 @@ isGUIApp() #define str(s) #s void -rtsFatalInternalErrorFn(char *s, va_list ap) +rtsFatalInternalErrorFn(const char *s, va_list ap) { #if defined(cygwin32_HOST_OS) || defined (mingw32_HOST_OS) if (isGUIApp()) @@ -148,7 +148,7 @@ rtsFatalInternalErrorFn(char *s, va_list ap) } void -rtsErrorMsgFn(char *s, va_list ap) +rtsErrorMsgFn(const char *s, va_list ap) { #if defined(cygwin32_HOST_OS) || defined (mingw32_HOST_OS) if (isGUIApp()) @@ -178,7 +178,7 @@ rtsErrorMsgFn(char *s, va_list ap) } void -rtsDebugMsgFn(char *s, va_list ap) +rtsDebugMsgFn(const char *s, va_list ap) { #if defined(cygwin32_HOST_OS) || defined (mingw32_HOST_OS) if (isGUIApp()) |