Changeset View
Changeset View
Standalone View
Standalone View
b/mpi/hppa1.1/udiv-qrnnd.S
| Context not available. | |||||
| * This version runs fast on PA 7000 and later. | * This version runs fast on PA 7000 and later. | ||||
| * | * | ||||
| * Copyright (C) 1993, 1994, 1998, | * Copyright (C) 1993, 1994, 1998, | ||||
| * 2001, 2002, 2004 Free Software Foundation, Inc. | * 2001, 2002 Free Software Foundation, Inc. | ||||
| * | * | ||||
| * This file is part of Libgcrypt. | * This file is part of Libgcrypt. | ||||
| * | * | ||||
| Context not available. | |||||
| * d gr23 | * d gr23 | ||||
| */ | */ | ||||
| .code | .data | ||||
| .align 8 | .align 8 | ||||
| .label L$0000 | .label L$0000 | ||||
| .word 0x43f00000 | .word 0x43f00000 | ||||
| .word 0x0 | .word 0x0 | ||||
| .code | |||||
| .export __udiv_qrnnd | .export __udiv_qrnnd | ||||
| .label __udiv_qrnnd | .label __udiv_qrnnd | ||||
| .proc | .proc | ||||
| Context not available. | |||||
| stws %r25,-16(0,%r30) ; n_hi | stws %r25,-16(0,%r30) ; n_hi | ||||
| stws %r24,-12(0,%r30) ; n_lo | stws %r24,-12(0,%r30) ; n_lo | ||||
| ldil L'L$0000,%r19 ; ' | stw %r19,-32(%r30) | ||||
| ldo R'L$0000(%r19),%r19 ; ' | addil LT%L$0000,%r19 | ||||
| ldw RT%L$0000(%r1),%r1 | |||||
| fldds -16(0,%r30),%fr5 | fldds -16(0,%r30),%fr5 | ||||
| stws %r23,-12(0,%r30) | stws %r23,-12(0,%r30) | ||||
| comib,<= 0,%r25,L$1 | comib,<= 0,%r25,L$1 | ||||
| fcnvxf,dbl,dbl %fr5,%fr5 | fcnvxf,dbl,dbl %fr5,%fr5 | ||||
| fldds 0(0,%r19),%fr4 | fldds 0(0,%r1),%fr4 | ||||
| fadd,dbl %fr4,%fr5,%fr5 | fadd,dbl %fr4,%fr5,%fr5 | ||||
| .label L$1 | .label L$1 | ||||
| fcpy,sgl %fr0,%fr6L | fcpy,sgl %fr0,%fr6L | ||||
| Context not available. | |||||
| ldws -12(0,%r30),%r21 | ldws -12(0,%r30),%r21 | ||||
| ldws -16(0,%r30),%r20 | ldws -16(0,%r30),%r20 | ||||
| sub %r24,%r21,%r22 | sub %r24,%r21,%r22 | ||||
| subb %r25,%r20,%r19 | subb %r25,%r20,%r1 | ||||
| comib,= 0,%r19,L$2 | comib,= 0,%r1,L$2 | ||||
| ldo -64(%r30),%r30 | ldo -64(%r30),%r30 | ||||
| add %r22,%r23,%r22 | add %r22,%r23,%r22 | ||||
| Context not available. | |||||
| .exit | .exit | ||||
| .procend | .procend | ||||
| No newline at end of file | |||||
| Context not available. | |||||