summaryrefslogtreecommitdiffstats
path: root/bin/trace
diff options
context:
space:
mode:
Diffstat (limited to 'bin/trace')
-rwxr-xr-xbin/trace6
1 files changed, 3 insertions, 3 deletions
diff --git a/bin/trace b/bin/trace
index 4dab596..28734d4 100755
--- a/bin/trace
+++ b/bin/trace
@@ -93,10 +93,10 @@ sub argstring ($$$) {
$atype =~ s/\s+$//;
if ($atype =~ /(.*)\[(.*)\]$/) {
($array, $atype) = ($2, $1);
+ $atype =~ s/\s+$//;
}
$fq_atype = $atype . ('*' x $ptr);
-
if ($ptr>0 && exists $TypeString{$fq_atype}) {
$ptr = 0;
$tstr = $TypeString{$fq_atype};
@@ -172,7 +172,7 @@ sub rewrite_func ($$$$$) {
$trace .= join("", @arg_str) . "\"";
my $len = 4 + length $trace;
for (@arg_name) {
- if ($len + length >= 78) {
+ if ($len + length >= 77) {
$trace .= ",\n $_";
$len = 13 + length;
} else {
@@ -203,7 +203,7 @@ sub rewrite_func ($$$$$) {
error:
- return "\n$type\n$name ($args)\n$body";
+ return "\n$type\n$name($args)\n$body";
}
##############################################################################