Changeset 5900 for trunk/Ohana/src/libautocode/generate

Timestamp:

Jan 4, 2006, 10:00:28 PM (21 years ago)

Author:

eugene

Message:

fixes for skyregion, generate

File:

• trunk/Ohana/src/libautocode/generate (modified) (2 diffs)

trunk/Ohana/src/libautocode/generate

@@ -119 +119 @@
         if ($type eq "unsigned int")  { $pt1 = "J"; }
         if ($type eq "e_time")        { $pt1 = "J"; }
-        if ($type eq "e_void")        { $pt1 = "L"; }
-        # e_void is a 64 bit pointer, cast to size_t
         if ($type eq "float")         { $pt1 = "E"; }
         if ($type eq "double")        { $pt1 = "D"; }
+
+        if ($type eq "e_void")        { $pt1 = "B"; $Np = 8*$Np; }
+        # e_void is a 64 bit pointer, cast to size_t.  its value is not loaded
+        # from the table.
+
         if (!$pt1) { die "unknown type $type"; }
 
@@ -190 +193 @@
         if ($type eq "unsigned int")  { $pt1 = sprintf "I%s", $length; }
         if ($type eq "e_time")        { $pt1 = sprintf "I%s", $length; }
-        if ($type eq "e_void")        { $pt1 = sprintf "I%s", $length; }
         if ($type eq "float")         { $pt1 = sprintf "F%s", $length; }
         if ($type eq "double")        { $pt1 = sprintf "F%s", $length; }
+
+        if ($type eq "e_void")        { $pt1 = sprintf "I%s", $length; }
+
         if (!$pt1) { die "unknown type $type"; }