summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1999-10-02 23:05:50 +0000
committerJarkko Hietaniemi <jhi@iki.fi>1999-10-02 23:05:50 +0000
commit57def98fcb6c98601beaf31e3c48ad681bfdc2a3 (patch)
tree1c2ca5d1ae7bb4508bf076e61eda828a50a82f9d /perl.h
parentac8eabc1ebb57d426c973b83f7ee5241b2084b4e (diff)
downloadperl-57def98fcb6c98601beaf31e3c48ad681bfdc2a3.tar.gz
Untangle the IV_IS_QUAD jungle by introduding
macros to be used when doing formatted printing: IVdf, UVuf, UVxf, UVof. Also introduce Uid_t_SIGN. p4raw-id: //depot/cfgperl@4288
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h16
1 files changed, 16 insertions, 0 deletions
diff --git a/perl.h b/perl.h
index 48765ee2e7..1119ba9f82 100644
--- a/perl.h
+++ b/perl.h
@@ -1932,6 +1932,22 @@ typedef I32 CHECKPOINT;
# endif
#endif
+#ifdef IV_IS_QUAD
+# define UVuf PERL_PRIu64
+# define IVdf PERL_PRId64
+# define UVof PERL_PRIo64
+# define UVxf PERL_PRIx64
+#else
+# if LONGSIZE == 4
+# define UVuf "lu"
+# define IVdf "ld"
+# define UVof "lo"
+# define UVxf "lx"
+# else
+ /* Any good ideas? */
+# endif
+#endif
+
/* Used with UV/IV arguments: */
/* XXXX: need to speed it up */
#define CLUMP_2UV(iv) ((iv) < 0 ? 0 : (UV)(iv))