Commit d7416a5e authored by simonmar's avatar simonmar
Browse files

[project @ 2001-10-29 11:33:37 by simonmar]

Wrap the include file entry-points in extern "C" { ... } if this is a
C++ compiler.
parent 2660fbb9
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $Id: HsFFI.h,v 1.14 2001/03/28 18:48:46 qrczak Exp $ * $Id: HsFFI.h,v 1.15 2001/10/29 11:33:37 simonmar Exp $
* *
* (c) The GHC Team, 2000 * (c) The GHC Team, 2000
* *
...@@ -13,6 +13,10 @@ ...@@ -13,6 +13,10 @@
#ifndef HSFFI_H #ifndef HSFFI_H
#define HSFFI_H #define HSFFI_H
#ifdef __cplusplus
extern "C" {
#endif
/* get types from GHC's runtime system */ /* get types from GHC's runtime system */
#include "config.h" #include "config.h"
#include "StgTypes.h" #include "StgTypes.h"
...@@ -137,4 +141,10 @@ typedef void* HsForeignObj; /* DEPRECATED */ ...@@ -137,4 +141,10 @@ typedef void* HsForeignObj; /* DEPRECATED */
#define HS_DOUBLE_MAX_EXP DBL_MAX_EXP #define HS_DOUBLE_MAX_EXP DBL_MAX_EXP
#define HS_DOUBLE_MAX_10_EXP DBL_MAX_10_EXP #define HS_DOUBLE_MAX_10_EXP DBL_MAX_10_EXP
/* -------------------------------------------------------------------------- */
#ifdef __cplusplus
}
#endif
#endif /* HSFFI_H */ #endif /* HSFFI_H */
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $Id: Rts.h,v 1.13 2000/04/05 14:26:31 panne Exp $ * $Id: Rts.h,v 1.14 2001/10/29 11:33:37 simonmar Exp $
* *
* (c) The GHC Team, 1998-1999 * (c) The GHC Team, 1998-1999
* *
...@@ -10,6 +10,10 @@ ...@@ -10,6 +10,10 @@
#ifndef RTS_H #ifndef RTS_H
#define RTS_H #define RTS_H
#ifdef __cplusplus
extern "C" {
#endif
#ifndef IN_STG_CODE #ifndef IN_STG_CODE
#define IN_STG_CODE 0 #define IN_STG_CODE 0
#endif #endif
...@@ -101,4 +105,10 @@ ...@@ -101,4 +105,10 @@
#define stg_min(a,b) ({typeof(a) _a = (a), _b = (b); _a <= _b ? _a : _b; }) #define stg_min(a,b) ({typeof(a) _a = (a), _b = (b); _a <= _b ? _a : _b; })
#define stg_max(a,b) ({typeof(a) _a = (a), _b = (b); _a <= _b ? _b : _a; }) #define stg_max(a,b) ({typeof(a) _a = (a), _b = (b); _a <= _b ? _b : _a; })
/* -------------------------------------------------------------------------- */
#ifdef __cplusplus
}
#endif
#endif /* RTS_H */ #endif /* RTS_H */
/* ---------------------------------------------------------------------------- /* ----------------------------------------------------------------------------
* $Id: RtsAPI.h,v 1.23 2001/10/23 11:30:07 simonmar Exp $ * $Id: RtsAPI.h,v 1.24 2001/10/29 11:33:37 simonmar Exp $
* *
* (c) The GHC Team, 1998-1999 * (c) The GHC Team, 1998-1999
* *
...@@ -10,6 +10,10 @@ ...@@ -10,6 +10,10 @@
#ifndef RTSAPI_H #ifndef RTSAPI_H
#define RTSAPI_H #define RTSAPI_H
#ifdef __cplusplus
extern "C" {
#endif
#include "HsFFI.h" #include "HsFFI.h"
/* /*
...@@ -107,4 +111,10 @@ rts_evalLazyIO ( HaskellObj p, unsigned int stack_size, /*out*/HaskellObj *ret ) ...@@ -107,4 +111,10 @@ rts_evalLazyIO ( HaskellObj p, unsigned int stack_size, /*out*/HaskellObj *ret )
void void
rts_checkSchedStatus ( char* site, SchedulerStatus rc); rts_checkSchedStatus ( char* site, SchedulerStatus rc);
/* -------------------------------------------------------------------------- */
#ifdef __cplusplus
}
#endif
#endif /* RTSAPI_H */ #endif /* RTSAPI_H */
Markdown is supported
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