diff options
author | eschnett <eschnett@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2013-02-26 03:08:06 +0000 |
---|---|---|
committer | eschnett <eschnett@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2013-02-26 03:08:06 +0000 |
commit | 6876767592de3e96dfe5aa24489906c1cd3b406b (patch) | |
tree | ae92b4b8027b7f34439dda98c0150bc314104964 /src/include/cctk_core.h | |
parent | 3f9e2a8886b5ad2534971f4fe0a9438de857c9cc (diff) |
Implement CCTK_Error and friends
git-svn-id: http://svn.cactuscode.org/flesh/trunk@4963 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/include/cctk_core.h')
-rw-r--r-- | src/include/cctk_core.h | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/src/include/cctk_core.h b/src/include/cctk_core.h index cebc6c96..1878b4e8 100644 --- a/src/include/cctk_core.h +++ b/src/include/cctk_core.h @@ -66,6 +66,7 @@ cctk_ash1,cctk_ash2,cctk_ash3 CCTK_DECLARE(INTEGER,cctk_ash3,)&& #define CCTK_WARN(a,b) CCTK_Warn(a,__LINE__,__FORTRANFILE__,CCTK_THORNSTRING,b) +#define CCTK_ERROR(b) CCTK_Error(__LINE__,__FORTRANFILE__,CCTK_THORNSTRING,b) #define CCTK_CoordRegisterSystem(a,b,c) CCTKi_CoordRegisterSystem(a,b,CCTK_THORNSTRING,c) @@ -346,6 +347,7 @@ static inline int CCTK_VECTGFINDEX4D (const cGH *restrict cctkGH, #define CCTK_DELTA_TIME (cctk_delta_time/cctk_timefac) #define CCTK_WARN(a,b) CCTK_Warn(a,__LINE__,__FILE__,CCTK_THORNSTRING,b) +#define CCTK_ERROR(b) CCTK_Error(__LINE__,__FILE__,CCTK_THORNSTRING,b) #define CCTK_MALLOC(s) CCTKi_Malloc(s,__LINE__,__FILE__) #define CCTK_FREE(p) CCTKi_Free(p) @@ -355,11 +357,4 @@ static inline int CCTK_VECTGFINDEX4D (const cGH *restrict cctkGH, #define CCTK_INFO(a) CCTK_Info(CCTK_THORNSTRING,(a)) #define CCTK_PARAMWARN(a) CCTK_ParamWarn(CCTK_THORNSTRING,(a)) -/* -#define CCTK_MAKESTRING(x) CCTK_REALSTRING(x) -#define CCTK_REALSTRING(x) #x -#define CCTK_WARN(a,b) CCTK_Warn(a,CCTK_MAKESTRING(CCTK_THORN),b,__LINE__,__FILE__) -*/ - - #endif |