Commit 0e61cfff authored by cvs2svn's avatar cvs2svn
Browse files

This commit was manufactured by cvs2svn to create branch 'BRANCH_engine'.

parents f7760052 d0c2ebf4

crypto/bn/asm/pa-risc2.s.old

0 → 100644
+416 −0
Original line number Diff line number Diff line 
	.SPACE $PRIVATE$

	.SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31

	.SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82

	.SPACE $TEXT$

	.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44

	.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY

	.IMPORT $global$,DATA

	.IMPORT $$dyncall,MILLICODE

; gcc_compiled.:

	.SPACE $TEXT$

	.SUBSPA $CODE$



	.align 4

	.EXPORT bn_mul_add_words,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR,ARGW3=GR,RTNVAL=GR

bn_mul_add_words

	.PROC

	.CALLINFO FRAME=64,CALLS,SAVE_RP,ENTRY_GR=4

	.ENTRY

	stw %r2,-20(0,%r30)

	stwm %r4,64(0,%r30)

	copy %r24,%r31

	stw %r3,-60(0,%r30)

	ldi 0,%r20

	ldo 12(%r26),%r2

	stw %r23,-16(0,%r30)

	copy %r25,%r3

	ldo 12(%r3),%r1

	fldws -16(0,%r30),%fr8L

L$0010

	copy %r20,%r25

	ldi 0,%r24

	fldws 0(0,%r3),%fr9L

	ldw 0(0,%r26),%r19

	xmpyu %fr8L,%fr9L,%fr9

	fstds %fr9,-16(0,%r30)

	copy %r19,%r23

	ldw -16(0,%r30),%r28

	ldw -12(0,%r30),%r29

	ldi 0,%r22

	add %r23,%r29,%r29

	addc %r22,%r28,%r28

	add %r25,%r29,%r29

	addc %r24,%r28,%r28

	copy %r28,%r21

	ldi 0,%r20

	copy %r21,%r20

	addib,= -1,%r31,L$0011

	stw %r29,0(0,%r26)

	copy %r20,%r25

	ldi 0,%r24

	fldws -8(0,%r1),%fr9L

	ldw -8(0,%r2),%r19

	xmpyu %fr8L,%fr9L,%fr9

	fstds %fr9,-16(0,%r30)

	copy %r19,%r23

	ldw -16(0,%r30),%r28

	ldw -12(0,%r30),%r29

	ldi 0,%r22

	add %r23,%r29,%r29

	addc %r22,%r28,%r28

	add %r25,%r29,%r29

	addc %r24,%r28,%r28

	copy %r28,%r21

	ldi 0,%r20

	copy %r21,%r20

	addib,= -1,%r31,L$0011

	stw %r29,-8(0,%r2)

	copy %r20,%r25

	ldi 0,%r24

	fldws -4(0,%r1),%fr9L

	ldw -4(0,%r2),%r19

	xmpyu %fr8L,%fr9L,%fr9

	fstds %fr9,-16(0,%r30)

	copy %r19,%r23

	ldw -16(0,%r30),%r28

	ldw -12(0,%r30),%r29

	ldi 0,%r22

	add %r23,%r29,%r29

	addc %r22,%r28,%r28

	add %r25,%r29,%r29

	addc %r24,%r28,%r28

	copy %r28,%r21

	ldi 0,%r20

	copy %r21,%r20

	addib,= -1,%r31,L$0011

	stw %r29,-4(0,%r2)

	copy %r20,%r25

	ldi 0,%r24

	fldws 0(0,%r1),%fr9L

	ldw 0(0,%r2),%r19

	xmpyu %fr8L,%fr9L,%fr9

	fstds %fr9,-16(0,%r30)

	copy %r19,%r23

	ldw -16(0,%r30),%r28

	ldw -12(0,%r30),%r29

	ldi 0,%r22

	add %r23,%r29,%r29

	addc %r22,%r28,%r28

	add %r25,%r29,%r29

	addc %r24,%r28,%r28

	copy %r28,%r21

	ldi 0,%r20

	copy %r21,%r20

	addib,= -1,%r31,L$0011

	stw %r29,0(0,%r2)

	ldo 16(%r1),%r1

	ldo 16(%r3),%r3

	ldo 16(%r2),%r2

	bl L$0010,0

	ldo 16(%r26),%r26

