summaryrefslogtreecommitdiff
path: root/rts/RtsMessages.c
diff options
context:
space:
mode:
authorSimon Marlow <simonmar@microsoft.com>2006-06-07 14:58:00 +0000
committerSimon Marlow <simonmar@microsoft.com>2006-06-07 14:58:00 +0000
commitf07c4a158ebd4e7270266fe04077ea3c931f0672 (patch)
treed930bc6005e80d4379ffcccabb0ce36a8c920a43 /rts/RtsMessages.c
parent82783802fd1ac36b26a8a55b94e4086b637cc15d (diff)
downloadhaskell-f07c4a158ebd4e7270266fe04077ea3c931f0672.tar.gz
add 'const' modifiers to types where appropriate
Diffstat (limited to 'rts/RtsMessages.c')
-rw-r--r--rts/RtsMessages.c20
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())