crypto/perlasm/x86asm.pl - boringssl.git - Git at Google


            
            #! /usr/bin/env perl

            
            # Copyright 1995-2018 The OpenSSL Project Authors. All Rights Reserved.

            
            #

            
            # Licensed under the Apache License, Version 2.0 (the "License");

            
            # you may not use this file except in compliance with the License.

            
            # You may obtain a copy of the License at

            
            #

            
            #     https://www.apache.org/licenses/LICENSE-2.0

            
            #

            
            # Unless required by applicable law or agreed to in writing, software

            
            # distributed under the License is distributed on an "AS IS" BASIS,

            
            # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

            
            # See the License for the specific language governing permissions and

            
            # limitations under the License.


            # require 'x86asm.pl';

            
            # &asm_init(<flavor>[,$i386only]);

            
            # &function_begin("foo");

            
            # ...

            
            # &function_end("foo");

            
            # &asm_finish


            $out=();

            
            $i386=0;


            # AUTOLOAD is this context has quite unpleasant side effect, namely

            
            # that typos in function calls effectively go to assembler output,

            
            # but on the pros side we don't have to implement one subroutine per

            
            # each opcode...

            
            sub ::AUTOLOAD

            
            { my $opcode = $AUTOLOAD;


                die "more than 4 arguments passed to $opcode" if ($#_>3);


                $opcode =~ s/.*:://;

            
                if    ($opcode =~ /^push/) { $stack+=4; }

            
                elsif ($opcode =~ /^pop/)  { $stack-=4; }


                &generic($opcode,@_) or die "undefined subroutine \&$AUTOLOAD";

            
            }


            # record_function_hit(int) writes a byte with value one to the given offset of

            
            # |BORINGSSL_function_hit|, but only if BORINGSSL_DISPATCH_TEST is defined.

            
            # This is used in impl_dispatch_test.cc to test whether the expected assembly

            
            # functions are triggered by high-level API calls.

            
            sub ::record_function_hit

            
            { my($index)=@_;

            
                &preprocessor_ifdef("BORINGSSL_DISPATCH_TEST");

            
                &push("ebx");

            
                &push("edx");

            
                &call(&label("pic_for_function_hit"));

            
                &set_label("pic_for_function_hit");

            
                &blindpop("ebx");

            
                &lea("ebx",&DWP("BORINGSSL_function_hit+$index"."-".&label("pic_for_function_hit"),"ebx"));

            
                &mov("edx", 1);

            
                &movb(&BP(0, "ebx"), "dl");

            
                &pop("edx");

            
                &pop("ebx");

            
                &preprocessor_endif();

            
            }


            sub ::emit

            
            { my $opcode=shift;


                if ($#_==-1)    { push(@out,"\t$opcode\n");				}

            
                else            { push(@out,"\t$opcode\t".join(',',@_)."\n");	}

            
            }


            sub ::LB

            
            {   $_[0] =~ m/^e?([a-d])x$/o or die "$_[0] does not have a 'low byte'";

            
              $1."l";

            
            }

            
            sub ::HB

            
            {   $_[0] =~ m/^e?([a-d])x$/o or die "$_[0] does not have a 'high byte'";

            
              $1."h";

            
            }

            
            sub ::stack_push{ my $num=$_[0]*4; $stack+=$num; &sub("esp",$num);	}

            
            sub ::stack_pop	{ my $num=$_[0]*4; $stack-=$num; &add("esp",$num);	}

            
            sub ::blindpop	{ &pop($_[0]); $stack+=4;				}

            
            sub ::wparam	{ &DWP($stack+4*$_[0],"esp");				}

            
            sub ::swtmp	{ &DWP(4*$_[0],"esp");					}


            sub ::bswap

            
            {   if ($i386)	# emulate bswap for i386

            
                {	&comment("bswap @_");

            
            	&xchg(&HB(@_),&LB(@_));

            
            	&ror (@_,16);

            
            	&xchg(&HB(@_),&LB(@_));

            
                }

            
                else

            
                {	&generic("bswap",@_);	}

            
            }

            
            # These are made-up opcodes introduced over the years essentially

            
            # by ignorance, just alias them to real ones...

            
            sub ::movb	{ &mov(@_);	}

            
            sub ::xorb	{ &xor(@_);	}

            
            sub ::rotl	{ &rol(@_);	}

            
            sub ::rotr	{ &ror(@_);	}

            
            sub ::exch	{ &xchg(@_);	}

            
            sub ::halt	{ &hlt;		}

            
            sub ::movz	{ &movzx(@_);	}

            
            sub ::pushf	{ &pushfd;	}

            
            sub ::popf	{ &popfd;	}


            # 3 argument instructions

            
            sub ::movq

            
            { my($p1,$p2,$optimize)=@_;


                if ($optimize && $p1=~/^mm[0-7]$/ && $p2=~/^mm[0-7]$/)

            
                # movq between mmx registers can sink Intel CPUs

            
                {	&::pshufw($p1,$p2,0xe4);		}

            
                else

            
                {	&::generic("movq",@_);			}

            
            }


            sub rxb {

            
             local *opcode=shift;

            
             my ($dst,$src1,$src2,$rxb)=@_;


               $rxb|=0x7<<5;

            
               $rxb&=~(0x04<<5) if($dst>=8);

            
               $rxb&=~(0x01<<5) if($src1>=8);

            
               $rxb&=~(0x02<<5) if($src2>=8);

            
               push @opcode,$rxb;

            
            }


            sub ::vprotd

            
            { my $args=join(',',@_);

            
                if ($args =~ /xmm([0-7]),xmm([0-7]),([x0-9a-f]+)/)

            
                { my @opcode=(0x8f);

            
            	rxb(\@opcode,$1,$2,-1,0x08);

            
            	push @opcode,0x78,0xc2;

            
            	push @opcode,0xc0|($2&7)|(($1&7)<<3);		# ModR/M

            
            	my $c=$3;

            
            	push @opcode,$c=~/^0/?oct($c):$c;

            
            	&::data_byte(@opcode);

            
                }

            
                else

            
                {	&::generic("vprotd",@_);	}

            
            }


            sub ::endbranch

            
            {

            
                &::data_byte(0xf3,0x0f,0x1e,0xfb);

            
            }


            # label management

            
            $lbdecor="L";		# local label decoration, set by package

            
            $label="000";


            sub ::islabel		# see is argument is a known label

            
            { my $i;

            
                foreach $i (values %label) { return $i if ($i eq $_[0]); }

            
              $label{$_[0]};	# can be undef

            
            }


            sub ::label		# instantiate a function-scope label

            
            {   if (!defined($label{$_[0]}))

            
                {	$label{$_[0]}="${lbdecor}${label}${_[0]}"; $label++;   }

            
              $label{$_[0]};

            
            }


            sub ::LABEL		# instantiate a file-scope label

            
            {   $label{$_[0]}=$_[1] if (!defined($label{$_[0]}));

            
              $label{$_[0]};

            
            }


            sub ::static_label	{ &::LABEL($_[0],$lbdecor.$_[0]); }


            sub ::set_label_B	{ push(@out,"@_:\n"); }

            
            sub ::set_label

            
            { my $label=&::label($_[0]);

            
                &::align($_[1]) if ($_[1]>1);

            
                &::set_label_B($label);

            
              $label;

            
            }


            sub ::wipe_labels	# wipes function-scope labels

            
            {   foreach $i (keys %label)

            
                {	delete $label{$i} if ($label{$i} =~ /^\Q${lbdecor}\E[0-9]{3}/);	}

            
            }


            # subroutine management

            
            sub ::function_begin

            
            {   &function_begin_B(@_);

            
                $stack=4;

            
                &push("ebp");

            
                &push("ebx");

            
                &push("esi");

            
                &push("edi");

            
            }


            sub ::function_end

            
            {   &pop("edi");

            
                &pop("esi");

            
                &pop("ebx");

            
                &pop("ebp");

            
                &ret();

            
                &function_end_B(@_);

            
                $stack=0;

            
                &wipe_labels();

            
            }


            sub ::function_end_A

            
            {   &pop("edi");

            
                &pop("esi");

            
                &pop("ebx");

            
                &pop("ebp");

            
                &ret();

            
                $stack+=16;	# readjust esp as if we didn't pop anything

            
            }


            sub ::asciz

            
            { my @str=unpack("C*",shift);

            
                push @str,0;

            
                while ($#str>15) {

            
            	&data_byte(@str[0..15]);

            
            	foreach (0..15) { shift @str; }

            
                }

            
                &data_byte(@str) if (@str);

            
            }


            sub ::asm_finish

            
            {   &file_end();

            
                my $comment = "//";

            
                $comment = ";" if ($win32);

            
                print <<___;

            
            $comment This file is generated from a similarly-named Perl script in the BoringSSL

            
            $comment source tree. Do not edit by hand.


            ___

            
                if ($win32) {

            
                    print <<___ unless $masm;

            
            \%ifdef BORINGSSL_PREFIX

            
            \%include "boringssl_prefix_symbols_internal_x86_win_asm.inc"

            
            \%endif

            
            \%ifidn __OUTPUT_FORMAT__, win32

            
            ___

            
                    print @out;

            
                    print <<___ unless $masm;

            
            \%else

            
            ; Work around https://bugzilla.nasm.us/show_bug.cgi?id=3392738

            
            ret

            
            \%endif

            
            ___

            
                } else {

            
                    my $target;

            
                    if ($elf) {

            
                        $target = "defined(__ELF__)";

            
                    } elsif ($macosx) {

            
                        $target = "defined(__APPLE__)";

            
                    } else {

            
                        die "unknown target";

            
                    }


                    print <<___;

            
            #include <openssl/asm_base.h>


            #if !defined(OPENSSL_NO_ASM) && defined(OPENSSL_X86) && $target

            
            ___

            
                    print @out;

            
                    print <<___;

            
            #endif  // !defined(OPENSSL_NO_ASM) && defined(OPENSSL_X86) && $target

            
            ___

            
                }

            
            }


            sub ::asm_init

            
            { my ($type,$cpu)=@_;


                $i386=$cpu;


                $elf=$cpp=$coff=$aout=$macosx=$win32=$mwerks=$android=0;

            
                if    (($type eq "elf"))

            
                {	$elf=1;			require "x86gas.pl";	}

            
                elsif (($type eq "elf-1"))

            
                {	$elf=-1;		require "x86gas.pl";	}

            
                elsif (($type eq "a\.out"))

            
                {	$aout=1;		require "x86gas.pl";	}

            
                elsif (($type eq "coff" or $type eq "gaswin"))

            
                {	$coff=1;		require "x86gas.pl";	}

            
                elsif (($type eq "win32n"))

            
                {	$win32=1;		require "x86nasm.pl";	}

            
                elsif (($type eq "win32"))

            
                {	$win32=1; $masm=1;	require "x86masm.pl";	}

            
                elsif (($type eq "macosx"))

            
                {	$aout=1; $macosx=1;	require "x86gas.pl";	}

            
                elsif (($type eq "android"))

            
                {	$elf=1; $android=1;	require "x86gas.pl";	}

            
                else

            
                {	print STDERR <<"EOF";

            
            Pick one target type from

            
            	elf	- Linux, FreeBSD, Solaris x86, etc.

            
            	a.out	- DJGPP, elder OpenBSD, etc.

            
            	coff	- GAS/COFF such as Win32 targets

            
            	win32n	- Windows 95/Windows NT NASM format

            
            	macosx	- Mac OS X

            
            EOF

            
            	exit(1);

            
                }


                $pic=0;

            
                for (@ARGV) { $pic=1 if (/\-[fK]PIC/i); }


                &file();

            
            }


            sub ::hidden {}


            1;
	#! /usr/bin/env perl
	# Copyright 1995-2018 The OpenSSL Project Authors. All Rights Reserved.
	#
	# Licensed under the Apache License, Version 2.0 (the "License");
	# you may not use this file except in compliance with the License.
	# You may obtain a copy of the License at
	#
	# https://www.apache.org/licenses/LICENSE-2.0
	#
	# Unless required by applicable law or agreed to in writing, software
	# distributed under the License is distributed on an "AS IS" BASIS,
	# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
	# See the License for the specific language governing permissions and
	# limitations under the License.


	# require 'x86asm.pl';
	# &asm_init(<flavor>[,$i386only]);
	# &function_begin("foo");
	# ...
	# &function_end("foo");
	# &asm_finish

	$out=();
	$i386=0;

	# AUTOLOAD is this context has quite unpleasant side effect, namely
	# that typos in function calls effectively go to assembler output,
	# but on the pros side we don't have to implement one subroutine per
	# each opcode...
	sub ::AUTOLOAD
	{ my $opcode = $AUTOLOAD;

	die "more than 4 arguments passed to $opcode" if ($#_>3);

	$opcode =~ s/.*:://;
	if ($opcode =~ /^push/) { $stack+=4; }
	elsif ($opcode =~ /^pop/) { $stack-=4; }

	&generic($opcode,@_) or die "undefined subroutine \&$AUTOLOAD";
	}

	# record_function_hit(int) writes a byte with value one to the given offset of
	# \|BORINGSSL_function_hit\|, but only if BORINGSSL_DISPATCH_TEST is defined.
	# This is used in impl_dispatch_test.cc to test whether the expected assembly
	# functions are triggered by high-level API calls.
	sub ::record_function_hit
	{ my($index)=@_;
	&preprocessor_ifdef("BORINGSSL_DISPATCH_TEST");
	&push("ebx");
	&push("edx");
	&call(&label("pic_for_function_hit"));
	&set_label("pic_for_function_hit");
	&blindpop("ebx");
	&lea("ebx",&DWP("BORINGSSL_function_hit+$index"."-".&label("pic_for_function_hit"),"ebx"));
	&mov("edx", 1);
	&movb(&BP(0, "ebx"), "dl");
	&pop("edx");
	&pop("ebx");
	&preprocessor_endif();
	}

	sub ::emit
	{ my $opcode=shift;

	if ($#_==-1) { push(@out,"\t$opcode\n"); }
	else { push(@out,"\t$opcode\t".join(',',@_)."\n"); }
	}

	sub ::LB
	{ $_[0] =~ m/^e?([a-d])x$/o or die "$_[0] does not have a 'low byte'";
	$1."l";
	}
	sub ::HB
	{ $_[0] =~ m/^e?([a-d])x$/o or die "$_[0] does not have a 'high byte'";
	$1."h";
	}
	sub ::stack_push{ my $num=$_[0]*4; $stack+=$num; &sub("esp",$num); }
	sub ::stack_pop { my $num=$_[0]*4; $stack-=$num; &add("esp",$num); }
	sub ::blindpop { &pop($_[0]); $stack+=4; }
	sub ::wparam { &DWP($stack+4*$_[0],"esp"); }
	sub ::swtmp { &DWP(4*$_[0],"esp"); }

	sub ::bswap
	{ if ($i386) # emulate bswap for i386
	{ &comment("bswap @_");
	&xchg(&HB(@_),&LB(@_));
	&ror (@_,16);
	&xchg(&HB(@_),&LB(@_));
	}
	else
	{ &generic("bswap",@_); }
	}
	# These are made-up opcodes introduced over the years essentially
	# by ignorance, just alias them to real ones...
	sub ::movb { &mov(@_); }
	sub ::xorb { &xor(@_); }
	sub ::rotl { &rol(@_); }
	sub ::rotr { &ror(@_); }
	sub ::exch { &xchg(@_); }
	sub ::halt { &hlt; }
	sub ::movz { &movzx(@_); }
	sub ::pushf { &pushfd; }
	sub ::popf { &popfd; }

	# 3 argument instructions
	sub ::movq
	{ my($p1,$p2,$optimize)=@_;

	if ($optimize && $p1=~/^mm[0-7]$/ && $p2=~/^mm[0-7]$/)
	# movq between mmx registers can sink Intel CPUs
	{ &::pshufw($p1,$p2,0xe4); }
	else
	{ &::generic("movq",@_); }
	}

	sub rxb {
	local *opcode=shift;
	my ($dst,$src1,$src2,$rxb)=@_;

	$rxb\|=0x7<<5;
	$rxb&=~(0x04<<5) if($dst>=8);
	$rxb&=~(0x01<<5) if($src1>=8);
	$rxb&=~(0x02<<5) if($src2>=8);
	push @opcode,$rxb;
	}

	sub ::vprotd
	{ my $args=join(',',@_);
	if ($args =~ /xmm([0-7]),xmm([0-7]),([x0-9a-f]+)/)
	{ my @opcode=(0x8f);
	rxb(\@opcode,$1,$2,-1,0x08);
	push @opcode,0x78,0xc2;
	push @opcode,0xc0\|($2&7)\|(($1&7)<<3); # ModR/M
	my $c=$3;
	push @opcode,$c=~/^0/?oct($c):$c;
	&::data_byte(@opcode);
	}
	else
	{ &::generic("vprotd",@_); }
	}

	sub ::endbranch
	{
	&::data_byte(0xf3,0x0f,0x1e,0xfb);
	}

	# label management
	$lbdecor="L"; # local label decoration, set by package
	$label="000";

	sub ::islabel # see is argument is a known label
	{ my $i;
	foreach $i (values %label) { return $i if ($i eq $_[0]); }
	$label{$_[0]}; # can be undef
	}

	sub ::label # instantiate a function-scope label
	{ if (!defined($label{$_[0]}))
	{ $label{$_[0]}="${lbdecor}${label}${_[0]}"; $label++; }
	$label{$_[0]};
	}

	sub ::LABEL # instantiate a file-scope label
	{ $label{$_[0]}=$_[1] if (!defined($label{$_[0]}));
	$label{$_[0]};
	}

	sub ::static_label { &::LABEL($_[0],$lbdecor.$_[0]); }

	sub ::set_label_B { push(@out,"@_:\n"); }
	sub ::set_label
	{ my $label=&::label($_[0]);
	&::align($_[1]) if ($_[1]>1);
	&::set_label_B($label);
	$label;
	}

	sub ::wipe_labels # wipes function-scope labels
	{ foreach $i (keys %label)
	{ delete $label{$i} if ($label{$i} =~ /^\Q${lbdecor}\E[0-9]{3}/); }
	}

	# subroutine management
	sub ::function_begin
	{ &function_begin_B(@_);
	$stack=4;
	&push("ebp");
	&push("ebx");
	&push("esi");
	&push("edi");
	}

	sub ::function_end
	{ &pop("edi");
	&pop("esi");
	&pop("ebx");
	&pop("ebp");
	&ret();
	&function_end_B(@_);
	$stack=0;
	&wipe_labels();
	}

	sub ::function_end_A
	{ &pop("edi");
	&pop("esi");
	&pop("ebx");
	&pop("ebp");
	&ret();
	$stack+=16; # readjust esp as if we didn't pop anything
	}

	sub ::asciz
	{ my @str=unpack("C*",shift);
	push @str,0;
	while ($#str>15) {
	&data_byte(@str[0..15]);
	foreach (0..15) { shift @str; }
	}
	&data_byte(@str) if (@str);
	}

	sub ::asm_finish
	{ &file_end();
	my $comment = "//";
	$comment = ";" if ($win32);
	print <<___;
	$comment This file is generated from a similarly-named Perl script in the BoringSSL
	$comment source tree. Do not edit by hand.

	___
	if ($win32) {
	print <<___ unless $masm;
	\%ifdef BORINGSSL_PREFIX
	\%include "boringssl_prefix_symbols_internal_x86_win_asm.inc"
	\%endif
	\%ifidn __OUTPUT_FORMAT__, win32
	___
	print @out;
	print <<___ unless $masm;
	\%else
	; Work around https://bugzilla.nasm.us/show_bug.cgi?id=3392738
	ret
	\%endif
	___
	} else {
	my $target;
	if ($elf) {
	$target = "defined(__ELF__)";
	} elsif ($macosx) {
	$target = "defined(__APPLE__)";
	} else {
	die "unknown target";
	}

	print <<___;
	#include <openssl/asm_base.h>

	#if !defined(OPENSSL_NO_ASM) && defined(OPENSSL_X86) && $target
	___
	print @out;
	print <<___;
	#endif // !defined(OPENSSL_NO_ASM) && defined(OPENSSL_X86) && $target
	___
	}
	}

	sub ::asm_init
	{ my ($type,$cpu)=@_;

	$i386=$cpu;

	$elf=$cpp=$coff=$aout=$macosx=$win32=$mwerks=$android=0;
	if (($type eq "elf"))
	{ $elf=1; require "x86gas.pl"; }
	elsif (($type eq "elf-1"))
	{ $elf=-1; require "x86gas.pl"; }
	elsif (($type eq "a\.out"))
	{ $aout=1; require "x86gas.pl"; }
	elsif (($type eq "coff" or $type eq "gaswin"))
	{ $coff=1; require "x86gas.pl"; }
	elsif (($type eq "win32n"))
	{ $win32=1; require "x86nasm.pl"; }
	elsif (($type eq "win32"))
	{ $win32=1; $masm=1; require "x86masm.pl"; }
	elsif (($type eq "macosx"))
	{ $aout=1; $macosx=1; require "x86gas.pl"; }
	elsif (($type eq "android"))
	{ $elf=1; $android=1; require "x86gas.pl"; }
	else
	{ print STDERR <<"EOF";
	Pick one target type from
	elf - Linux, FreeBSD, Solaris x86, etc.
	a.out - DJGPP, elder OpenBSD, etc.
	coff - GAS/COFF such as Win32 targets
	win32n - Windows 95/Windows NT NASM format
	macosx - Mac OS X
	EOF
	exit(1);
	}

	$pic=0;
	for (@ARGV) { $pic=1 if (/\-[fK]PIC/i); }

	&file();
	}

	sub ::hidden {}

	1;