X-Git-Url: https://git.xonotic.org/?p=xonotic%2Fxonotic.git;a=blobdiff_plain;f=misc%2Ftools%2Fprogs-analyzer.pl;h=4ab99413e6e883eee701b60e3058a7fe1f3cbe0e;hp=5701c3a8bf945b977bee6b18630b6393abc8166f;hb=32d19e8457535c84ec3c82e390be4de6675b7511;hpb=4cd99969a936844c374f169f590a9d3b1f2d89b7

diff --git a/misc/tools/progs-analyzer.pl b/misc/tools/progs-analyzer.pl
index 5701c3a8..4ab99413 100755
--- a/misc/tools/progs-analyzer.pl
+++ b/misc/tools/progs-analyzer.pl
@@ -917,7 +917,7 @@ sub find_uninitialized_locals($$)
 			{
 				# TODO check if the entity passed is actually the one on which solid was set.
 				my $func = $s->{a};
-				if ($progs->{builtins}{setmodel}{$func} || $progs->{builtins}{setorigin}{$func} || $progs->{builtins}{setsize}{$func})
+				if ($progs->{builtins}{setmodel}{$func} || $pogs->{builtins}{setmodelindex}{$func} || $progs->{builtins}{setorigin}{$func} || $progs->{builtins}{setsize}{$func})
 				{
 					# All is clean.
 					$$state = -1;
@@ -927,8 +927,8 @@ sub find_uninitialized_locals($$)
 			if($c->{isreturn})
 			{
 				if ($$state >= 0) {
-					++$warned{$$state}{''}{"Changing .solid without setmodel/setorigin/setsize breaks area grid linking in Quake [write is here]"};
-					++$warned{$ip}{''}{"Changing .solid without setmodel/setorigin/setsize breaks area grid linking in Quake [return is here]"};
+					++$warned{$$state}{''}{"Changing .solid without setmodel/setmodelindex/setorigin/setsize breaks area grid linking in Quake [write is here]"};
+					++$warned{$ip}{''}{"Changing .solid without setmodel/setmodelindex/setorigin/setsize breaks area grid linking in Quake [return is here]"};
 				}
 			}
 
@@ -1413,8 +1413,8 @@ sub parse_progs($$)
 		}
 	}
 
-	print STDERR "Looking for error(), setmodel(), setorigin(), setsize()...\n";
-	$p{builtins} = { error => {}, setmodel => {}, setorigin => {}, setsize => {} };
+	print STDERR "Looking for error(), setmodel(), setmodelindex(), setorigin(), setsize()...\n";
+	$p{builtins} = { error => {}, setmodel => {}, setmodelindex => {}, setorigin => {}, setsize => {} };
 	for(@{$p{globaldefs}})
 	{
 		my $name = $p{getstring}($_->{s_name});