diff options
| -rw-r--r-- | lib/sbin/CreateScheduleBindings.pl | 4 | ||||
| -rw-r--r-- | lib/sbin/GridFuncStuff.pl | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/lib/sbin/CreateScheduleBindings.pl b/lib/sbin/CreateScheduleBindings.pl index af1b0829..8af20e87 100644 --- a/lib/sbin/CreateScheduleBindings.pl +++ b/lib/sbin/CreateScheduleBindings.pl @@ -176,6 +176,7 @@ sub ScheduleCreateFile $outbuf .= " \@endhistory\n"; $outbuf .= "\n"; $outbuf .= "\@\@*/\n"; + $outbuf .= "void CCTKi_BindingsSchedule_$thorn(void);\n"; $outbuf .= "void CCTKi_BindingsSchedule_$thorn(void)\n"; $outbuf .= "{\n"; $outbuf .= " DECLARE_CCTK_PARAMETERS\n"; @@ -283,6 +284,7 @@ sub ParameterRecoveryCreateFile $outbuf .= " \@endhistory\n"; $outbuf .= "\n"; $outbuf .= "\@\@*/\n"; + $outbuf .= "int CCTKi_BindingsParameterRecovery_$thorn(void);\n"; $outbuf .= "int CCTKi_BindingsParameterRecovery_$thorn(void)\n"; $outbuf .= "{\n"; $outbuf .= " DECLARE_CCTK_PARAMETERS\n"; @@ -344,6 +346,7 @@ sub ScheduleCreateBindings $outbuf .= " \@endhistory\n"; $outbuf .= "\n"; $outbuf .= "\@\@*/\n"; + $outbuf .= "int CCTKi_BindingsScheduleInitialise(void);\n"; $outbuf .= "int CCTKi_BindingsScheduleInitialise(void)\n"; $outbuf .= "{\n"; foreach $thorn (sort split(" ", $rhinterface_db->{"THORNS"})) @@ -388,6 +391,7 @@ sub ParameterRecoveryCreateBindings $outbuf .= "\n"; $outbuf .= "/* Prototypes for functions to be registered. */\n"; + $outbuf .= "int CCTKi_BindingsParameterRecoveryInitialise(void);\n"; foreach $thorn (sort split(" ", $rhinterface_db->{"THORNS"})) { $outbuf .= "int CCTKi_BindingsParameterRecovery_$thorn(void);\n"; diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index 136c5b1b..2ba98bf2 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -1353,6 +1353,7 @@ sub CreateThornFortranWrapper push(@data, "#include \"cctk_Arguments.h\""); push(@data, ""); + push(@data, "int CCTKi_BindingsFortranWrapper$thorn(cGH *GH, void *fpointer);"); push(@data, "int CCTKi_BindingsFortranWrapper$thorn(cGH *GH, void *fpointer)"); push(@data, "{"); push(@data, " void (*function)(\U$thorn\E_C2F_PROTO);"); |