This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PADOFFSET is used to cast pointers into integers,
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 8 Sep 2001 19:48:20 +0000 (19:48 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 8 Sep 2001 19:48:20 +0000 (19:48 +0000)
if pointers are 64 bits and U32 32 bits,
bad things may happen, or at least warnings issued.

p4raw-id: //depot/perl@11949

op.h

diff --git a/op.h b/op.h
index 789ce58..3158395 100644 (file)
--- a/op.h
+++ b/op.h
@@ -23,7 +23,7 @@
  *                     which may or may not check number of children).
  */
 
-typedef U32 PADOFFSET;
+typedef UV PADOFFSET;
 #define NOT_IN_PAD ((PADOFFSET) -1)
 
 #ifdef DEBUGGING_OPS