[perl #16772] [PATCH] Add format for UINTVAL

[via RT]

# New Ticket Created by  Jason Gloudon 
# Please include the string:  [perl #16772]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=16772 >



This adds the printf format string for UINTVAL. hash.c needs this, but I'm not
including a patch for hash.c as there are other questions there.

-- 
Jason


-- attachment  1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/35736/28971/2a3531/format.patch


Index: config/auto/format.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/format.pl,v
retrieving revision 1.1
diff -u -r1.1 format.pl
--- config/auto/format.pl       24 May 2002 06:22:26 -0000      1.1
+++ config/auto/format.pl       26 Aug 2002 14:08:45 -0000
@@ -15,11 +15,11 @@
   );
 
   if ($iv eq "int") {
-    $ivformat = "%d";
+    $ivformat = "";
   } elsif (($iv eq "long") || ($iv eq "long int")) {
-    $ivformat = "%ld";
+    $ivformat = "l";
   } elsif (($iv eq "long long") || ($iv eq "long long int")) {
-    $ivformat = "%lld";
+    $ivformat = "ll";
   } else {
     die "Configure.pl:  Can't find a printf-style format specifier for type 
\"$iv\"\n";
   }
@@ -38,10 +38,11 @@
   }
   
   Configure::Data->set(
-    intvalfmt   => $ivformat,
+    intvalfmt   => "%" . $ivformat . "d",
+    uintvalfmt  => "%" . $ivformat . "u",
     floatvalfmt => $nvformat,
     nvsize      => $nvsize
   );
 }
 
-1;
\ No newline at end of file
+1;
Index: config/gen/config_h/config_h.in
===================================================================
RCS file: /cvs/public/parrot/config/gen/config_h/config_h.in,v
retrieving revision 1.7
diff -u -r1.7 config_h.in
--- config/gen/config_h/config_h.in     18 Aug 2002 03:36:57 -0000      1.7
+++ config/gen/config_h/config_h.in     26 Aug 2002 14:08:45 -0000
@@ -97,6 +97,7 @@
 #define PARROT_CORE_PREDEREF_OPLIB_INIT 
Parrot_DynOp_core_prederef_${MAJOR}_${MINOR}_${PATCH}
 
 #define INTVAL_FMT "${intvalfmt}"
+#define UINTVAL_FMT "${uintvalfmt}"
 #define FLOATVAL_FMT "${floatvalfmt}"
 
 #include "parrot/has_header.h"