From 914c2a28c05797dc44fb3f498e6e12e5bc0db2b3 Mon Sep 17 00:00:00 2001
From: Andy Polyakov <appro@openssl.org>
Date: Sat, 27 Nov 2004 15:14:58 +0000
Subject: [PATCH] perlasm/x86[ms|nasm] update to accomodate updated RC4
 assembler module.

---
 crypto/perlasm/x86ms.pl   | 9 +++++----
 crypto/perlasm/x86nasm.pl | 1 +
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/crypto/perlasm/x86ms.pl b/crypto/perlasm/x86ms.pl
index 3764760585..4f4a6fea9d 100644
--- a/crypto/perlasm/x86ms.pl
+++ b/crypto/perlasm/x86ms.pl
@@ -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;
diff --git a/crypto/perlasm/x86nasm.pl b/crypto/perlasm/x86nasm.pl
index 27080a0f83..965bff1bd3 100644
--- a/crypto/perlasm/x86nasm.pl
+++ b/crypto/perlasm/x86nasm.pl
@@ -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"); }