# 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"
