/* -----------------------------------------------------------------------------
- * $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
*
#ifndef HSFFI_H
#define HSFFI_H
+#ifdef __cplusplus
+extern "C" {
+#endif
+
/* get types from GHC's runtime system */
#include "config.h"
#include "StgTypes.h"
#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
*
#ifndef RTS_H
#define RTS_H
+#ifdef __cplusplus
+extern "C" {
+#endif
+
#ifndef IN_STG_CODE
#define IN_STG_CODE 0
#endif
#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
*
#ifndef RTSAPI_H
#define RTSAPI_H
+#ifdef __cplusplus
+extern "C" {
+#endif
+
#include "HsFFI.h"
/*
void
rts_checkSchedStatus ( char* site, SchedulerStatus rc);
+/* -------------------------------------------------------------------------- */
+
+#ifdef __cplusplus
+}
+#endif
+
#endif /* RTSAPI_H */