L$0011

	copy %r20,%r28

	ldw -84(0,%r30),%r2

	ldw -60(0,%r30),%r3

	bv 0(%r2)

	ldwm -64(0,%r30),%r4

	.EXIT

	.PROCEND

	.align 4

	.EXPORT bn_mul_words,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR,ARGW3=GR,RTNVAL=GR

bn_mul_words

	.PROC

	.CALLINFO FRAME=64,CALLS,SAVE_RP,ENTRY_GR=3

	.ENTRY

	stw %r2,-20(0,%r30)

	copy %r25,%r2

	stwm %r4,64(0,%r30)

	copy %r24,%r19

	ldi 0,%r28

	stw %r23,-16(0,%r30)

	ldo 12(%r26),%r31

	ldo 12(%r2),%r29

	fldws -16(0,%r30),%fr8L

L$0026

	fldws 0(0,%r2),%fr9L

	xmpyu %fr8L,%fr9L,%fr9

	fstds %fr9,-16(0,%r30)

	copy %r28,%r21

	ldi 0,%r20

	ldw -16(0,%r30),%r24

	ldw -12(0,%r30),%r25

	add %r21,%r25,%r25

	addc %r20,%r24,%r24

	copy %r24,%r23

	ldi 0,%r22

	copy %r23,%r28

	addib,= -1,%r19,L$0027

	stw %r25,0(0,%r26)

	fldws -8(0,%r29),%fr9L

	xmpyu %fr8L,%fr9L,%fr9

	fstds %fr9,-16(0,%r30)

	copy %r28,%r21

	ldi 0,%r20

	ldw -16(0,%r30),%r24

	ldw -12(0,%r30),%r25

	add %r21,%r25,%r25

	addc %r20,%r24,%r24

	copy %r24,%r23

	ldi 0,%r22

	copy %r23,%r28

	addib,= -1,%r19,L$0027

	stw %r25,-8(0,%r31)

	fldws -4(0,%r29),%fr9L

	xmpyu %fr8L,%fr9L,%fr9

	fstds %fr9,-16(0,%r30)

	copy %r28,%r21

	ldi 0,%r20

	ldw -16(0,%r30),%r24

	ldw -12(0,%r30),%r25

	add %r21,%r25,%r25

	addc %r20,%r24,%r24

	copy %r24,%r23

	ldi 0,%r22

	copy %r23,%r28

	addib,= -1,%r19,L$0027

	stw %r25,-4(0,%r31)

	fldws 0(0,%r29),%fr9L

	xmpyu %fr8L,%fr9L,%fr9

	fstds %fr9,-16(0,%r30)

	copy %r28,%r21

	ldi 0,%r20

	ldw -16(0,%r30),%r24

	ldw -12(0,%r30),%r25

	add %r21,%r25,%r25

	addc %r20,%r24,%r24

	copy %r24,%r23

	ldi 0,%r22

	copy %r23,%r28

	addib,= -1,%r19,L$0027

	stw %r25,0(0,%r31)

	ldo 16(%r29),%r29

	ldo 16(%r2),%r2

	ldo 16(%r31),%r31

	bl L$0026,0

	ldo 16(%r26),%r26

L$0027

	ldw -84(0,%r30),%r2

	bv 0(%r2)

	ldwm -64(0,%r30),%r4

	.EXIT

	.PROCEND

	.align 4

	.EXPORT bn_sqr_words,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR

bn_sqr_words

	.PROC

	.CALLINFO FRAME=0,NO_CALLS

	.ENTRY

	ldo 28(%r26),%r19

	ldo 12(%r25),%r28

