diff options
| author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-11-03 09:29:34 +0000 |
|---|---|---|
| committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-11-03 09:29:34 +0000 |
| commit | d27277e56fb4ea6546e174559aaf58a8deb0ae43 (patch) | |
| tree | a7fd78c0b1654f64573c682fa835361f9d4ababe /lib | |
| parent | f56ab00e21d175ef62608342f185c5e7977be078 (diff) | |
Fixing various things pointed out by compiling with -Wall.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1130 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/sbin/CreateParameterBindings.pl | 9 | ||||
| -rw-r--r-- | lib/sbin/GridFuncStuff.pl | 2 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lib/sbin/CreateParameterBindings.pl b/lib/sbin/CreateParameterBindings.pl index 57f39acf..14c5fed7 100644 --- a/lib/sbin/CreateParameterBindings.pl +++ b/lib/sbin/CreateParameterBindings.pl @@ -195,9 +195,14 @@ sub CreateParameterBindings $dataout .= "\#include \"cctk_Misc.h\"\n"; $dataout .= "\#include \"cctk_WarnLevel.h\"\n"; - foreach $routine ((keys %routines), "CCTK_BindingsParametersGlobal") + foreach $thorn (split(" ",$rhinterface_db->{"THORNS"})) + { + $dataout .= "extern int CCTKi_BindingsCreate$thorn"."Parameters(void);\n\n"; + } + + foreach $thorn (split(" ",$rhinterface_db->{"THORNS"})) { - $dataout .= "int $routine"."Initialise(void);\n"; + $dataout .= "extern int CCTKi_Bindings$thorn"."ParameterExtensions(void);\n\n"; } $dataout .= "int CCTKi_BindingsParametersInitialise(void)\n"; diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index 0b4411c0..6aa14c27 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -120,7 +120,7 @@ sub CreateVariableBindings # open(OUT, ">$thorn.c") || die "Cannot create $thorn.c"; - $dataout .= "\#include \"cctk_Groups.h\"\n"; + $dataout .= "\#include \"cctki_Groups.h\"\n"; $dataout .= "\#include \"cctk_FortranWrappers.h\"\n"; # print OUT "#include \"cctk_Flesh.h\"\n"; # print OUT "#include \"StoreVariableData.h\"\n\n"; |