Filling out CCTK_USE_PARAMETERS

git-svn-id: http://svn.cactuscode.org/flesh/trunk@1228 17b73243-c579-4c4c-a9d2-2d5706c11dac

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);
      
   }