diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-03-19 10:19:06 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-03-19 10:19:06 +0000 |
commit | 63f6248009b25b20938c0c317c4d51c14a000c2e (patch) | |
tree | b11b2907eca2b6febad16a6f23496fa98bbd6027 /lib/sbin/cpp.pl | |
parent | a8d0c1e6d60c5f886d52fea03476c0d46f10ad4d (diff) |
Don't complain when a macro with no arguments is followed by an expression in
parentheses.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3178 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/cpp.pl')
-rwxr-xr-x | lib/sbin/cpp.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/sbin/cpp.pl b/lib/sbin/cpp.pl index 58970635..752bc83b 100755 --- a/lib/sbin/cpp.pl +++ b/lib/sbin/cpp.pl @@ -1003,7 +1003,8 @@ sub ParseAndExpand if($defines{$token}) { my $arg = ""; - if($pos+1 < @splitline) + if(@{$defines{$token}{"ARGS"}} > 0 && + $pos+1 < @splitline) { # Eat up whitepace between token and arguments for(my $newpos=$pos+1; $newpos < @splitline; $newpos++) |