2010-02-19 00:33:15 -07:00
|
|
|
// 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.
|
|
|
|
|
2014-08-12 18:04:45 -06:00
|
|
|
#include "textflag.h"
|
2013-08-12 11:25:18 -06:00
|
|
|
|
2012-09-20 22:35:56 -06:00
|
|
|
// func Frexp(f float64) (frac float64, exp int)
|
2013-08-12 11:25:18 -06:00
|
|
|
TEXT ·Frexp(SB),NOSPLIT,$0
|
2012-09-20 22:35:56 -06:00
|
|
|
FMOVD f+0(FP), F0 // F0=f
|
2010-02-19 00:33:15 -07:00
|
|
|
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
|
2012-09-20 22:35:56 -06:00
|
|
|
FMOVDP F0, frac+8(FP) // F0=e
|
2010-02-19 00:33:15 -07:00
|
|
|
FLD1 // F0=1, F1=e
|
|
|
|
FADDDP F0, F1 // F0=e+1
|
2012-09-20 22:35:56 -06:00
|
|
|
FMOVLP F0, exp+16(FP) // (int=int32)
|
2010-02-19 00:33:15 -07:00
|
|
|
RET
|
|
|
|
nan_zero_inf:
|
2012-09-20 22:35:56 -06:00
|
|
|
FMOVDP F0, frac+8(FP) // F0=e
|
|
|
|
MOVL $0, exp+16(FP) // exp=0
|
2010-02-19 00:33:15 -07:00
|
|
|
RET
|