Commit e610e616 authored by sewardj's avatar sewardj
Browse files

[project @ 2001-04-24 11:20:50 by sewardj]

Make posix symbols disappear for Mingwin builds.
parent 4ca3e084
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $Id: Linker.c,v 1.37 2001/04/14 22:29:16 qrczak Exp $ * $Id: Linker.c,v 1.38 2001/04/24 11:20:50 sewardj Exp $
* *
* (c) The GHC Team, 2000 * (c) The GHC Team, 2000
* *
...@@ -68,7 +68,14 @@ typedef struct _RtsSymbolVal { ...@@ -68,7 +68,14 @@ typedef struct _RtsSymbolVal {
#define Maybe_ForeignObj #define Maybe_ForeignObj
#define Maybe_Stable_Names #define Maybe_Stable_Names
#endif #endif
#if !defined (mingw32_TARGET_OS)
#define RTS_POSIX_ONLY_SYMBOLS \
SymX(stg_sig_install) \
Sym(nocldstop)
#else
#define RTS_POSIX_ONLY_SYMBOLS
#endif
#define RTS_SYMBOLS \ #define RTS_SYMBOLS \
SymX(MainRegTable) \ SymX(MainRegTable) \
...@@ -204,8 +211,6 @@ typedef struct _RtsSymbolVal { ...@@ -204,8 +211,6 @@ typedef struct _RtsSymbolVal {
SymX(defaultsHook) \ SymX(defaultsHook) \
SymX(PreTraceHook) \ SymX(PreTraceHook) \
SymX(PostTraceHook) \ SymX(PostTraceHook) \
SymX(stg_sig_install) \
Sym(nocldstop) \
SymX(createAdjustor) \ SymX(createAdjustor) \
SymX(rts_mkChar) \ SymX(rts_mkChar) \
SymX(rts_mkInt) \ SymX(rts_mkInt) \
...@@ -306,6 +311,7 @@ RTS_SYMBOLS ...@@ -306,6 +311,7 @@ RTS_SYMBOLS
static RtsSymbolVal rtsSyms[] = { static RtsSymbolVal rtsSyms[] = {
RTS_SYMBOLS RTS_SYMBOLS
RTS_LONG_LONG_SYMS RTS_LONG_LONG_SYMS
RTS_POSIX_ONLY_SYMBOLS
{ 0, 0 } /* sentinel */ { 0, 0 } /* sentinel */
}; };
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment