prime/asm/Runtime/s_nextafter.s

.include "macros.inc"

.section .text, "ax"

.global nextafter
nextafter:
/* 80394958 003918B8  94 21 FF E0 */	stwu r1, -0x20(r1)
/* 8039495C 003918BC  3C 00 7F F0 */	lis r0, 0x7ff0
/* 80394960 003918C0  D8 21 00 08 */	stfd f1, 8(r1)
/* 80394964 003918C4  80 81 00 08 */	lwz r4, 8(r1)
/* 80394968 003918C8  D8 41 00 10 */	stfd f2, 0x10(r1)
/* 8039496C 003918CC  54 85 00 7E */	clrlwi r5, r4, 1
/* 80394970 003918D0  80 E1 00 0C */	lwz r7, 0xc(r1)
/* 80394974 003918D4  80 61 00 10 */	lwz r3, 0x10(r1)
/* 80394978 003918D8  7C 05 00 00 */	cmpw r5, r0
/* 8039497C 003918DC  81 01 00 14 */	lwz r8, 0x14(r1)
/* 80394980 003918E0  54 66 00 7E */	clrlwi r6, r3, 1
/* 80394984 003918E4  41 80 00 10 */	blt lbl_80394994
/* 80394988 003918E8  3C 05 80 10 */	addis r0, r5, 0x8010
/* 8039498C 003918EC  7C 00 3B 79 */	or. r0, r0, r7
/* 80394990 003918F0  40 82 00 1C */	bne lbl_803949AC
lbl_80394994:
/* 80394994 003918F4  3C 00 7F F0 */	lis r0, 0x7ff0
/* 80394998 003918F8  7C 06 00 00 */	cmpw r6, r0
/* 8039499C 003918FC  41 80 00 20 */	blt lbl_803949BC
/* 803949A0 00391900  3C 06 80 10 */	addis r0, r6, 0x8010
/* 803949A4 00391904  7C 00 43 79 */	or. r0, r0, r8
/* 803949A8 00391908  41 82 00 14 */	beq lbl_803949BC
lbl_803949AC:
/* 803949AC 0039190C  C8 21 00 08 */	lfd f1, 8(r1)
/* 803949B0 00391910  C8 01 00 10 */	lfd f0, 0x10(r1)
/* 803949B4 00391914  FC 21 00 2A */	fadd f1, f1, f0
/* 803949B8 00391918  48 00 01 1C */	b lbl_80394AD4
lbl_803949BC:
/* 803949BC 0039191C  C8 21 00 08 */	lfd f1, 8(r1)
/* 803949C0 00391920  C8 01 00 10 */	lfd f0, 0x10(r1)
/* 803949C4 00391924  FC 01 00 00 */	fcmpu cr0, f1, f0
/* 803949C8 00391928  40 82 00 08 */	bne lbl_803949D0
/* 803949CC 0039192C  48 00 01 08 */	b lbl_80394AD4
lbl_803949D0:
/* 803949D0 00391930  7C A0 3B 79 */	or. r0, r5, r7
/* 803949D4 00391934  40 82 00 34 */	bne lbl_80394A08
/* 803949D8 00391938  54 63 00 00 */	rlwinm r3, r3, 0, 0, 0
/* 803949DC 0039193C  38 00 00 01 */	li r0, 1
/* 803949E0 00391940  90 61 00 08 */	stw r3, 8(r1)
/* 803949E4 00391944  90 01 00 0C */	stw r0, 0xc(r1)
/* 803949E8 00391948  C8 01 00 08 */	lfd f0, 8(r1)
/* 803949EC 0039194C  FC 20 00 32 */	fmul f1, f0, f0
/* 803949F0 00391950  FC 01 00 00 */	fcmpu cr0, f1, f0
/* 803949F4 00391954  D8 21 00 10 */	stfd f1, 0x10(r1)
/* 803949F8 00391958  40 82 00 08 */	bne lbl_80394A00
/* 803949FC 0039195C  48 00 00 D8 */	b lbl_80394AD4
lbl_80394A00:
/* 80394A00 00391960  FC 20 00 90 */	fmr f1, f0
/* 80394A04 00391964  48 00 00 D0 */	b lbl_80394AD4
lbl_80394A08:
/* 80394A08 00391968  2C 04 00 00 */	cmpwi r4, 0
/* 80394A0C 0039196C  41 80 00 3C */	blt lbl_80394A48
/* 80394A10 00391970  7C 04 18 00 */	cmpw r4, r3
/* 80394A14 00391974  41 81 00 10 */	bgt lbl_80394A24
/* 80394A18 00391978  40 82 00 20 */	bne lbl_80394A38
/* 80394A1C 0039197C  7C 07 40 40 */	cmplw r7, r8
/* 80394A20 00391980  40 81 00 18 */	ble lbl_80394A38
lbl_80394A24:
/* 80394A24 00391984  28 07 00 00 */	cmplwi r7, 0
/* 80394A28 00391988  40 82 00 08 */	bne lbl_80394A30
/* 80394A2C 0039198C  38 84 FF FF */	addi r4, r4, -1
lbl_80394A30:
/* 80394A30 00391990  38 E7 FF FF */	addi r7, r7, -1
/* 80394A34 00391994  48 00 00 50 */	b lbl_80394A84
lbl_80394A38:
/* 80394A38 00391998  34 E7 00 01 */	addic. r7, r7, 1
/* 80394A3C 0039199C  40 82 00 48 */	bne lbl_80394A84
/* 80394A40 003919A0  38 84 00 01 */	addi r4, r4, 1
/* 80394A44 003919A4  48 00 00 40 */	b lbl_80394A84
lbl_80394A48:
/* 80394A48 003919A8  2C 03 00 00 */	cmpwi r3, 0
/* 80394A4C 003919AC  40 80 00 18 */	bge lbl_80394A64
/* 80394A50 003919B0  7C 04 18 00 */	cmpw r4, r3
/* 80394A54 003919B4  41 81 00 10 */	bgt lbl_80394A64
/* 80394A58 003919B8  40 82 00 20 */	bne lbl_80394A78
/* 80394A5C 003919BC  7C 07 40 40 */	cmplw r7, r8
/* 80394A60 003919C0  40 81 00 18 */	ble lbl_80394A78
lbl_80394A64:
/* 80394A64 003919C4  28 07 00 00 */	cmplwi r7, 0
/* 80394A68 003919C8  40 82 00 08 */	bne lbl_80394A70
/* 80394A6C 003919CC  38 84 FF FF */	addi r4, r4, -1
lbl_80394A70:
/* 80394A70 003919D0  38 E7 FF FF */	addi r7, r7, -1
/* 80394A74 003919D4  48 00 00 10 */	b lbl_80394A84
lbl_80394A78:
/* 80394A78 003919D8  34 E7 00 01 */	addic. r7, r7, 1
/* 80394A7C 003919DC  40 82 00 08 */	bne lbl_80394A84
/* 80394A80 003919E0  38 84 00 01 */	addi r4, r4, 1
lbl_80394A84:
/* 80394A84 003919E4  54 83 00 56 */	rlwinm r3, r4, 0, 1, 0xb
/* 80394A88 003919E8  3C 00 7F F0 */	lis r0, 0x7ff0
/* 80394A8C 003919EC  7C 03 00 00 */	cmpw r3, r0
/* 80394A90 003919F0  41 80 00 0C */	blt lbl_80394A9C
/* 80394A94 003919F4  FC 21 08 2A */	fadd f1, f1, f1
/* 80394A98 003919F8  48 00 00 3C */	b lbl_80394AD4
lbl_80394A9C:
/* 80394A9C 003919FC  3C 00 00 10 */	lis r0, 0x10
/* 80394AA0 00391A00  7C 03 00 00 */	cmpw r3, r0
/* 80394AA4 00391A04  40 80 00 24 */	bge lbl_80394AC8
/* 80394AA8 00391A08  FC 01 00 72 */	fmul f0, f1, f1
/* 80394AAC 00391A0C  FC 00 08 00 */	fcmpu cr0, f0, f1
/* 80394AB0 00391A10  D8 01 00 10 */	stfd f0, 0x10(r1)
/* 80394AB4 00391A14  41 82 00 14 */	beq lbl_80394AC8
/* 80394AB8 00391A18  90 81 00 10 */	stw r4, 0x10(r1)
/* 80394ABC 00391A1C  90 E1 00 14 */	stw r7, 0x14(r1)
/* 80394AC0 00391A20  C8 21 00 10 */	lfd f1, 0x10(r1)
/* 80394AC4 00391A24  48 00 00 10 */	b lbl_80394AD4
lbl_80394AC8:
/* 80394AC8 00391A28  90 81 00 08 */	stw r4, 8(r1)
/* 80394ACC 00391A2C  90 E1 00 0C */	stw r7, 0xc(r1)
/* 80394AD0 00391A30  C8 21 00 08 */	lfd f1, 8(r1)
lbl_80394AD4:
/* 80394AD4 00391A34  38 21 00 20 */	addi r1, r1, 0x20
/* 80394AD8 00391A38  4E 80 00 20 */	blr