diff options
| author | Andy Lester <andy@petdance.com> | 2005-09-28 07:22:54 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-09-28 18:31:04 +0000 |
| commit | 7827dc6557506f2e7dcb30e9e6559e12e540cbdd (patch) | |
| tree | fb8678a8f737ab0a25867c497a525726b183c632 /embed.pl | |
| parent | e2e4dbf1c0b3171079efbd13aea2730e8a9bfda5 (diff) | |
| download | perl-7827dc6557506f2e7dcb30e9e6559e12e540cbdd.tar.gz | |
embed.fnc now requires NN/NULLOK
Message-ID: <20050928172254.GE20201@petdance.com>
Date: Wed, 28 Sep 2005 12:22:54 -0500
p4raw-id: //depot/perl@25637
Diffstat (limited to 'embed.pl')
| -rwxr-xr-x | embed.pl | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -194,6 +194,11 @@ sub write_protos { my $n; for my $arg ( @args ) { ++$n; + if ( $arg =~ /\*/ && $arg !~ /\b(NN|NULLOK)\b/ ) { + warn "$func: $arg needs NN or NULLOK\n"; + our $unflagged_pointers; + ++$unflagged_pointers; + } push( @nonnull, $n ) if ( $arg =~ s/\s*\bNN\b\s+// ); $arg =~ s/\s*\bNULLOK\b\s+//; # strip NULLOK with no effect } @@ -252,7 +257,9 @@ sub write_global_sym { $ret; } +our $unflagged_pointers; walk_table(\&write_protos, "proto.h", undef, "/* ex: set ro: */\n"); +warn "$unflagged_pointers pointer arguments to clean up\n" if $unflagged_pointers; walk_table(\&write_global_sym, "global.sym", undef, "# ex: set ro:\n"); # XXX others that may need adding |