diff options
Diffstat (limited to 'lib/sbin/create_c_stuff.pl')
-rw-r--r-- | lib/sbin/create_c_stuff.pl | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/lib/sbin/create_c_stuff.pl b/lib/sbin/create_c_stuff.pl index 7cde48d0..ade00ed4 100644 --- a/lib/sbin/create_c_stuff.pl +++ b/lib/sbin/create_c_stuff.pl @@ -213,8 +213,23 @@ sub CreateCStructureParameterHeader push(@definition, $line); - $line = "(void *) $parameter;"; - + if ($type_string =~ /CCTK_REAL/) + { + $line = "cctk_dummy_real=$parameter;"; + } + elsif ($type_string =~ /CCTK_INT/) + { + $line = "cctk_dummy_int=$parameter;"; + } + elsif ($type_string =~ /char/) + { + $line = "cctk_dummy_pointer=(void *)$parameter;"; + } + else + { + print "missed $type_string\n"; + exit; + } push(@use, $line); } |