diff options
| author | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-12-13 13:29:51 +0000 |
|---|---|---|
| committer | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-12-13 13:29:51 +0000 |
| commit | f563b9565fec4414080e38db512092a2627564da (patch) | |
| tree | bdf310c506a66eb3711a59e4d740bcab0ba46ede | |
| parent | 12d3159866d2e022f383477ad0875982db6bc305 (diff) | |
Fixed issue with 'const' pointers used in the bindings code.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2501 17b73243-c579-4c4c-a9d2-2d5706c11dac
| -rw-r--r-- | lib/sbin/GridFuncStuff.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index 76d61b1d..4a4c400f 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -1268,15 +1268,15 @@ sub CreateThornGroupInitialisers $line .= "{\n"; $line .= " int param_type;\n"; - $line .= " CCTK_INT *allow_mixeddim_gfs;\n"; - $line .= " allow_mixeddim_gfs = (CCTK_INT *) CCTK_ParameterGet(\"allow_mixeddim_gfs\",\"Cactus\",\¶m_type);\n"; + $line .= " const CCTK_INT *allow_mixeddim_gfs;\n"; + $line .= " allow_mixeddim_gfs = (const CCTK_INT *) CCTK_ParameterGet(\"allow_mixeddim_gfs\",\"Cactus\",\¶m_type);\n"; $line .= " if (*allow_mixeddim_gfs)\n"; $line .= " {\n"; $line .= " CCTK_VWarn(2,__LINE__,__FILE__,\"Cactus\"\n,"; $line .= " \"CCTKi_CreateGroup: Working dimension already set,\"\n"; $line .= " \" creating GF group $group with different dimension $rhinterface_db->{\"\U$thorn GROUP $group\E DIM\"}\");\n"; $line .= " }\n"; - $line .= " else"; + $line .= " else\n"; $line .= " {\n"; $line .= " CCTK_VWarn(0,__LINE__,__FILE__,\"Cactus\"\n,"; $line .= " \"CCTKi_CreateGroup: Working dimension already set,\"\n"; |