From c0309e5a2f2b6f3f060f0a5b5fb781c1206c2c58 Mon Sep 17 00:00:00 2001 From: unknown Date: Tue, 5 Nov 2002 16:06:11 +0100 Subject: added DBUG_ENTER/RETURN tags, dbug_add_tags.pl bugfix dbug/dbug_add_tags.pl: small fix sql/ha_myisam.cc: added DBUG_ENTER/RETURN tags sql/ha_myisammrg.cc: added DBUG_ENTER/RETURN tags sql/handler.cc: added DBUG_ENTER/RETURN tags --- dbug/dbug_add_tags.pl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'dbug') diff --git a/dbug/dbug_add_tags.pl b/dbug/dbug_add_tags.pl index a376fdb2f59..141a2ed85f1 100755 --- a/dbug/dbug_add_tags.pl +++ b/dbug/dbug_add_tags.pl @@ -5,7 +5,7 @@ die "No files specified\n" unless $ARGV[0]; $ctags="exctags -x -f - --c-types=f -u"; sub get_tag { - local $_=; + local $.; local $_=; ($symbol, $line)= /^(.*\S)\s+function\s+(\d+)/; $symbol=$1 if /\s(\S+)\s*\(/; $line=1e50 unless $line; @@ -40,7 +40,6 @@ while($src=shift) warn "$src:".($.-1)."\t$orig" if /\breturn\b/; } print; - next if /DBUG_ENTER/; next if $. < $line; die "Something wrong: \$.=$., \$line=$line, \$symbol=$symbol\n" if $. > $line; &get_tag && next if /^\s*inline /; -- cgit v1.2.1