X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/4a9a56a75c57646b348598f90875415e994d2f65..1c22e001de34716a7d63048b1a31c18df96011b5:/scope.c?ds=sidebyside

diff --git a/scope.c b/scope.c
index ab09eff..3d62918 100644
--- a/scope.c
+++ b/scope.c
@@ -724,8 +724,9 @@ Perl_save_alloc(pTHX_ I32 size, I32 pad)
     const UV elems_shifted = elems << SAVE_TIGHT_SHIFT;
 
     if ((elems_shifted >> SAVE_TIGHT_SHIFT) != elems)
-	Perl_croak(aTHX_ "panic: save_alloc elems %"UVuf" out of range (%ld-%ld)",
-		   elems, size, pad);
+	Perl_croak(aTHX_
+            "panic: save_alloc elems %"UVuf" out of range (%"IVdf"-%"IVdf")",
+		   elems, (IV)size, (IV)pad);
 
     SSGROW(elems + 1);