From f563b9565fec4414080e38db512092a2627564da Mon Sep 17 00:00:00 2001 From: tradke Date: Thu, 13 Dec 2001 13:29:51 +0000 Subject: 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 --- lib/sbin/GridFuncStuff.pl | 6 +++--- 1 file 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"; -- cgit v1.2.3