From 04fa0c702a9221c225ba8695a20b08d7da04409f Mon Sep 17 00:00:00 2001 From: Robin Barker Date: Fri, 16 May 2003 18:16:57 +0100 Subject: RE: maint snapshot @ 19525 Message-ID: <533D273D4014D411AB1D00062938C4D90404651D@hotel.npl.co.uk> (Part #1: the __format__ and __printf__) p4raw-id: //depot/perl@19527 --- embed.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'embed.pl') diff --git a/embed.pl b/embed.pl index 8da5df7858..4ba0eb9b8a 100755 --- a/embed.pl +++ b/embed.pl @@ -203,7 +203,8 @@ sub write_protos { my $prefix = $flags =~ /n/ ? '' : 'pTHX_'; my $args = scalar @args; $ret .= "\n#ifdef CHECK_FORMAT\n"; - $ret .= sprintf " __attribute__((format(__printf__,%s%d,%s%d)))", + $ret .= + sprintf " __attribute__((__format__(__printf__,%s%d,%s%d)))", $prefix, $args - 1, $prefix, $args; $ret .= "\n#endif\n"; } -- cgit v1.2.1