summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2008-11-02 16:50:12 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2008-11-02 16:50:12 +0000
commitf1f66076265cc2bac3adabd54c01b0dea28ca3f0 (patch)
tree995188aa60f1633c89a20a0cfaf3bcdf52e56e73 /util.c
parentb8fcbefe6253f6cbcf6817158c0e99c8018b2d46 (diff)
downloadperl-f1f66076265cc2bac3adabd54c01b0dea28ca3f0.tar.gz
Explicitly specify some printf formats for constant strings.
This is mostly to silence gcc's warning, "format not a string literal and no format arguments". p4raw-id: //depot/perl@34694
Diffstat (limited to 'util.c')
-rw-r--r--util.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/util.c b/util.c
index 70f81e7717..d619881e55 100644
--- a/util.c
+++ b/util.c
@@ -274,12 +274,12 @@ Perl_safesyscalloc(MEM_SIZE count, MEM_SIZE size)
if (size && (count <= MEM_SIZE_MAX / size))
total_size = size * count;
else
- Perl_croak_nocontext(PL_memory_wrap);
+ Perl_croak_nocontext("%s", PL_memory_wrap);
#ifdef PERL_TRACK_MEMPOOL
if (sTHX <= MEM_SIZE_MAX - (MEM_SIZE)total_size)
total_size += sTHX;
else
- Perl_croak_nocontext(PL_memory_wrap);
+ Perl_croak_nocontext("%s", PL_memory_wrap);
#endif
#ifdef HAS_64K_LIMIT
if (total_size > 0xffff) {