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
*
......@@ -13,6 +13,10 @@
#ifndef HSFFI_H
#define HSFFI_H
#ifdef __cplusplus
extern "C" {
#endif
/* get types from GHC's runtime system */
#include "config.h"
#include "StgTypes.h"
......@@ -137,4 +141,10 @@ typedef void* HsForeignObj; /* DEPRECATED */
#define HS_DOUBLE_MAX_EXP DBL_MAX_EXP
#define HS_DOUBLE_MAX_10_EXP DBL_MAX_10_EXP
/* -------------------------------------------------------------------------- */
#ifdef __cplusplus
}
#endif
#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
*
......@@ -10,6 +10,10 @@
#ifndef RTS_H
#define RTS_H
#ifdef __cplusplus
extern "C" {
#endif
#ifndef IN_STG_CODE
#define IN_STG_CODE 0
#endif
......@@ -101,4 +105,10 @@
#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; })
/* -------------------------------------------------------------------------- */
#ifdef __cplusplus
}
#endif
#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
*
......@@ -10,6 +10,10 @@
#ifndef RTSAPI_H
#define RTSAPI_H
#ifdef __cplusplus
extern "C" {
#endif
#include "HsFFI.h"
/*
......@@ -107,4 +111,10 @@ rts_evalLazyIO ( HaskellObj p, unsigned int stack_size, /*out*/HaskellObj *ret )
void
rts_checkSchedStatus ( char* site, SchedulerStatus rc);
/* -------------------------------------------------------------------------- */
#ifdef __cplusplus
}
#endif
#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