Commit 914c2a28 authored by Andy Polyakov's avatar Andy Polyakov
Browse files

perlasm/x86[ms|nasm] update to accomodate updated RC4 assembler module.

parent ea681ba8

crypto/perlasm/x86ms.pl

+5 −4
Original line number Diff line number Diff line
@@ -174,6 +174,7 @@ sub main'leave { &out0("leave"); } 
sub main'cpuid  { &out0("DW\t0A20Fh"); }

sub main'rdtsc  { &out0("DW\t0310Fh"); }

sub main'halt	{ &out0("hlt"); }

sub main'movz	{ &out2("movzx",@_); }



# SSE2

sub main'emms	{ &out0("emms"); }
@@ -255,7 +256,7 @@ sub main'function_begin 
	push(@labels,$func);



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

_TEXT	SEGMENT

_TEXT\$	SEGMENT PARA

PUBLIC	_$func

$extra

_$func PROC NEAR
@@ -273,7 +274,7 @@ sub main'function_begin_B 
	local($func,$extra)=@_;



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

_TEXT	SEGMENT

_TEXT\$	SEGMENT	PARA

PUBLIC	_$func

$extra

_$func PROC NEAR
@@ -293,7 +294,7 @@ sub main'function_end 
	pop	ebp

	ret

_$func ENDP

_TEXT	ENDS

_TEXT\$	ENDS

EOF

	push(@out,$tmp);

	$stack=0;
@@ -306,7 +307,7 @@ sub main'function_end_B 


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

_$func ENDP

_TEXT	ENDS

_TEXT\$	ENDS

EOF

	push(@out,$tmp);

	$stack=0;

crypto/perlasm/x86nasm.pl

+1 −0
Original line number Diff line number Diff line
@@ -192,6 +192,7 @@ sub main'leave { &out0("leave"); } 
sub main'cpuid	{ &out0("cpuid"); }

sub main'rdtsc	{ &out0("rdtsc"); }

sub main'halt	{ &out0("hlt"); }

sub main'movz	{ &out2("movzx",@_); }



# SSE2

sub main'emms	{ &out0("emms"); }