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

Timestamp:

Oct 27, 2005, 10:38:30 AM (21 years ago)

Author:

eugene

Message:

implementing SkyRegions in all DVO programs

File:

• trunk/Ohana/src/libautocode/generate (modified) (4 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"; }
@@ -188 +190 @@
         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; }
@@ -255 +258 @@
         if ($type eq "unsigned int")  { $T = "WORD"; $n = 4; }
         if ($type eq "e_time")        { $T = "WORD"; $n = 4; }
+        if ($type eq "e_void")        { $T = "DBLE"; $n = 8; }
         if ($type eq "float")         { $T = "WORD"; $n = 4; }
         if ($type eq "double")        { $T = "DBLE"; $n = 8; }
@@ -285 +289 @@
         if ($type eq "unsigned int")   { $Nbytes += 4*$Np; $valid = 1; }
         if ($type eq "e_time")         { $Nbytes += 4*$Np; $valid = 1; }
+        if ($type eq "e_void")         { $Nbytes += 8*$Np; $valid = 1; }
         if ($type eq "float")          { $Nbytes += 4*$Np; $valid = 1; }
         if ($type eq "double")         { $Nbytes += 8*$Np; $valid = 1; }