This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
dont use a 64 bit constant for a 32 bit value
[perl5.git] / pad.c
diff --git a/pad.c b/pad.c
index ad1fc85..f5ce5f5 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -162,7 +162,7 @@ Perl_set_padlist(CV * cv, PADLIST *padlist){
 #  if PTRSIZE == 8
     assert((Size_t)padlist != UINT64_C(0xEFEFEFEFEFEFEFEF));
 #  elif PTRSIZE == 4
-    assert((Size_t)padlist != UINT64_C(0xEFEFEFEF));
+    assert((Size_t)padlist != 0xEFEFEFEF);
 #  else
 #    error unknown pointer size
 #  endif