summaryrefslogtreecommitdiff
path: root/src/include/cctk_Types.h
diff options
context:
space:
mode:
authorswhite <swhite@17b73243-c579-4c4c-a9d2-2d5706c11dac>2006-05-11 13:58:58 +0000
committerswhite <swhite@17b73243-c579-4c4c-a9d2-2d5706c11dac>2006-05-11 13:58:58 +0000
commite6f599fa48347c824f8a2bd852f96744d7723d7f (patch)
tree9168e16c082b3ac9c77182801a9ab8a142f5cbe6 /src/include/cctk_Types.h
parent28bf70daab10b8a1926aad64c9cc08e4f17ee028 (diff)
Applies Erik's patch from 06.03.06
Define HAVE_CCTK_BYTE etc. git-svn-id: http://svn.cactuscode.org/flesh/trunk@4294 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/include/cctk_Types.h')
-rw-r--r--src/include/cctk_Types.h12
1 files changed, 12 insertions, 0 deletions
diff --git a/src/include/cctk_Types.h b/src/include/cctk_Types.h
index d15dba0c..b6d20771 100644
--- a/src/include/cctk_Types.h
+++ b/src/include/cctk_Types.h
@@ -24,10 +24,15 @@
typedef void *CCTK_POINTER;
typedef const void *CCTK_POINTER_TO_CONST;
typedef void (*CCTK_FPOINTER)(void);
+#define HAVE_CCTK_POINTER 1
+#define HAVE_CCTK_POINTER_TO_CONST 1
+#define HAVE_CCTK_FPOINTER 1
/* Character types */
typedef char CCTK_CHAR;
typedef const char * CCTK_STRING;
+#define HAVE_CCTK_CHAR 1
+#define HAVE_CCTK_STRING 1
/* Structures for complex types */
@@ -60,6 +65,7 @@ typedef struct
/* Small positive integer type */
typedef unsigned char CCTK_BYTE;
+#define HAVE_CCTK_BYTE 1
#endif /* CCODE */
@@ -70,13 +76,18 @@ typedef unsigned char CCTK_BYTE;
#define CCTK_POINTER_TO_CONST integer*SIZEOF_CHAR_P
/* TODO: add autoconf for determining the size of function pointers */
#define CCTK_FPOINTER integer*SIZEOF_CHAR_P
+#define HAVE_CCTK_POINTER 1
+#define HAVE_CCTK_POINTER_TO_CONST 1
+#define HAVE_CCTK_FPOINTER 1
/* Character types */
/* A single character does not exist in Fortran; in Fortran, all
character types are strings. Hence we do not define CCTK_CHAR. */
/* #define CCTK_CHAR CHARACTER */
+/* #define HAVE_CCTK_CHAR 1 */
/* This is a C-string, i.e., only a pointer */
#define CCTK_STRING CCTK_POINTER_TO_CONST
+#define HAVE_CCTK_STRING 1
#ifdef HAVE_CCTK_INT8
#define CCTK_INT8 INTEGER*8
@@ -111,6 +122,7 @@ typedef unsigned char CCTK_BYTE;
/* Should be unsigned, but Fortran doesn't have that */
#define CCTK_BYTE INTEGER*1
+#define HAVE_CCTK_BYTE 1
#endif /*FCODE */