Mercurial > hg > CbC > CbC_xv6
changeset 364:817b2f6e138e
fix localCode at generate_stub.pl
author | anatofuz |
---|---|
date | Fri, 03 Jul 2020 14:50:32 +0900 |
parents | 5ff90ae1fa04 |
children | f0c51aac6bed |
files | src/gearsTools/generate_stub.pl |
diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/gearsTools/generate_stub.pl Fri Jun 26 19:28:31 2020 +0900 +++ b/src/gearsTools/generate_stub.pl Fri Jul 03 14:50:32 2020 +0900 @@ -410,13 +410,15 @@ my $interfaceHeader = $1; # #interface not write next unless ($interfaceHeader =~ /context.h/); - } elsif (/^\s\s*_\_code (\w+)\((.*)\)(.*)/) { + } elsif (/extern\s+_\_code\s+(\w+)\((.*)\)/) { + $localCode{$1} = 1; + } elsif (/^\s\s*_\_code\s+(\w+)\((.*)\)(.*)/) { $localCode{$1} = 1; } elsif (/^\s\s*_\_code *\(\s*\*\s*(\w+)\)\((.*)\)(.*)/) { $localCode{$1} = 1; } elsif (/^\_\_code (\w+)\((.*)\)(.*)/) { $inCode = 1; - %localCode = {}; + $localCode{$inCode} = {}; %localVarType = {}; $codeGearName = $1; my $args = $2;