crypto/perlasm/x86_64-xlate.pl

22 # - can't use multiple ops per line;
111 	local	*line = shift;
114 	if ($line =~ /^([a-z][a-z0-9]*)/i) {
117 	    $line = substr($line,@+[0]); $line =~ s/^\s+//;
186 	local	*line = shift;
189 	if ($line =~ /^\$([^,]+)/) {
192 	    $line = substr($line,@+[0]); $line =~ s/^\s+//;
215 	local	*line = shift;
219 	if ($line =~ /^(\*?)([^\(,]*)\(([%\w,]+)\)/) {
225 	    $line = substr($line,@+[0]); $line =~ s/^\s+//;
293 	local	*line = shift;
297 	if ($line =~ /^(\*?)%(\w+)/) {
302 	    $line = substr($line,@+[0]); $line =~ s/^\s+//;
330 	local	*line = shift;
333 	if ($line =~ /(^[\.\w]+)\:/) {
336 	    $line = substr($line,@+[0]); $line =~ s/^\s+//;
396 	local	*line = shift;
399 	if ($line =~ /(^[^,]+)/) {
402 	    $line = substr($line,@+[0]); $line =~ s/^\s+//;
422 	local	*line = shift;
435 	if ($line =~ /^\s*(\.\w+)/) {
439 	    $line = substr($line,@+[0]); $line =~ s/^\s+//;
442 		/\.picmeup/ && do { if ($line =~ /(%r[\w]+)/i) {
444 					$line=sprintf "0x%x,0x90000000",$opcode{$1};
449 			    && do { $globals{$line} = $prefix . $line;
450 				    $line = $globals{$line} if ($prefix);
453 		/\.type/    && do { ($sym,$type,$narg) = split(',',$line);
465 				    $line =~ s/\@abi\-omnipotent/\@function/;
466 				    $line =~ s/\@function.*/\@function/;
469 		/\.asciz/   && do { if ($line =~ /^"(.*)"$/) {
471 					$line = join(",",unpack("C*",$1),0);
476 			    && do { $line =~ s/([_a-z][_a-z0-9]*)/$globals{$1} or $1/gei;
477 				    $line =~ s/\.L/$decor/g;
483 		$self->{value} = $dir . "\t" . $line;
492 				if ($win64 && $line =~ /([^,]+),\@function/);
501 		    $self->{value} = ".p2align\t" . (log($line)/log(2));
503 		    $current_segment=$line;
511 		$line = "";
542 				    $line =~ s/([^,]*).*/$1/;
543 				    $line = ".CRT\$XCU" if ($line eq ".init");
545 					$v="section	$line";
546 					if ($line=~/\.([px])data/) {
549 					} elsif ($line=~/\.CRT\$/i) {
554 					$v.="$line\tSEGMENT";
555 					if ($line=~/\.([px])data/) {
558 					} elsif ($line=~/\.CRT\$/i) {
562 				    $current_segment = $line;
566 		/\.extern/  && do { $self->{value}  = "EXTERN\t".$line;
572 				    $self->{value} .= "\t".$line;
586 		/\.align/   && do { $self->{value} = "ALIGN\t".$line; last; };
589 				    my @arr = split(/,\s*/,$line);
605 		/\.byte/    && do { my @str=split(/,\s*/,$line);
618 	    $line = "";
638 while($line=<>) {
640     chomp($line);
642     $line =~ s|[#!].*$||;	# get rid of asm-style comments...
643     $line =~ s|/\*.*\*/||;	# ... and C-style comments...
644     $line =~ s|^\s+||;		# ... and skip white spaces in beginning
651     if ($label=label->re(\$line))	{ print $label->out(); }
653     if (directive->re(\$line)) {
655     } elsif ($opcode=opcode->re(\$line)) { ARGUMENT: while (1) {
658 	if ($arg=register->re(\$line))	{ opcode->size($arg->size()); }
659 	elsif ($arg=const->re(\$line))	{ }
660 	elsif ($arg=ea->re(\$line))	{ }
661 	elsif ($arg=expr->re(\$line))	{ }
666 	last ARGUMENT if ($line !~ /^,/);
668 	$line =~ s/^,\s*//;
689     print $line,"\n";