Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
TEXT	exp(SB), $0
2 
	FLDL2E
3 
	FMULD	a+0(FP), F0	/* now we want 2^ this number */
4 
 
5 
	FMOVD	F0, F0		/* x, x */
6 
	FRNDINT			/* ix, x -- this is best in round mode */
7 
	FSUBD	F0, F1		/* ix, fx */
8 
	FXCHD	F0, F1		/* fx, ix */
9 
	F2XM1			/* 2^fx-1, ix */
10 
	FADDD	$1.0, F0	/* 2^fx, ix */
11 
	FSCALE			/* 2^(fx+ix), ix */
12 
	FMOVDP	F0, F1		/* 2^(fx+ix) == 2^x */
13 
	RET