From a9dd6dd9c022ae208649d051ce3d85279e05f25b Mon Sep 17 00:00:00 2001
From: miod <miod@openbsd.org>
Date: Thu, 2 Feb 2023 20:12:05 +0000
Subject: [PATCH] Remove AIX toc data after every function. NFC

---
 lib/libcrypto/aes/asm/aes-ppc.pl    | 25 ++----------------------
 lib/libcrypto/bn/asm/ppc-mont.pl    |  5 -----
 lib/libcrypto/bn/asm/ppc.pl         | 30 -----------------------------
 lib/libcrypto/sha/asm/sha1-ppc.pl   |  8 --------
 lib/libcrypto/sha/asm/sha512-ppc.pl |  5 -----
 5 files changed, 2 insertions(+), 71 deletions(-)

diff --git a/lib/libcrypto/aes/asm/aes-ppc.pl b/lib/libcrypto/aes/asm/aes-ppc.pl
index 91a46f60ed1..bc936036694 100644
--- a/lib/libcrypto/aes/asm/aes-ppc.pl
+++ b/lib/libcrypto/aes/asm/aes-ppc.pl
@@ -118,9 +118,7 @@ LAES_Te:
 	addi	$Tbl0,$Tbl0,`128-8`
 	mtlr	r0
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,0,0
-	.space	`64-9*4`
+	.space	`64-12*4`
 LAES_Td:
 	mflr	r0
 	bcl	20,31,\$+4
