#define _GNU_SOURCE

#include <stdint.h>

#include <stdio.h>

#include <stdlib.h>

#include <math.h>

#include <string.h>

#include <signal.h>

#include <sys/types.h>

#include <unistd.h>



#include "debug.h"

#include "box64stack.h"

#include "x64emu.h"

#include "x64run.h"

#include "x64emu_private.h"

#include "x64run_private.h"

#include "x64primop.h"

#include "x64trace.h"

#include "x87emu_private.h"

#include "box64context.h"

#include "bridge.h"



#include "modrm.h"



#ifdef TEST_INTERPRETER

uintptr_t TestDA(x64test_t *test, rex_t rex, uintptr_t addr)

#else

uintptr_t RunDA(x64emu_t *emu, rex_t rex, uintptr_t addr)

#endif

{

    uint8_t nextop;

    reg64_t *oped;

    #ifdef TEST_INTERPRETER

    x64emu_t*emu = test->emu;

    #endif



    nextop = F8;

    if(MODREG)

    switch (nextop) {

    case 0xC0:      /* FCMOVB ST(0), ST(i) */

    case 0xC1:

    case 0xC2:

    case 0xC3:

    case 0xC4:

    case 0xC5:

    case 0xC6:

    case 0xC7:

        CHECK_FLAGS(emu);

        if(ACCESS_FLAG(F_CF))

            ST0.q = ST(nextop&7).q;

        break;

    case 0xC8:      /* FCMOVE ST(0), ST(i) */

    case 0xC9:

    case 0xCA:

    case 0xCB:

    case 0xCC:

    case 0xCD:

    case 0xCE:

    case 0xCF:

        CHECK_FLAGS(emu);

        if(ACCESS_FLAG(F_ZF))

            ST0.q = ST(nextop&7).q;

        break;

    case 0xD0:      /* FCMOVBE ST(0), ST(i) */

    case 0xD1:

    case 0xD2:

    case 0xD3:

    case 0xD4:

    case 0xD5:

    case 0xD6:

    case 0xD7:

        CHECK_FLAGS(emu);

        if(ACCESS_FLAG(F_CF) || ACCESS_FLAG(F_ZF))

            ST0.q = ST(nextop&7).q;

        break;

    case 0xD8:      /* FCMOVU ST(0), ST(i) */

    case 0xD9:

    case 0xDA:

    case 0xDB:

    case 0xDC:

    case 0xDD:

    case 0xDE:

    case 0xDF:

        CHECK_FLAGS(emu);

        if(ACCESS_FLAG(F_PF))

            ST0.q = ST(nextop&7).q;

        break;

    

    case 0xE9:      /* FUCOMPP */

        fpu_fcom(emu, ST1.d);   // bad, should handle QNaN and IA interrupt

        fpu_do_pop(emu);

        fpu_do_pop(emu);

        break;



    default:

        return 0;

    } else

        switch((nextop>>3)&7) {

            case 0:     /* FIADD ST0, Ed int */

                GETE4(0);

                ST0.d += ED->sdword[0];

                break;

            case 1:     /* FIMUL ST0, Ed int */

                GETE4(0);

                ST0.d *= ED->sdword[0];

                break;

            case 2:     /* FICOM ST0, Ed int */

                GETE4(0);

                fpu_fcom(emu, ED->sdword[0]);

                break;

            case 3:     /* FICOMP ST0, Ed int */

                GETE4(0);

                fpu_fcom(emu, ED->sdword[0]);

                fpu_do_pop(emu);

                break;

            case 4:     /* FISUB ST0, Ed int */

                GETE4(0);

                ST0.d -= ED->sdword[0];

                break;

            case 5:     /* FISUBR ST0, Ed int */

                GETE4(0);

                ST0.d = (double)ED->sdword[0] - ST0.d;

                break;

            case 6:     /* FIDIV ST0, Ed int */

                GETE4(0);

                ST0.d /= ED->sdword[0];

                break;

            case 7:     /* FIDIVR ST0, Ed int */

                GETE4(0);

                ST0.d = (double)ED->sdword[0] / ST0.d;

                break;

        }

   return addr;

}