From 311be43d74fe49120c1b8c0147bb0f54b9a3d1f9 Mon Sep 17 00:00:00 2001
From: allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Tue, 11 Jan 2000 11:48:04 +0000
Subject: Filling out CCTK_USE_PARAMETERS

git-svn-id: http://svn.cactuscode.org/flesh/trunk@1228 17b73243-c579-4c4c-a9d2-2d5706c11dac
---
 lib/sbin/create_c_stuff.pl | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

(limited to 'lib/sbin/create_c_stuff.pl')

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);
      
   }
-- 
cgit v1.2.3