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

Timestamp:

Aug 7, 2020, 2:06:23 PM (6 years ago)

Author:

eugene

Message:

libfits I/O operations where using signed char instead of unsigned char for byte-values table columns (B) -- this only affects the definition of SkyRegion.d

File:

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

trunk/Ohana/src/libautocode/generate

@@ -118 +118 @@
         $pt1 = 0;
         if ($type eq "char")          { $pt1 = "A"; }
-        if ($type eq "byte")          { $pt1 = "B"; }
+        if ($type eq "byte")          { $pt1 = "B"; }
         if ($type eq "unsigned char") { $pt1 = "B"; }
         if ($type eq "rawshort")      { $pt1 = "I"; }
@@ -225 +225 @@
         $pt1 = 0;
         if ($type eq "char")          { $pt1 = sprintf "A%s", $length; }
-        if ($type eq "byte")          { $pt1 = sprintf "I%s", $length; }
+        if ($type eq "byte")          { $pt1 = sprintf "I%s", $length; }
         if ($type eq "unsigned char") { $pt1 = sprintf "I%s", $length; }
         if ($type eq "rawshort")      { $pt1 = sprintf "I%s", $length; }
@@ -355 +355 @@
         $valid = 0;
         if ($type eq "char")           { $Nbytes += 1*$Np; $valid = 1; }
-        if ($type eq "byte")           { $Nbytes += 1*$Np; $valid = 1; }
+        if ($type eq "byte")           { $Nbytes += 1*$Np; $valid = 1; }
         if ($type eq "unsigned char")  { $Nbytes += 1*$Np; $valid = 1; }
         if ($type eq "rawshort")       { $Nbytes += 2*$Np; $valid = 1; }