sgs/lari/lari.pl

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])) {