L$0042

	fldws 0(0,%r25),%fr8L

	fldws 0(0,%r25),%fr8R

	xmpyu %fr8L,%fr8R,%fr8

	fstds %fr8,-16(0,%r30)

	ldw -16(0,%r30),%r22

	ldw -12(0,%r30),%r23

	stw %r23,0(0,%r26)

	copy %r22,%r21

	ldi 0,%r20

	addib,= -1,%r24,L$0049

	stw %r21,-24(0,%r19)

	fldws -8(0,%r28),%fr8L

	fldws -8(0,%r28),%fr8R

	xmpyu %fr8L,%fr8R,%fr8

	fstds %fr8,-16(0,%r30)

	ldw -16(0,%r30),%r22

	ldw -12(0,%r30),%r23

	stw %r23,-20(0,%r19)

	copy %r22,%r21

	ldi 0,%r20

	addib,= -1,%r24,L$0049

	stw %r21,-16(0,%r19)

	fldws -4(0,%r28),%fr8L

	fldws -4(0,%r28),%fr8R

	xmpyu %fr8L,%fr8R,%fr8

	fstds %fr8,-16(0,%r30)

	ldw -16(0,%r30),%r22

	ldw -12(0,%r30),%r23

	stw %r23,-12(0,%r19)

	copy %r22,%r21

	ldi 0,%r20

	addib,= -1,%r24,L$0049

	stw %r21,-8(0,%r19)

	fldws 0(0,%r28),%fr8L

	fldws 0(0,%r28),%fr8R

	xmpyu %fr8L,%fr8R,%fr8

	fstds %fr8,-16(0,%r30)

	ldw -16(0,%r30),%r22

	ldw -12(0,%r30),%r23

	stw %r23,-4(0,%r19)

	copy %r22,%r21

	ldi 0,%r20

	addib,= -1,%r24,L$0049

	stw %r21,0(0,%r19)

	ldo 16(%r28),%r28

	ldo 16(%r25),%r25

	ldo 32(%r19),%r19

	bl L$0042,0

	ldo 32(%r26),%r26

L$0049

	bv,n 0(%r2)

	.EXIT

	.PROCEND

	.IMPORT BN_num_bits_word,CODE

	.IMPORT fprintf,CODE

	.IMPORT __iob,DATA

	.SPACE $TEXT$

	.SUBSPA $LIT$



	.align 4

L$C0000

	.STRING "Division would overflow (%d)\x0a\x00"

	.IMPORT abort,CODE

	.SPACE $TEXT$

	.SUBSPA $CODE$



	.align 4

	.EXPORT bn_div64,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR,RTNVAL=GR

bn_div64

	.PROC

	.CALLINFO FRAME=128,CALLS,SAVE_RP,ENTRY_GR=8

	.ENTRY

	stw %r2,-20(0,%r30)

	stwm %r8,128(0,%r30)

	stw %r7,-124(0,%r30)

	stw %r4,-112(0,%r30)

	stw %r3,-108(0,%r30)

	copy %r26,%r3

	copy %r25,%r4

	stw %r6,-120(0,%r30)

	ldi 0,%r7

	stw %r5,-116(0,%r30)

	movb,<> %r24,%r5,L$0051

	ldi 2,%r6

	bl L$0068,0

	ldi -1,%r28

L$0051

	.CALL ARGW0=GR

	bl BN_num_bits_word,%r2

	copy %r5,%r26

	copy %r28,%r24

	ldi 32,%r19

	comb,= %r19,%r24,L$0052

	subi 31,%r24,%r19

	mtsar %r19

	zvdepi 1,32,%r19

	comb,>>= %r19,%r3,L$0052

	addil LR'__iob-$global$+32,%r27

	ldo RR'__iob-$global$+32(%r1),%r26

	ldil LR'L$C0000,%r25

	.CALL ARGW0=GR,ARGW1=GR,ARGW2=GR

	bl fprintf,%r2

	ldo RR'L$C0000(%r25),%r25

	.CALL 

	bl abort,%r2

	nop

