| // Copyright 2010 The Go Authors. All rights reserved. |
| // Use of this source code is governed by a BSD-style |
| // license that can be found in the LICENSE file. |
| |
| // func Frexp(x float64) (f float64, e int) |
| TEXT ·Frexp(SB),7,$0 |
| FMOVD x+0(FP), F0 // F0=x |
| FXAM |
| FSTSW AX |
| SAHF |
| JNP nan_zero_inf |
| JCS nan_zero_inf |
| FXTRACT // F0=f (0<=f<1), F1=e |
| FMULD $(0.5), F0 // F0=f (0.5<=f<1), F1=e |
| FMOVDP F0, f+8(FP) // F0=e |
| FLD1 // F0=1, F1=e |
| FADDDP F0, F1 // F0=e+1 |
| FMOVLP F0, e+16(FP) // (int=int32) |
| RET |
| nan_zero_inf: |
| FMOVDP F0, f+8(FP) // F0=e |
| MOVL $0, e+16(FP) // e=0 |
| RET |
