Skip to content
Snippets Groups Projects
Commit 49124ecd authored by sof's avatar sof
Browse files

[project @ 1997-08-25 21:00:15 by sof]

COMPILING_GHC renamed to COMPILING_NCG
parent 2f1239a2
No related merge requests found
...@@ -40,7 +40,7 @@ ullong msTime(STG_NO_ARGS); ...@@ -40,7 +40,7 @@ ullong msTime(STG_NO_ARGS);
#if defined(GRAN) #if defined(GRAN)
#if !defined(COMPILING_GHC) #if !defined(COMPILING_NCG)
#include "RtsFlags.h" #include "RtsFlags.h"
#endif #endif
......
...@@ -9,7 +9,7 @@ NB: THIS FILE IS INCLUDED IN HASKELL SOURCE! ...@@ -9,7 +9,7 @@ NB: THIS FILE IS INCLUDED IN HASKELL SOURCE!
#ifndef MACHREGS_H #ifndef MACHREGS_H
#define MACHREGS_H #define MACHREGS_H
#if defined(__STG_GCC_REGS__) || defined(COMPILING_GHC) #if defined(__STG_GCC_REGS__) || defined(COMPILING_NCG)
#include "StgMachDeps.h" #include "StgMachDeps.h"
...@@ -918,7 +918,7 @@ discretion being the better part of valor, we also don't take ...@@ -918,7 +918,7 @@ discretion being the better part of valor, we also don't take
Concluding multi-slurp protection: Concluding multi-slurp protection:
\begin{code} \begin{code}
#endif /* __STG_GCC_REGS__ || COMPILING_GHC */ #endif /* __STG_GCC_REGS__ || COMPILING_NCG */
#endif /* MACHREGS_H */ #endif /* MACHREGS_H */
\end{code} \end{code}
......
...@@ -197,7 +197,7 @@ use extern declarations almost everywhere except for the single module ...@@ -197,7 +197,7 @@ use extern declarations almost everywhere except for the single module
(\tr{Rep.lc}) in which the rep tables are declared locally. (\tr{Rep.lc}) in which the rep tables are declared locally.
\begin{code} \begin{code}
#if defined(COMPILING_REP_LC) || defined(COMPILING_GHC) #if defined(COMPILING_REP_LC) || defined(COMPILING_NCG)
# define MAYBE_DECLARE_RTBL(l,s,p) # define MAYBE_DECLARE_RTBL(l,s,p)
#else #else
# define MAYBE_DECLARE_RTBL(l,s,p) EXTDATA_RO(MK_REP_REF(l,s,p)); # define MAYBE_DECLARE_RTBL(l,s,p) EXTDATA_RO(MK_REP_REF(l,s,p));
...@@ -613,7 +613,7 @@ specialised marking code. ...@@ -613,7 +613,7 @@ specialised marking code.
# define INFO_MARKED_1S(infoptr) (((FP_)(INFO_RTBL(infoptr)))[COMPACTING_INFO_OFFSET+3]) # define INFO_MARKED_1S(infoptr) (((FP_)(INFO_RTBL(infoptr)))[COMPACTING_INFO_OFFSET+3])
# define INFO_MARKING_1S(infoptr) (((FP_)(INFO_RTBL(infoptr)))[COMPACTING_INFO_OFFSET+4]) # define INFO_MARKING_1S(infoptr) (((FP_)(INFO_RTBL(infoptr)))[COMPACTING_INFO_OFFSET+4])
#ifndef COMPILING_GHC #ifndef COMPILING_NCG
extern F_ _Dummy_Static_entry(STG_NO_ARGS); extern F_ _Dummy_Static_entry(STG_NO_ARGS);
extern F_ _Dummy_Ind_entry(STG_NO_ARGS); extern F_ _Dummy_Ind_entry(STG_NO_ARGS);
extern F_ _Dummy_Caf_entry(STG_NO_ARGS); extern F_ _Dummy_Caf_entry(STG_NO_ARGS);
...@@ -1165,7 +1165,7 @@ MAYBE_DECLARE_RTBL(Data,,) ...@@ -1165,7 +1165,7 @@ MAYBE_DECLARE_RTBL(Data,,)
} }
/* Here is the decl for the only DATA info table used! */ /* Here is the decl for the only DATA info table used! */
#ifndef COMPILING_GHC #ifndef COMPILING_NCG
EXTDATA_RO(ArrayOfData_info); EXTDATA_RO(ArrayOfData_info);
#endif #endif
\end{code} \end{code}
...@@ -1237,7 +1237,7 @@ MAYBE_DECLARE_RTBL(ImmuTuple,,) ...@@ -1237,7 +1237,7 @@ MAYBE_DECLARE_RTBL(ImmuTuple,,)
#endif #endif
/* Here are the decls for the only MUTUPLE info tables used. */ /* Here are the decls for the only MUTUPLE info tables used. */
#ifndef COMPILING_GHC #ifndef COMPILING_NCG
EXTDATA_RO(ArrayOfPtrs_info); EXTDATA_RO(ArrayOfPtrs_info);
EXTDATA_RO(ImMutArrayOfPtrs_info); EXTDATA_RO(ImMutArrayOfPtrs_info);
EXTDATA_RO(EmptySVar_info); EXTDATA_RO(EmptySVar_info);
...@@ -1745,7 +1745,7 @@ during a return. ...@@ -1745,7 +1745,7 @@ during a return.
} }
/* Declare the phantom info table vectors (just Bool at the moment) */ /* Declare the phantom info table vectors (just Bool at the moment) */
#ifndef COMPILING_GHC #ifndef COMPILING_NCG
#ifndef aix_TARGET_OS /* AIX gives link errors with this as a const (RO assembler section) */ #ifndef aix_TARGET_OS /* AIX gives link errors with this as a const (RO assembler section) */
EXTDATA_RO(PrelBase_Bool_itblvtbl); EXTDATA_RO(PrelBase_Bool_itblvtbl);
#else #else
......
#if !defined(COMPILING_GHC) && !defined(__GLASGOW_HASKELL__) #if !defined(COMPILING_NCG) && !defined(__GLASGOW_HASKELL__)
extern int ghc_errno; extern int ghc_errno;
extern int ghc_errtype; extern int ghc_errtype;
extern char *ghc_errstr; extern char *ghc_errstr;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment