Charles L. Dorian | 6b80a5f | 2010-03-03 18:17:13 -0800 | [diff] [blame] | 1 | // Copyright 2010 The Go Authors. All rights reserved. |
| 2 | // Use of this source code is governed by a BSD-style |
| 3 | // license that can be found in the LICENSE file. |
| 4 | |
Rob Pike | 8bca148 | 2014-08-12 17:04:45 -0700 | [diff] [blame] | 5 | #include "textflag.h" |
Keith Randall | 1f79663 | 2013-08-12 10:25:18 -0700 | [diff] [blame] | 6 | |
Charles L. Dorian | 6b80a5f | 2010-03-03 18:17:13 -0800 | [diff] [blame] | 7 | // func Remainder(x, y float64) float64 |
Keith Randall | 1f79663 | 2013-08-12 10:25:18 -0700 | [diff] [blame] | 8 | TEXT ·Remainder(SB),NOSPLIT,$0 |
Charles L. Dorian | 6b80a5f | 2010-03-03 18:17:13 -0800 | [diff] [blame] | 9 | FMOVD y+8(FP), F0 // F0=y |
| 10 | FMOVD x+0(FP), F0 // F0=x, F1=y |
| 11 | FPREM1 // F0=reduced_x, F1=y |
| 12 | FSTSW AX // AX=status word |
| 13 | ANDW $0x0400, AX |
| 14 | JNE -3(PC) // jump if reduction incomplete |
| 15 | FMOVDP F0, F1 // F0=x-q*y |
Russ Cox | 07720b6 | 2013-03-22 12:57:55 -0400 | [diff] [blame] | 16 | FMOVDP F0, ret+16(FP) |
Charles L. Dorian | 6b80a5f | 2010-03-03 18:17:13 -0800 | [diff] [blame] | 17 | RET |