Lines Matching refs:Fields
542 my (@Syms, $Found, @Fields);
550 @Fields = split(' ', $Line);
553 while ($Fields[$Offset]) {
554 if ($Fields[$Offset] =~ /^file=(.*)/) {
567 if ($Fields[$Offset] =~ /^\((.*)\)/) {
578 while ($Fields[$Offset]) {
579 if ($Fields[$Offset] =~ /^file=(.*)/) {
592 while ($Fields[$Offset]) {
593 if ($Fields[$Offset] =~ /^(\`|\')(.*)\'$/) {
602 while ($Fields[$Offset]) {
603 if ($Fields[$Offset] =~ /^\((.*)/) {
1246 my (@Fields);
1295 @Fields = split(' ', $Line);
1298 if ($#Fields == 3) {
1301 if ($Fields[1] eq 'FILTER') {
1305 elsif ($Fields[1] eq 'AUXILIARY') {
1310 my (@Filtees) = split(':', $Fields[3]);
1323 if (($#Fields < 4) || ($Fields[1] !~ /^FLAGS/)) {
1332 if (($Fields[1] eq 'FLAGS') &&
1339 if (($Fields[1] eq 'FLAGS_1') &&
1363 @Fields = split(' ', $Line);
1367 if ($Fields[0] eq 'R_386_COPY') {
1368 $SymName = $Fields[3];
1370 $SymName = $Fields[4];
1383 @Fields = split(' ', $Line);
1386 if ($#Fields < 1) {
1389 if ($Fields[1] =~ /N/) {
1392 if ($Fields[1] =~ /F/) {
1395 if ($Fields[1] =~ /A/) {
1398 if ($Fields[1] =~ /I/) {
1405 $SymName = $Fields[$#Fields];
1415 my ($Filtee) = $Fields[$#Fields - 1];
1448 my (@Fields) = split(' ', $Line);
1457 if (($#Fields < 8) || ($Fields[4] !~ $GlobWeak) ||
1458 ($Fields[7] eq 'UNDEF') ||
1459 (!$opt{a} && (oct($Fields[2]) eq 0) &&
1460 ((($Fields[7] eq 'ABS') && ($Fields[3] eq 'OBJT')) ||
1461 ($Fields[3] eq 'NOTY')))) {
1469 if (($Copy eq 1) && ($Fields[3] eq 'OBJT')) {
1470 push(@{$AddrToName{$Fields[1]}}, $Fields[8]);
1472 if (($Symbols{$Fields[8]}{$Obj}) &&
1473 ($Symbols{$Fields[8]}{$Obj}[$ObjFlag] & $Cpyr)) {
1474 $NameToAddr{$Fields[8]} = $Fields[1];
1489 if (($Fields[5] =~ /^[IP]$/) || $Symb || $Exec) {
1501 if ($Fields[8] !~ $MultSyms) {
1502 if ($Fields[3] =~ /^FUNC$/) {
1504 } elsif ($Fields[3] =~ /^OBJT$/) {
1505 my ($Size) = $Fields[2];
1513 $Symbols{$Fields[8]}{$Obj}[$ObjSize] = $Size;
1517 $Symbols{$Fields[8]}{$Obj}[$ObjFlag] |= $Flags;
1518 $Symbols{$Fields[8]}{$Obj}[$ObjVis] = $Fields[5];
1519 $Objects{$Obj}{$Fields[8]} |= $Flags;
1557 my (@Fields) = split(' ', $Line);
1559 if (($#Fields < 2) || ($Fields[1] ne '==') ||
1560 ($Fields[0] eq $Fields[2])) {