From 98939a05b6884538ba40fae2606291140f9e5839 Mon Sep 17 00:00:00 2001
From: Andy Polyakov <appro@openssl.org>
Date: Fri, 8 Dec 2006 14:18:58 +0000
Subject: [PATCH] alpha-mont.pl: gcc portability fix and make-rule.

---
 crypto/bn/Makefile          | 3 +++
 crypto/bn/asm/alpha-mont.pl | 4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/crypto/bn/Makefile b/crypto/bn/Makefile
index 8802dde70e..3fd08e719a 100644
--- a/crypto/bn/Makefile
+++ b/crypto/bn/Makefile
@@ -129,6 +129,9 @@ aix_ppc64-mont.s: asm/ppc-mont.pl;	$(PERL) asm/ppc-mont.pl $@
 osx_ppc32-mont.s: asm/ppc-mont.pl;	$(PERL) $< $@
 osx_ppc64-mont.s: asm/ppc-mont.pl;	$(PERL) $< $@
 
+alpha-mont.s:	asm/alpha-mont.pl
+	$(PERL) $< | $(CC) -E - > $@
+
 files:
 	$(PERL) $(TOP)/util/files.pl Makefile >> $(TOP)/MINFO
 
diff --git a/crypto/bn/asm/alpha-mont.pl b/crypto/bn/asm/alpha-mont.pl
index 4a7c63f6e4..a25f5cb085 100644
--- a/crypto/bn/asm/alpha-mont.pl
+++ b/crypto/bn/asm/alpha-mont.pl
@@ -51,8 +51,8 @@ $code=<<___;
 
 .globl	bn_mul_mont
 .align	5
+.ent	bn_mul_mont
 bn_mul_mont:
-	.ent	bn_mul_mont
 	lda	sp,-40(sp)
 	stq	ra,0(sp)
 	stq	s3,8(sp)
@@ -305,7 +305,7 @@ bn_mul_mont:
 
 .align	4
 .Lexit:	mov	fp,sp
-	#ldq	ra,0(sp)
+	/*ldq	ra,0(sp)*/
 	ldq	s3,8(sp)
 	ldq	s4,16(sp)
 	ldq	s5,24(sp)
-- 
2.25.1