@@ -128,9 +126,7 @@ LAES_Td:
 	addi	$Tbl0,$Tbl0,`128-64-8+2048+256`
 	mtlr	r0
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,0,0
-	.space	`128-64-9*4`
+	.space	`128-64-12*4`
 ___
 &_data_word(
 	0xc66363a5, 0xf87c7c84, 0xee777799, 0xf67b7b8d,
@@ -472,9 +468,6 @@ Lenc_done:
 	mtlr	r0
 	addi	$sp,$sp,$FRAME
 	blr
-	.long	0
-	.byte	0,12,4,1,0x80,18,3,0
-	.long	0
 
 .align	5
 Lppc_AES_encrypt:
@@ -617,8 +610,6 @@ Lenc_loop:
 	xor	$s2,$s2,$t2
 	xor	$s3,$s3,$t3
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,0,0
 
 .align	4
 Lppc_AES_encrypt_compact:
@@ -762,8 +753,6 @@ Lenc_compact_done:
 	xor	$s2,$s2,$t2
 	xor	$s3,$s3,$t3
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,0,0
 
 .globl	.AES_decrypt
 .align	7
@@ -906,9 +895,6 @@ Ldec_done:
 	mtlr	r0
 	addi	$sp,$sp,$FRAME
 	blr
-	.long	0
-	.byte	0,12,4,1,0x80,18,3,0
-	.long	0
 
 .align	5
 Lppc_AES_decrypt:
@@ -1051,8 +1037,6 @@ Ldec_loop:
 	xor	$s2,$s2,$t2
 	xor	$s3,$s3,$t3
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,0,0
 
 .align	4
 Lppc_AES_decrypt_compact:
@@ -1353,11 +1337,6 @@ Ldec_compact_done:
 	xor	$s2,$s2,$t2
 	xor	$s3,$s3,$t3
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,0,0
-
-.asciz	"AES for PPC, CRYPTOGAMS by <appro\@openssl.org>"
-.align	7
 ___
 
 $code =~ s/\`([^\`]*)\`/eval $1/gem;
diff --git a/lib/libcrypto/bn/asm/ppc-mont.pl b/lib/libcrypto/bn/asm/ppc-mont.pl
index f9b6992ccc8..293343619ea 100644
--- a/lib/libcrypto/bn/asm/ppc-mont.pl
+++ b/lib/libcrypto/bn/asm/ppc-mont.pl
@@ -322,11 +322,6 @@ Lcopy:				; copy or in-place refresh
 	$POP	r31,`-1*$SIZE_T`($tj)
 	mr	$sp,$tj
 	blr
-	.long	0
-	.byte	0,12,4,0,0x80,12,6,0
-	.long	0
-
-.asciz  "Montgomery Multiplication for PPC, CRYPTOGAMS by <appro\@openssl.org>"
 ___
 
 $code =~ s/\`([^\`]*)\`/eval $1/gem;
diff --git a/lib/libcrypto/bn/asm/ppc.pl b/lib/libcrypto/bn/asm/ppc.pl
index 34e38d8f6aa..c9b7f9477d1 100644
--- a/lib/libcrypto/bn/asm/ppc.pl
+++ b/lib/libcrypto/bn/asm/ppc.pl
@@ -389,9 +389,6 @@ $data=<<EOF;
 	$ST		r9,`6*$BNSZ`(r3)	#r[6]=c1
 	$ST		r10,`7*$BNSZ`(r3)	#r[7]=c2
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,2,0
-	.long	0
 
 #
 #	NOTE:	The following label name should be changed to
@@ -816,9 +813,6 @@ $data=<<EOF;
 
 
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,2,0
-	.long	0
 
 #
 #	NOTE:	The following label name should be changed to
@@ -969,9 +963,6 @@ $data=<<EOF;
 	$ST	r10,`6*$BNSZ`(r3)	#r[6]=c1
 	$ST	r11,`7*$BNSZ`(r3)	#r[7]=c2
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,3,0
-	.long	0
 
 #
 #	NOTE:	The following label name should be changed to
@@ -1507,9 +1498,6 @@ $data=<<EOF;
 	$ST	r12,`14*$BNSZ`(r3)	#r[14]=c3;
 	$ST	r10,`15*$BNSZ`(r3)	#r[15]=c1;
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,3,0
-	.long	0
 
 #
 #	NOTE:	The following label name should be changed to
@@ -1557,9 +1545,6 @@ Lppcasm_sub_adios:
 	subfze	r3,r0		# if carry bit is set then r3 = 0 else -1
 	andi.	r3,r3,1         # keep only last bit.
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,4,0
-	.long	0
 
 #
 #	NOTE:	The following label name should be changed to
@@ -1602,9 +1587,6 @@ Lppcasm_add_mainloop:
 Lppcasm_add_adios:	
 	addze	r3,r0			#return carry bit.
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,4,0
-	.long	0
 
 #
 #	NOTE:	The following label name should be changed to
@@ -1717,9 +1699,6 @@ Lppcasm_div8:
 Lppcasm_div9:
 	or	r3,r8,r0
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,3,0
-	.long	0
 
 #
 #	NOTE:	The following label name should be changed to
@@ -1758,9 +1737,6 @@ Lppcasm_sqr_mainloop:
 	bdnz-	Lppcasm_sqr_mainloop
 Lppcasm_sqr_adios:	
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,3,0
-	.long	0
 
 #
 #	NOTE:	The following label name should be changed to
@@ -1863,9 +1839,6 @@ Lppcasm_mw_REM:
 Lppcasm_mw_OVER:	
 	addi	r3,r12,0
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,4,0
-	.long	0
 
 #
 #	NOTE:	The following label name should be changed to
@@ -1988,9 +1961,6 @@ Lppcasm_maw_leftover:
 Lppcasm_maw_adios:	
 	addi	r3,r12,0
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,4,0
-	.long	0
 	.align	4
 EOF
 $data =~ s/\`([^\`]*)\`/eval $1/gem;
diff --git a/lib/libcrypto/sha/asm/sha1-ppc.pl b/lib/libcrypto/sha/asm/sha1-ppc.pl
index 2140dd2f8dd..85342b6a82d 100755
--- a/lib/libcrypto/sha/asm/sha1-ppc.pl
+++ b/lib/libcrypto/sha/asm/sha1-ppc.pl
@@ -262,9 +262,6 @@ Ldone:
 	mtlr	r0
 	addi	$sp,$sp,$FRAME
 	blr
-	.long	0
-	.byte	0,12,4,1,0x80,18,3,0
-	.long	0
 ___
 
 # This is private block function, which uses tailored calling
@@ -314,11 +311,6 @@ $code.=<<___;
 	addi	$inp,$inp,`16*4`
 	bdnz-	Lsha1_block_private
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,0,0
-___
-$code.=<<___;
-.asciz	"SHA1 block transform for PPC, CRYPTOGAMS by <appro\@fy.chalmers.se>"
 ___
 
 $code =~ s/\`([^\`]*)\`/eval $1/gem;
diff --git a/lib/libcrypto/sha/asm/sha512-ppc.pl b/lib/libcrypto/sha/asm/sha512-ppc.pl
index b5649299dc8..1f02cfdd564 100755
--- a/lib/libcrypto/sha/asm/sha512-ppc.pl
+++ b/lib/libcrypto/sha/asm/sha512-ppc.pl
@@ -309,9 +309,6 @@ Ldone:
 	mtlr	r0
 	addi	$sp,$sp,$FRAME
 	blr
-	.long	0
-	.byte	0,12,4,1,0x80,18,3,0
-	.long	0
 
 .align	4
 Lsha2_block_private:
@@ -378,8 +375,6 @@ $code.=<<___;
 	$ST	$H,`7*$SZ`($ctx)
 	bne	Lsha2_block_private
 	blr
-	.long	0
-	.byte	0,12,0x14,0,0,0,0,0
 	.rodata
 Ltable:
 ___
-- 
2.20.1