1/*  For Solaris (e.g., SunOS 5.8 i386) on an x86 (with x87), with */
2/* compilation by gcc.  Returns the previous x87 control word. */
3	.file	"fpsetprec.s"
4	.version	"01.01"
5.text
6	.align 4
7.globl fpsetprec
8	.type	 fpsetprec,@function
9fpsetprec:
10	pushl %ebp
11	movl %esp,%ebp
12	addl $-4,%esp	/* so -2(%ebp) is above %esp */
13	fstcw -2(%ebp)
14	xor %eax,%eax
15	movw -2(%ebp),%ax
16	movw -2(%ebp),%dx
17	andw $-769,%dx
18	orw 8(%ebp),%dx
19	movw %dx,-2(%ebp)
20	fldcw -2(%ebp)
21	jmp .L2
22	.align 4
23.L2:
24	leave
25	ret
26.Lfe1:
27	.size	 fpsetprec,.Lfe1-fpsetprec
28