D18.diff
No OneTemporary
Actions

Size

1 KB

Subscribers

None

D18.diff
View Options

	Index: b/mpi/hppa1.1/udiv-qrnnd.S
	===================================================================
	--- b/mpi/hppa1.1/udiv-qrnnd.S
	+++ b/mpi/hppa1.1/udiv-qrnnd.S
	@@ -2,7 +2,7 @@
	* This version runs fast on PA 7000 and later.
	*
	* Copyright (C) 1993, 1994, 1998,
	- * 2001, 2002, 2004 Free Software Foundation, Inc.
	+ * 2001, 2002 Free Software Foundation, Inc.
	*
	* This file is part of Libgcrypt.
	*
	@@ -36,11 +36,12 @@
	* d gr23
	*/

	- .code
	+ .data
	.align 8
	.label L$0000
	.word 0x43f00000
	.word 0x0
	+ .code
	.export __udiv_qrnnd
	.label __udiv_qrnnd
	.proc
	@@ -50,13 +51,14 @@

	stws %r25,-16(0,%r30) ; n_hi
	stws %r24,-12(0,%r30) ; n_lo
	- ldil L'L$0000,%r19 ; '
	- ldo R'L$0000(%r19),%r19 ; '
	+ stw %r19,-32(%r30)
	+ addil LT%L$0000,%r19
	+ ldw RT%L$0000(%r1),%r1
	fldds -16(0,%r30),%fr5
	stws %r23,-12(0,%r30)
	comib,<= 0,%r25,L$1
	fcnvxf,dbl,dbl %fr5,%fr5
	- fldds 0(0,%r19),%fr4
	+ fldds 0(0,%r1),%fr4
	fadd,dbl %fr4,%fr5,%fr5
	.label L$1
	fcpy,sgl %fr0,%fr6L
	@@ -73,8 +75,8 @@
	ldws -12(0,%r30),%r21
	ldws -16(0,%r30),%r20
	sub %r24,%r21,%r22
	- subb %r25,%r20,%r19
	- comib,= 0,%r19,L$2
	+ subb %r25,%r20,%r1
	+ comib,= 0,%r1,L$2
	ldo -64(%r30),%r30

	add %r22,%r23,%r22
	@@ -86,4 +88,4 @@
	.exit
	.procend

	-
	\ No newline at end of file
	+