RepoMirrors/xonotic
1
0
Fork 0
mirror of https://gitlab.com/xonotic/xonotic synced 2025-04-01 22:48:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

more fixes

Browse Source
This commit is contained in:
Rudolf Polzer 2012-05-02 14:38:52 +02:00
parent df939296dc
commit b03cfe83ce
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
misc/tools/progs-analyzer.pl
View File

@ -360,6 +360,14 @@ sub disassemble_function($$;$)
print "$func->{debugname}:\n";
if($func->{first_statement} < 0) # builtin
{
printf INSTRUCTION_FORMAT, '', '', '.BUILTIN';
printf OPERAND_FORMAT, -$func->{first_statement};
print INSTRUCTION_SEPARATOR;
return;
}
my $initializer = sub
{
my ($ofs) = @_;
@ -530,7 +538,6 @@ sub find_uninitialized_locals($$)
{
my ($progs, $func) = @_;
return
if $func->{first_statement} < 0; # builtin
@ -1053,7 +1060,7 @@ sub detect_constants($)
$progs->{temps} = \%istemp;
# globaldefs
my @globaldefs = (undef) x @{$progs->{globaldefs}};
my @globaldefs = (undef) x @{$progs->{globals}};
for(@{$progs->{globaldefs}})
{
$globaldefs[$_->{ofs}] //= $_
@ -1345,6 +1352,13 @@ sub parse_progs($)
print STDERR "Detecting constants and temps, and naming...\n";
detect_constants \%p;
if($ENV{DUMP})
{
use Data::Dumper;
print Dumper \%p;
return;
}
# what do we want to do?
my $checkfunc = \&find_uninitialized_locals;
if($ENV{DISASSEMBLE})