diff options
author | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2006-07-04 08:55:21 +0000 |
---|---|---|
committer | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2006-07-04 08:55:21 +0000 |
commit | dcbf77b9e4a959ce8deab439061f24be7e878cd7 (patch) | |
tree | 2b5358b10164b8c400bd7b556090b74da9a7a07e /lib/sbin | |
parent | d568499600447f4403a0ee0e3fa817c27e75f43d (diff) |
Fixed compiler warning about missing prototype for strlen(3) in generated code
which checks for mixed-dimensional GFs.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@4339 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin')
-rw-r--r-- | lib/sbin/GridFuncStuff.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index 72bb696f..1a746def 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -258,23 +258,23 @@ sub CreateVariableBindings push(@data, CreateThornGroupInitialisers($thorn, $block, $rhinterface_db, $rhparameter_db)); } push(@data, ''); - push(@data, ' if (strlen (warn_mixeddim_gfs) > 0)'); + push(@data, ' if (*warn_mixeddim_gfs)'); push(@data, ' {'); push(@data, ' if (allow_mixeddim_gfs && *allow_mixeddim_gfs)'); push(@data, ' {'); push(@data, ' CCTK_VWarn (2, __LINE__, __FILE__, "Cactus",'); push(@data, ' "CCTKi_CreateGroup: Working dimension already set, "'); push(@data, ' "' - . "creating GF group \%s with different dimension \%d\","); + . "creating GF group '\%s' with different dimension \%d\","); push(@data, ' warn_mixeddim_gfs, warn_mixeddim);'); push(@data, ' }'); push(@data, ' else'); push(@data, ' {'); push(@data, ' CCTK_VWarn (0, __LINE__, __FILE__, "Cactus",'); - push(@data, ' "CCTKi_CreateGroup: Working dimension already set,"'); + push(@data, ' "CCTKi_CreateGroup: Working dimension already set, "'); push(@data, ' "' - . "cannot create GF group \%s with dimension \%d\","); + . "cannot create GF group '\%s' with dimension \%d\","); push(@data, ' warn_mixeddim_gfs, warn_mixeddim);'); push(@data, ' }'); push(@data, ' }'); @@ -1048,7 +1048,7 @@ sub CreateThornGroupInitialisers push(@data, ' {'); push(@data, " warn_mixeddim_gfs = \"$group\";"); - push(@data, " warn_mixeddim = " + push(@data, ' warn_mixeddim = ' . $rhinterface_db->{"\U$thorn GROUP $group\E DIM"} . ';'); push(@data, ' }'); } |