- fixed handling of arrays

This commit is contained in:
rconde 2014-03-15 18:12:50 -04:00
parent dab1fe8e98
commit f7aca0a762

View File

@ -59,6 +59,9 @@ sub make_pfn_alias($%)
foreach(@split_parms)
{
my $temp = $_;
#remove brackets
$temp =~ s/\[|\]//g;
#trim off any whitespace
$temp =~ s/^\s+|\s+$//g;
@ -77,9 +80,6 @@ sub make_pfn_alias($%)
#replace pointer * with P
$temp =~ s/\s*\*\s*/P/g;
#remove brackets
$temp =~ s/\[|\]//g;
#add to parmlist...handling cases where no parm name is specified
if($parm_name eq "")