RepoMirrors/xonotic
1
0
Fork 0
mirror of https://gitlab.com/xonotic/xonotic synced 2025-02-21 21:16:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

support RETURN of the last two globals :)

Browse Source
This commit is contained in:
Rudolf Polzer 2012-12-18 13:37:01 +01:00
parent aa2b5a77b2
commit 2e5758d8a3
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -898,7 +898,7 @@ sub detect_constants($)
use constant GLOBALFLAG_U => 64; # unused
use constant GLOBALFLAG_P => 128; # possibly parameter passing
use constant GLOBALFLAG_D => 256; # has a def
my @globalflags = (GLOBALFLAG_Q | GLOBALFLAG_U) x @{$progs->{globals}};
my @globalflags = (GLOBALFLAG_Q | GLOBALFLAG_U) x (@{$progs->{globals}} + 2);
for(@{$progs->{functions}})
{
@ -1181,7 +1181,7 @@ sub parse_progs($)
die "Out of range name in globaldef $_"
if $g->{s_name} < 0 || $g->{s_name} >= length $p{strings};
my $name = $p{getstring}->($g->{s_name});
die "Out of range ofs in globaldef $_ (name: \"$name\")"
die "Out of range ofs $g->{ofs} in globaldef $_ (name: \"$name\")"
if $g->{ofs} >= $p{globals};
}
@ -1195,7 +1195,7 @@ sub parse_progs($)
die "Out of range name in fielddef $_"
if $g->{s_name} < 0 || $g->{s_name} >= length $p{strings};
my $name = $p{getstring}->($g->{s_name});
die "Out of range ofs in globaldef $_ (name: \"$name\")"
die "Out of range ofs $g->{ofs} in fielddef $_ (name: \"$name\")"
if $g->{ofs} >= $p{header}{entityfields};
}
@ -1249,6 +1249,7 @@ sub parse_progs($)
next
unless defined $type;
use Data::Dumper; warn Dumper $s;
if($type eq 'inglobal' || $type eq 'inglobalfunc')
{
$s->{$_} &= 0xFFFF;
@ -1258,8 +1259,18 @@ sub parse_progs($)
elsif($type eq 'inglobalvec')
{
$s->{$_} &= 0xFFFF;
die "Out of range global offset in statement $ip - cannot continue"
if $s->{$_} >= @{$p{globals}}-2;
if($c->{isreturn})
{
die "Out of range global offset in statement $ip - cannot continue"
if $s->{$_} >= @{$p{globals}};
print "Potentially out of range global offset in statement $ip - may crash engines"
if $s->{$_} >= @{$p{globals}}-2;
}
else
{
die "Out of range global offset in statement $ip - cannot continue"
if $s->{$_} >= @{$p{globals}}-2;
}
}
elsif($type eq 'outglobal')
{