config/arm/ieee754-df.S

47 #define yh r3
51 #define yh r2
83 	eor	yh, yh, #0x80000000	@ flip sign bit of second arg
99 	shift1	lsl, r5, yh, #1
119 	eor	yh, xh, yh
121 	eor	xh, yh, xh
123 	eor	yh, xh, yh
146 	tst	yh, #0x80000000
147 	mov	yh, yh, lsl #12
148 	orr	yh, ip, yh, lsr #12
152 	sbc	yh, yh, yh, lsl #1
155 	rsc	yh, yh, #0
172 	@ Shift yh-yl right per r5, add to xh-xl, keep leftover bits into ip.
178 	shiftop adds xl xl yh lsl lr yl
179 	shiftop adcs xh xh yh asr r5 yh
184 	shift1	lsl,ip, yh, lr
187 	shiftop adds xl xl yh asr r5 yh
188 	adcs	xh, xh, yh, asr #31
333 	shiftop orr xl xl xh lsl r2 yh
334 	shiftop orr xh r5 xh lsr r4 yh
342 	shiftop orr xl xl xh lsl r4 yh
356 	eor	yh, yh, #0x00100000
378 	moveq	xh, yh
382 1:	teq	xh, yh
412 	@   if xh-xl != INF/NAN: return yh-yl (which is INF/NAN)
413 	@   if yh-yl != INF/NAN: return xh-xl (which is INF/NAN)
420 	movne	xh, yh
424 	movne	yh, xh
428 	COND(orr,s,eq)	r5, yl, yh, lsl #12
429 	teqeq	xh, yh
649 	COND(and,s,ne)	r5, ip, yh, lsr #20
658 	eor	r6, xh, yh
663 	bic	yh, yh, ip, lsl #21
666 	COND(orr,s,ne)	r5, yl, yh, lsl #12
668 	orr	yh, yh, #0x00100000
677 	umlal	lr, r5, xl, yh
679 	umlal	r5, r6, xh, yh
722 	eor	xh, xh, yh
812 2:	and	r6, yh, #0x80000000
814 	adc	yh, yh, yh
815 	tst	yh, #0x00100000
819 	orr	yh, yh, r6
825 	and	r5, ip, yh, lsr #20
833 	COND(orr,s,ne)	r6, yl, yh, lsl #1
838 	eor	xh, xh, yh
847 	moveq	xh, yh
848 	COND(orr,s,ne)	r6, yl, yh, lsl #1
856 	orrs	r6, yl, yh, lsl #12
859 	movne	xh, yh
864 	eor	xh, xh, yh
902 	COND(and,s,ne)	r5, ip, yh, lsr #20
911 	eor	lr, xh, yh
914 	@ Dividend -> r5-r6, divisor -> yh-yl.
915 	orrs	r5, yl, yh, lsl #12
918 	mov	yh, yh, lsl #12
920 	orr	yh, r5, yh, lsr #4
921 	orr	yh, yh, yl, lsr #24
932 	cmp	r5, yh
938 	movs	yh, yh, lsr #1
943 	sbc	r5, r5, yh
944 	movs	yh, yh, lsr #1
951 	sbcs	lr, r5, yh
956 	movs	yh, yh, lsr #1
959 	sbcs	lr, r5, yh
964 	movs	yh, yh, lsr #1
967 	sbcs	lr, r5, yh
972 	movs	yh, yh, lsr #1
975 	sbcs	lr, r5, yh
986 	mov	yh, yh, lsl #3
987 	orr	yh, yh, yl, lsr #29
1014 	subs	ip, r5, yh
1045 	and	r5, ip, yh, lsr #20
1057 	mov	xh, yh
1061 	orrs	r5, yl, yh, lsl #12
1064 	mov	xh, yh
1069 	COND(orr,s,ne)	r6, yl, yh, lsl #1
1074 	orrs	r5, yl, yh, lsl #1
1114 	mov	ip, yh, lsl #1
1132 	COND(orr,s,eq)	ip, yl, yh, lsl #1	@ and y == 0.0 or -0.0
1133 	teqne	xh, yh			@ or xh == yh
1143 	teq	xh, yh
1147 	cmppl	xh, yh
1153 	movcs	r0, yh, asr #31
1154 	mvncc	r0, yh, asr #31
1169 4:	mov	ip, yh, lsl #1
1172 	orrs	ip, yl, yh, lsl #12
1320 1:	mov	ip, yh, lsl #1
1323 	orrs	ip, yl, yh, lsl #12