Commit bbdb5438 authored by Dr. Stephen Henson's avatar Dr. Stephen Henson
Browse files

More NASM support code it still doesn't work but it doesn't work less than it 

didn't work before :-)
parent 50596582

crypto/des/asm/crypt586.pl

+1 −1
Changes for crypto/des/asm/crypt586.pl: 1 added line, 1 removed line.
Original line number Diff line number Diff line
@@ -32,7 +32,7 @@ sub fcrypt_body 
	&xor(	$R,	$R);

	&mov($ks,&wparam(1));



	&push(25); # add a variable

	&push(&DWC(25)); # add a variable



	&set_label("start");

	for ($i=0; $i<16; $i+=2)

crypto/des/asm/desboth.pl

+3 −3
Changes for crypto/des/asm/desboth.pl: 3 added lines, 3 removed lines.
Original line number Diff line number Diff line
@@ -44,15 +44,15 @@ sub des_encrypt3 
		 &mov("edi",&wparam(2));

		 &mov("eax",&wparam(3));

		}

	&mov(&swtmp(2),	(($enc)?"1":"0"));

	&mov(&swtmp(2),	(DWC(($enc)?"1":"0")));

	&mov(&swtmp(1),	"eax");

	&mov(&swtmp(0),	"ebx");

	&call("des_encrypt2");

	&mov(&swtmp(2),	(($enc)?"0":"1"));

	&mov(&swtmp(2),	(DWC(($enc)?"0":"1")));

	&mov(&swtmp(1),	"edi");

	&mov(&swtmp(0),	"ebx");

	&call("des_encrypt2");

	&mov(&swtmp(2),	(($enc)?"1":"0"));

	&mov(&swtmp(2),	(DWC(($enc)?"1":"0")));

	&mov(&swtmp(1),	"esi");

	&mov(&swtmp(0),	"ebx");

	&call("des_encrypt2");

crypto/perlasm/x86ms.pl

+10 −0
Changes for crypto/perlasm/x86ms.pl: 10 added lines, 0 removed lines.
Original line number Diff line number Diff line
@@ -51,6 +51,16 @@ sub main'DWP 
	&get_mem("DWORD",@_);

	}



sub main'BC

	{

	return @_;

	}



sub main'DWC

	{

	return @_;

	}



sub main'stack_push

	{

	local($num)=@_;

crypto/perlasm/x86nasm.pl

+22 −5
Changes for crypto/perlasm/x86nasm.pl: 22 added lines, 5 removed lines.
Original line number Diff line number Diff line
@@ -27,7 +27,14 @@ $label="L000"; 
sub main'asm_init_output { @out=(); }

sub main'asm_get_output { return(@out); }

sub main'get_labels { return(@labels); }

sub main'external_label { push(@labels,@_); push(@out, "EXTERN\t$_[0]"); }



sub main'external_label

{

	push(@labels,@_);

	foreach (@_) {

		push(@out, "extern\t_$_\n");

	}

}



sub main'LB

	{
@@ -51,6 +58,16 @@ sub main'DWP 
	&get_mem("DWORD",@_);

	}



sub main'BC

	{

	return "BYTE @_";

	}



sub main'DWC

	{

	return "DWORD @_";

	}



sub main'stack_push

	{

	my($num)=@_;
@@ -69,7 +86,7 @@ sub get_mem 
	{

	my($size,$addr,$reg1,$reg2,$idx)=@_;

	my($t,$post);

	my($ret)="[$size ";

	my($ret)="[";

	$addr =~ s/^\s+//;

	if ($addr =~ /^(.+)\+(.+)$/)

		{
@@ -192,7 +209,7 @@ sub using486 


sub main'file

	{

	push(@out, "segment .text");

	push(@out, "segment .text\n");

	}



sub main'function_begin
@@ -201,7 +218,7 @@ sub main'function_begin 


	push(@labels,$func);

	my($tmp)=<<"EOF";

GLOBAL	_$func

global	_$func

_$func:

	push	ebp

	push	ebx
@@ -216,7 +233,7 @@ sub main'function_begin_B 
	{

	my($func,$extra)=@_;

	my($tmp)=<<"EOF";

GLOBAL	_$func

global	_$func

_$func:

EOF

	push(@out,$tmp);

crypto/perlasm/x86unix.pl

+10 −0
Changes for crypto/perlasm/x86unix.pl: 10 added lines, 0 removed lines.
Original line number Diff line number Diff line
@@ -100,6 +100,16 @@ sub main'BP 
	return(&main'DWP(@_));

	}



sub main'BC

	{

	return @_;

	}



sub main'DWC

	{

	return @_;

	}



#sub main'BP

#	{

#	local($addr,$reg1,$reg2,$idx)=@_;