xref: /third_party/openssl/crypto/bn/asm/ppc.pl

237 #.set r7,7
283 # Freely use registers r5,r6,r7,r8,r9,r10,r11 as follows:
286 # r7,r8 are the results of the 32x32 giving 64 bit multiply.
305 	$UMULL		r7,r5,r6
308 	addc		r7,r7,r7		# compute (r7,r8)=2*(r7,r8)
313 	addc		r10,r7,r10		# now add to temp result.
319 	$UMULL		r7,r6,r6
321 	addc		r11,r7,r11
326 	$UMULL		r7,r5,r6
329 	addc		r7,r7,r7
333 	addc		r11,r7,r11
339 	$UMULL		r7,r5,r6
341 	addc		r7,r7,r7
345 	addc		r9,r7,r9
351 	$UMULL		r7,r5,r6
354 	addc		r7,r7,r7
357 	addc		r9,r7,r9
362 	$UMULL		r7,r6,r6
364 	addc		r10,r7,r10
369 	$UMULL		r7,r5,r6
371 	addc		r7,r7,r7
375 	addc		r10,r7,r10
381 	$UMULL		r7,r5,r6
383 	addc		r7,r7,r7
387 	addc		r11,r7,r11
392 	$UMULL		r7,r6,r6
394 	addc		r9,r7,r9
423 # Freely use registers r5,r6,r7,r8,r9,r10,r11 as follows:
426 # r7,r8 are the results of the 32x32 giving 64 bit multiply.
443 	$UMULL		r7,r5,r6
446 	addc		r10,r7,r10		#add the two register number
447 	adde		r11,r8,r0 		# (r8,r7) to the three register
450 	addc		r10,r7,r10		#add the two register number
451 	adde		r11,r8,r11 		# (r8,r7) to the three register
457 	$UMULL		r7,r6,r6
459 	addc		r11,r7,r11
464 	$UMULL		r7,r5,r6
467 	addc		r11,r7,r11
471 	addc		r11,r7,r11
478 	$UMULL		r7,r5,r6
481 	addc		r9,r7,r9
485 	addc		r9,r7,r9
491 	$UMULL		r7,r5,r6
494 	addc		r9,r7,r9
498 	addc		r9,r7,r9
504 	$UMULL		r7,r6,r6
507 	addc		r10,r7,r10
512 	$UMULL		r7,r5,r6
515 	addc		r10,r7,r10
519 	addc		r10,r7,r10
525 	$UMULL		r7,r5,r6
528 	addc		r10,r7,r10
532 	addc		r10,r7,r10
538 	$UMULL		r7,r5,r6
541 	addc		r11,r7,r11
545 	addc		r11,r7,r11
551 	$UMULL		r7,r5,r6
554 	addc		r11,r7,r11
558 	addc		r11,r7,r11
564 	$UMULL		r7,r5,r6
567 	addc		r11,r7,r11
571 	addc		r11,r7,r11
576 	$UMULL		r7,r6,r6
578 	addc		r9,r7,r9
583 	$UMULL		r7,r5,r6
586 	addc		r9,r7,r9
590 	addc		r9,r7,r9
596 	$UMULL		r7,r5,r6
599 	addc		r9,r7,r9
603 	addc		r9,r7,r9
609 	$UMULL		r7,r5,r6
611 	addc		r9,r7,r9
614 	addc		r9,r7,r9
620 	$UMULL		r7,r5,r6
623 	addc		r10,r7,r10
626 	addc		r10,r7,r10
632 	$UMULL		r7,r5,r6
635 	addc		r10,r7,r10
638 	addc		r10,r7,r10
644 	$UMULL		r7,r5,r6
646 	addc		r10,r7,r10
649 	addc		r10,r7,r10
655 	$UMULL		r7,r5,r6
658 	addc		r10,r7,r10
661 	addc		r10,r7,r10
666 	$UMULL		r7,r6,r6
668 	addc		r11,r7,r11
673 	$UMULL		r7,r5,r6
675 	addc		r11,r7,r11
678 	addc		r11,r7,r11
684 	$UMULL		r7,r5,r6
686 	addc		r11,r7,r11
690 	addc		r11,r7,r11
696 	$UMULL		r7,r5,r6
698 	addc		r11,r7,r11
701 	addc		r11,r7,r11
707 	$UMULL		r7,r5,r6
710 	addc		r9,r7,r9
713 	addc		r9,r7,r9
719 	$UMULL		r7,r5,r6
721 	addc		r9,r7,r9
724 	addc		r9,r7,r9
730 	$UMULL		r7,r5,r6
732 	addc		r9,r7,r9
735 	addc		r9,r7,r9
740 	$UMULL		r7,r6,r6
742 	addc		r10,r7,r10
747 	$UMULL		r7,r5,r6
749 	addc		r10,r7,r10
752 	addc		r10,r7,r10
758 	$UMULL		r7,r5,r6
760 	addc		r10,r7,r10
763 	addc		r10,r7,r10
769 	$UMULL		r7,r5,r6
771 	addc		r11,r7,r11
774 	addc		r11,r7,r11
780 	$UMULL		r7,r5,r6
782 	addc		r11,r7,r11
785 	addc		r11,r7,r11
790 	$UMULL		r7,r6,r6
792 	addc		r9,r7,r9
797 	$UMULL		r7,r5,r6
799 	addc		r9,r7,r9
802 	addc		r9,r7,r9
809 	$UMULL		r7,r5,r6
811 	addc		r10,r7,r10
814 	addc		r10,r7,r10
819 	$UMULL		r7,r6,r6
821 	addc		r11,r7,r11
849 # r6, r7 are the 2 BN_ULONGs being multiplied.
856 	$LD	r7,`0*$BNSZ`(r5)
857 	$UMULL	r10,r6,r7
858 	$UMULH	r11,r6,r7
861 	$LD	r7,`1*$BNSZ`(r5)
862 	$UMULL	r8,r6,r7
863 	$UMULH	r9,r6,r7
869 	$LD	r7, `0*$BNSZ`(r5)
870 	$UMULL	r8,r6,r7
871 	$UMULH	r9,r6,r7
878 	$UMULL	r8,r6,r7
879 	$UMULH	r9,r6,r7
885 	$LD	r7,`1*$BNSZ`(r5)
886 	$UMULL	r8,r6,r7
887 	$UMULH	r9,r6,r7
893 	$LD	r7,`2*$BNSZ`(r5)
894 	$UMULL	r8,r6,r7
895 	$UMULH	r9,r6,r7
901 	$LD	r7,`3*$BNSZ`(r5)
902 	$UMULL	r8,r6,r7
903 	$UMULH	r9,r6,r7
909 	$LD	r7,`2*$BNSZ`(r5)
910 	$UMULL	r8,r6,r7
911 	$UMULH	r9,r6,r7
917 	$LD	r7,`1*$BNSZ`(r5)
918 	$UMULL	r8,r6,r7
919 	$UMULH	r9,r6,r7
925 	$LD	r7,`0*$BNSZ`(r5)
926 	$UMULL	r8,r6,r7
927 	$UMULH	r9,r6,r7
933 	$LD	r7,`1*$BNSZ`(r5)
934 	$UMULL	r8,r6,r7
935 	$UMULH	r9,r6,r7
941 	$LD	r7,`2*$BNSZ`(r5)
942 	$UMULL	r8,r6,r7
943 	$UMULH	r9,r6,r7
949 	$LD	r7,`3*$BNSZ`(r5)
950 	$UMULL	r8,r6,r7
951 	$UMULH	r9,r6,r7
958 	$UMULL	r8,r6,r7
959 	$UMULH	r9,r6,r7
965 	$LD	r7,`2*$BNSZ`(r5)
966 	$UMULL	r8,r6,r7
967 	$UMULH	r9,r6,r7
973 	$LD	r7,`3*$BNSZ`(r5)
974 	$UMULL	r8,r6,r7
975 	$UMULH	r9,r6,r7
1003 # r6, r7 are the 2 BN_ULONGs being multiplied.
1011 	$LD	r7,`0*$BNSZ`(r5)	#b[0]
1012 	$UMULL	r10,r6,r7
1013 	$UMULH	r11,r6,r7
1016 	$LD	r7,`1*$BNSZ`(r5)
1017 	$UMULL	r8,r6,r7
1018 	$UMULH	r9,r6,r7
1024 	$LD	r7,`0*$BNSZ`(r5)
1025 	$UMULL	r8,r6,r7
1026 	$UMULH	r9,r6,r7
1033 	$UMULL	r8,r6,r7
1034 	$UMULH	r9,r6,r7
1040 	$LD	r7,`1*$BNSZ`(r5)
1041 	$UMULL	r8,r6,r7
1042 	$UMULH	r9,r6,r7
1048 	$LD	r7,`2*$BNSZ`(r5)
1049 	$UMULL	r8,r6,r7
1050 	$UMULH	r9,r6,r7
1056 	$LD	r7,`3*$BNSZ`(r5)
1057 	$UMULL	r8,r6,r7
1058 	$UMULH	r9,r6,r7
1064 	$LD	r7,`2*$BNSZ`(r5)
1065 	$UMULL	r8,r6,r7
1066 	$UMULH	r9,r6,r7
1073 	$LD	r7,`1*$BNSZ`(r5)
1074 	$UMULL	r8,r6,r7
1075 	$UMULH	r9,r6,r7
1081 	$LD	r7,`0*$BNSZ`(r5)
1082 	$UMULL	r8,r6,r7
1083 	$UMULH	r9,r6,r7
1090 	$UMULL	r8,r6,r7
1091 	$UMULH	r9,r6,r7
1097 	$LD	r7,`1*$BNSZ`(r5)
1098 	$UMULL	r8,r6,r7
1099 	$UMULH	r9,r6,r7
1105 	$LD	r7,`2*$BNSZ`(r5)
1106 	$UMULL	r8,r6,r7
1107 	$UMULH	r9,r6,r7
1113 	$LD	r7,`3*$BNSZ`(r5)
1114 	$UMULL	r8,r6,r7
1115 	$UMULH	r9,r6,r7
1121 	$LD	r7,`4*$BNSZ`(r5)
1122 	$UMULL	r8,r6,r7
1123 	$UMULH	r9,r6,r7
1129 	$LD	r7,`5*$BNSZ`(r5)
1130 	$UMULL	r8,r6,r7
1131 	$UMULH	r9,r6,r7
1137 	$LD	r7,`4*$BNSZ`(r5)
1138 	$UMULL	r8,r6,r7
1139 	$UMULH	r9,r6,r7
1145 	$LD	r7,`3*$BNSZ`(r5)
1146 	$UMULL	r8,r6,r7
1147 	$UMULH	r9,r6,r7
1153 	$LD	r7,`2*$BNSZ`(r5)
1154 	$UMULL	r8,r6,r7
1155 	$UMULH	r9,r6,r7
1161 	$LD	r7,`1*$BNSZ`(r5)
1162 	$UMULL	r8,r6,r7
1163 	$UMULH	r9,r6,r7
1169 	$LD	r7,`0*$BNSZ`(r5)
1170 	$UMULL	r8,r6,r7
1171 	$UMULH	r9,r6,r7
1178 	$UMULL	r8,r6,r7
1179 	$UMULH	r9,r6,r7
1185 	$LD	r7,`1*$BNSZ`(r5)
1186 	$UMULL	r8,r6,r7
1187 	$UMULH	r9,r6,r7
1193 	$LD	r7,`2*$BNSZ`(r5)
1194 	$UMULL	r8,r6,r7
1195 	$UMULH	r9,r6,r7
1201 	$LD	r7,`3*$BNSZ`(r5)
1202 	$UMULL	r8,r6,r7
1203 	$UMULH	r9,r6,r7
1209 	$LD	r7,`4*$BNSZ`(r5)
1210 	$UMULL	r8,r6,r7
1211 	$UMULH	r9,r6,r7
1217 	$LD	r7,`5*$BNSZ`(r5)
1218 	$UMULL	r8,r6,r7
1219 	$UMULH	r9,r6,r7
1225 	$LD	r7,`6*$BNSZ`(r5)
1226 	$UMULL	r8,r6,r7
1227 	$UMULH	r9,r6,r7
1233 	$LD	r7,`7*$BNSZ`(r5)
1234 	$UMULL	r8,r6,r7
1235 	$UMULH	r9,r6,r7
1241 	$LD	r7,`6*$BNSZ`(r5)
1242 	$UMULL	r8,r6,r7
1243 	$UMULH	r9,r6,r7
1249 	$LD	r7,`5*$BNSZ`(r5)
1250 	$UMULL	r8,r6,r7
1251 	$UMULH	r9,r6,r7
1257 	$LD	r7,`4*$BNSZ`(r5)
1258 	$UMULL	r8,r6,r7
1259 	$UMULH	r9,r6,r7
1265 	$LD	r7,`3*$BNSZ`(r5)
1266 	$UMULL	r8,r6,r7
1267 	$UMULH	r9,r6,r7
1273 	$LD	r7,`2*$BNSZ`(r5)
1274 	$UMULL	r8,r6,r7
1275 	$UMULH	r9,r6,r7
1281 	$LD	r7,`1*$BNSZ`(r5)
1282 	$UMULL	r8,r6,r7
1283 	$UMULH	r9,r6,r7
1289 	$LD	r7,`0*$BNSZ`(r5)
1290 	$UMULL	r8,r6,r7
1291 	$UMULH	r9,r6,r7
1297 	$LD	r7,`1*$BNSZ`(r5)
1298 	$UMULL	r8,r6,r7
1299 	$UMULH	r9,r6,r7
1305 	$LD	r7,`2*$BNSZ`(r5)
1306 	$UMULL	r8,r6,r7
1307 	$UMULH	r9,r6,r7
1313 	$LD	r7,`3*$BNSZ`(r5)
1314 	$UMULL	r8,r6,r7
1315 	$UMULH	r9,r6,r7
1321 	$LD	r7,`4*$BNSZ`(r5)
1322 	$UMULL	r8,r6,r7
1323 	$UMULH	r9,r6,r7
1329 	$LD	r7,`5*$BNSZ`(r5)
1330 	$UMULL	r8,r6,r7
1331 	$UMULH	r9,r6,r7
1337 	$LD	r7,`6*$BNSZ`(r5)
1338 	$UMULL	r8,r6,r7
1339 	$UMULH	r9,r6,r7
1345 	$LD	r7,`7*$BNSZ`(r5)
1346 	$UMULL	r8,r6,r7
1347 	$UMULH	r9,r6,r7
1354 	$UMULL	r8,r6,r7
1355 	$UMULH	r9,r6,r7
1361 	$LD	r7,`6*$BNSZ`(r5)
1362 	$UMULL	r8,r6,r7
1363 	$UMULH	r9,r6,r7
1369 	$LD	r7,`5*$BNSZ`(r5)
1370 	$UMULL	r8,r6,r7
1371 	$UMULH	r9,r6,r7
1377 	$LD	r7,`4*$BNSZ`(r5)
1378 	$UMULL	r8,r6,r7
1379 	$UMULH	r9,r6,r7
1385 	$LD	r7,`3*$BNSZ`(r5)
1386 	$UMULL	r8,r6,r7
1387 	$UMULH	r9,r6,r7
1393 	$LD	r7,`2*$BNSZ`(r5)
1394 	$UMULL	r8,r6,r7
1395 	$UMULH	r9,r6,r7
1401 	$LD	r7,`3*$BNSZ`(r5)
1402 	$UMULL	r8,r6,r7
1403 	$UMULH	r9,r6,r7
1409 	$LD	r7,`4*$BNSZ`(r5)
1410 	$UMULL	r8,r6,r7
1411 	$UMULH	r9,r6,r7
1417 	$LD	r7,`5*$BNSZ`(r5)
1418 	$UMULL	r8,r6,r7
1419 	$UMULH	r9,r6,r7
1425 	$LD	r7,`6*$BNSZ`(r5)
1426 	$UMULL	r8,r6,r7
1427 	$UMULH	r9,r6,r7
1433 	$LD	r7,`7*$BNSZ`(r5)
1434 	$UMULL	r8,r6,r7
1435 	$UMULH	r9,r6,r7
1442 	$UMULL	r8,r6,r7
1443 	$UMULH	r9,r6,r7
1449 	$LD	r7,`6*$BNSZ`(r5)
1450 	$UMULL	r8,r6,r7
1451 	$UMULH	r9,r6,r7
1457 	$LD	r7,`5*$BNSZ`(r5)
1458 	$UMULL	r8,r6,r7
1459 	$UMULH	r9,r6,r7
1465 	$LD	r7,`4*$BNSZ`(r5)
1466 	$UMULL	r8,r6,r7
1467 	$UMULH	r9,r6,r7
1473 	$LD	r7,`5*$BNSZ`(r5)
1474 	$UMULL	r8,r6,r7
1475 	$UMULH	r9,r6,r7
1481 	$LD	r7,`6*$BNSZ`(r5)
1482 	$UMULL	r8,r6,r7
1483 	$UMULH	r9,r6,r7
1489 	$LD	r7,`7*$BNSZ`(r5)
1490 	$UMULL	r8,r6,r7
1491 	$UMULH	r9,r6,r7
1498 	$UMULL	r8,r6,r7
1499 	$UMULH	r9,r6,r7
1505 	$LD	r7,`6*$BNSZ`(r5)
1506 	$UMULL	r8,r6,r7
1507 	$UMULH	r9,r6,r7
1513 	$LD	r7,`7*$BNSZ`(r5)
1514 	$UMULL	r8,r6,r7
1515 	$UMULH	r9,r6,r7
1552 	subfc.	r7,r0,r6        # If r6 is 0 then result is 0.
1561 	$LDU	r7,$BNSZ(r4)
1563 	subfe	r6,r8,r7	# r6 = r7+carry bit + onescomplement(r8)
1564 				# if carry = 1 this is r7-r8. Else it
1565 				# is r7-r8 -1 as we need.
1610 	$LDU	r7,$BNSZ(r4)
1612 	adde	r8,r7,r8
1650 	$CNTLZ.	r7,r5			#r7 = num leading 0s in d.
1652 	subf	r8,r7,r8		#r8 = BN_num_bits_word(d)
1659 Lppcasm_div3:				#r7 = BN_BITS2-i. so r7=i
1660 	cmpi	0,0,r7,0		# is (i == 0)?
1662 	$SHL	r3,r3,r7		# h = (h<< i)
1664 	$SHL	r5,r5,r7		# d<<=i
1666 	$SHL	r4,r4,r7		# l <<=i
1692 	$SHRI	r7,r10,`$BITS/2`	#r7= (t &BN_MASK2H), sort of...
1693 	addic.	r7,r7,0			#test if r7 == 0. used below.
1695 					# r7 = (t<<BN_BITS4)|((l&BN_MASK2h)>>BN_BITS4)
1697 	$SHLI	r7,r10,`$BITS/2`	# r7 = (t<<BN_BITS4)
1698 	or	r7,r7,r11		# r7|=((l&BN_MASK2h)>>BN_BITS4)
1699 	$UCMP	cr1,r6,r7		# compare (tl <= r7)
1757 #	r7,r8 = product.
1769 	$UMULL	r7,r6,r6
1771 	$STU	r7,$BNSZ(r3)
1799 	rlwinm.	r7,r5,30,2,31		# num >> 2
1801 	mtctr	r7
1908 	rlwinm.	r7,r5,30,2,31		# num >> 2
1910 	mtctr	r7

Indexes created Thu Nov 07 10:32:03 CST 2024