mirror of
https://github.com/nillerusr/source-engine.git
synced 2024-12-23 14:46:53 +00:00
24 lines
439 B
Perl
24 lines
439 B
Perl
|
#! perl
|
||
|
|
|
||
|
|
# scan all .o files for illegal instructions from passing aggregates to varargs functions.
|
||
|
|
|
||
|
|
use File::Find;
|
||
|
|
|
||
|
|
find( \&CheckFile, "." );
|
||
|
|
|
||
|
|
sub CheckFile
|
||
|
|
{
|
||
|
|
return unless (/\.o$/ );
|
||
|
|
open( DIS, "objdump --disassemble -C $_|" ) || die "can't process $_";
|
||
|
|
while( <DIS> )
|
||
|
|
{
|
||
|
|
$symbol = $1 if ( /^[0-9]+ \<(.*)\>:/ );
|
||
|
|
if ( /\s+ud2a/ )
|
||
|
|
{
|
||
|
|
print "Illegal instruction in $symbol in ", $File::Find::name, "\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|