Updates to follow the RTS tidyup
[packages/base.git] / cbits / PrelIOUtils.c
1 /*
2 * (c) The University of Glasgow 2002
3 *
4 * static versions of the inline functions in HsCore.h
5 */
6
7 #define INLINE
8
9 #ifdef __GLASGOW_HASKELL__
10 # include "Rts.h"
11 #endif
12
13 #include "HsBase.h"
14
15 #ifdef __GLASGOW_HASKELL__
16
17 void errorBelch2(const char*s, char *t)
18 {
19 errorBelch(s,t);
20 }
21
22 void debugBelch2(const char*s, char *t)
23 {
24 debugBelch(s,t);
25 }
26
27 // Use a C wrapper for this because we avoid hsc2hs in base
28 #if HAVE_LANGINFO_H
29 #include <langinfo.h>
30 char *localeEncoding (void)
31 {
32 return nl_langinfo(CODESET);
33 }
34 #endif
35
36 #endif /* __GLASGOW_HASKELL__ */