/ sin.s (emx+gcc) -- Copyright (c) 1992-1993 by Steffen Haecker
/                    Modified 1993-1996 by Eberhard Mattes

#include <emx/asm386.h>

#define FUNC    MATHSUFFIX1(sin)

        .globl  LABEL(FUNC)

        .text

        ALIGN

/ double sin (double x)

#define x       4(%esp)

LABEL(FUNC):
        PROFILE_NOFRAME
        FLD     x                       /* x */
        fsin                            /* sin(x) */
        fstsww  %ax
        testb   $0x04, %ah                              
        jnz     Llarge                  /* C2 != 0 ? */
Lreturn:EPILOGUE(FUNC)

        ALIGN
Llarge: fldl    __const_ZERO            /* sin(large):=0 */
        fstp    %st(1)
        jmp     Lreturn