L$0052

	comb,>> %r5,%r3,L$0053

	subi 32,%r24,%r24

	sub %r3,%r5,%r3

L$0053

	comib,= 0,%r24,L$0054

	subi 31,%r24,%r19

	mtsar %r19

	zvdep %r5,32,%r5

	zvdep %r3,32,%r21

	subi 32,%r24,%r20

	mtsar %r20

	vshd 0,%r4,%r20

	or %r21,%r20,%r3

	mtsar %r19

	zvdep %r4,32,%r4

L$0054

	extru %r5,15,16,%r23

	extru %r5,31,16,%r28

L$0055

	extru %r3,15,16,%r19

	comb,<> %r23,%r19,L$0058

	copy %r3,%r26

	bl L$0059,0

	zdepi -1,31,16,%r29

L$0058

	.IMPORT $$divU,MILLICODE

	bl $$divU,%r31

	copy %r23,%r25

L$0059

	stw %r29,-16(0,%r30)

	fldws -16(0,%r30),%fr10L

	stw %r28,-16(0,%r30)

	fldws -16(0,%r30),%fr10R

	stw %r23,-16(0,%r30)

	xmpyu %fr10L,%fr10R,%fr8

	fldws -16(0,%r30),%fr10R

	fstws %fr8R,-16(0,%r30)

	xmpyu %fr10L,%fr10R,%fr9

	ldw -16(0,%r30),%r8

	fstws %fr9R,-16(0,%r30)

	copy %r8,%r22

	ldw -16(0,%r30),%r8

	extru %r4,15,16,%r24

	copy %r8,%r21

L$0060

	sub %r3,%r21,%r20

	copy %r20,%r19

	depi 0,31,16,%r19

	comib,<> 0,%r19,L$0061

	zdep %r20,15,16,%r19

	addl %r19,%r24,%r19

	comb,>>= %r19,%r22,L$0061

	sub %r22,%r28,%r22

	sub %r21,%r23,%r21

	bl L$0060,0

	ldo -1(%r29),%r29

L$0061

	stw %r29,-16(0,%r30)

	fldws -16(0,%r30),%fr10L

	stw %r28,-16(0,%r30)

	fldws -16(0,%r30),%fr10R

	xmpyu %fr10L,%fr10R,%fr8

	fstws %fr8R,-16(0,%r30)

	ldw -16(0,%r30),%r8

	stw %r23,-16(0,%r30)

	fldws -16(0,%r30),%fr10R

	copy %r8,%r19

	xmpyu %fr10L,%fr10R,%fr8

	fstws %fr8R,-16(0,%r30)

	extru %r19,15,16,%r20

	ldw -16(0,%r30),%r8

	zdep %r19,15,16,%r19

	addl %r8,%r20,%r20

	comclr,<<= %r19,%r4,0

	addi 1,%r20,%r20

	comb,<<= %r20,%r3,L$0066

	sub %r4,%r19,%r4

	addl %r3,%r5,%r3

	ldo -1(%r29),%r29

L$0066

	addib,= -1,%r6,L$0056

	sub %r3,%r20,%r3

	zdep %r29,15,16,%r7

	shd %r3,%r4,16,%r3

	bl L$0055,0

	zdep %r4,15,16,%r4

L$0056

	or %r7,%r29,%r28

L$0068

	ldw -148(0,%r30),%r2

	ldw -124(0,%r30),%r7

	ldw -120(0,%r30),%r6

	ldw -116(0,%r30),%r5

	ldw -112(0,%r30),%r4

	ldw -108(0,%r30),%r3

	bv 0(%r2)

	ldwm -128(0,%r30),%r8

	.EXIT

	.PROCEND

crypto/bn/asm/pa-risc2W.s

0 → 100644
+1605 −0

File added.

Preview size limit exceeded, changes collapsed.