/*  PCSX2 - PS2 Emulator for PCs
 *  Copyright (C) 2002-2010  PCSX2 Dev Team
 *
 *  PCSX2 is free software: you can redistribute it and/or modify it under the terms
 *  of the GNU Lesser General Public License as published by the Free Software Found-
 *  ation, either version 3 of the License, or (at your option) any later version.
 *
 *  PCSX2 is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
 *  without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 *  PURPOSE.  See the GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License along with PCSX2.
 *  If not, see <http://www.gnu.org/licenses/>.
 */
/*
 * ix86 core v0.6.2
 * Authors: linuzappz <linuzappz@pcsx.net>
 *			alexey silinov
 *			goldfinger
 *			zerofrog(@gmail.com)
 *			cottonvibes(@gmail.com)
 */

//------------------------------------------------------------------
// ix86 legacy emitter functions
//------------------------------------------------------------------

#include "PrecompiledHeader.h"
#include "legacy_internal.h"

emitterT void ModRM(uint mod, uint reg, uint rm)
{
    // Note: Following assertions are for legacy support only.
    // The new emitter performs these sanity checks during operand construction, so these
    // assertions can probably be removed once all legacy emitter code has been removed.
    pxAssert(mod < 4);
    pxAssert(reg < 8);
    pxAssert(rm < 8);
    xWrite8((mod << 6) | (reg << 3) | rm);
}

emitterT void SibSB(uint ss, uint index, uint base)
{
    // Note: Following asserts are for legacy support only.
    // The new emitter performs these sanity checks during operand construction, so these
    // assertions can probably be removed once all legacy emitter code has been removed.
    pxAssert(ss < 4);
    pxAssert(index < 8);
    pxAssert(base < 8);
    xWrite8((ss << 6) | (index << 3) | base);
}

using namespace x86Emitter;

//////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////
// From here on are instructions that have NOT been implemented in the new emitter.
//////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////

emitterT u8 *J8Rel(int cc, int to)
{
    xWrite8(cc);
    xWrite8(to);
    return (u8 *)(x86Ptr - 1);
}

emitterT u16 *J16Rel(int cc, u32 to)
{
    xWrite16(0x0F66);
    xWrite8(cc);
    xWrite16(to);
    return (u16 *)(x86Ptr - 2);
}

emitterT u32 *J32Rel(int cc, u32 to)
{
    xWrite8(0x0F);
    xWrite8(cc);
    xWrite32(to);
    return (u32 *)(x86Ptr - 4);
}

////////////////////////////////////////////////////
emitterT void x86SetPtr(u8 *ptr)
{
    x86Ptr = ptr;
}

//////////////////////////////////////////////////////////////////////////////////////////
// Jump Label API (as rough as it might be)
//
// I don't auto-inline these because of the console logging in case of error, which tends
// to cause quite a bit of code bloat.
//
void x86SetJ8(u8 *j8)
{
    u32 jump = (x86Ptr - j8) - 1;

    if (jump > 0x7f) {
        Console.Error("j8 greater than 0x7f!!");
        assert(0);
    }
    *j8 = (u8)jump;
}

void x86SetJ8A(u8 *j8)
{
    u32 jump = (x86Ptr - j8) - 1;

    if (jump > 0x7f) {
        Console.Error("j8 greater than 0x7f!!");
        assert(0);
    }

    if (((uptr)x86Ptr & 0xf) > 4) {

        uptr newjump = jump + 16 - ((uptr)x86Ptr & 0xf);

        if (newjump <= 0x7f) {
            jump = newjump;
            while ((uptr)x86Ptr & 0xf)
                *x86Ptr++ = 0x90;
        }
    }
    *j8 = (u8)jump;
}

////////////////////////////////////////////////////
emitterT void x86SetJ32(u32 *j32)
{
    *j32 = (x86Ptr - (u8 *)j32) - 4;
}

emitterT void x86SetJ32A(u32 *j32)
{
    while ((uptr)x86Ptr & 0xf)
        *x86Ptr++ = 0x90;
    x86SetJ32(j32);
}

////////////////////////////////////////////////////
emitterT void x86Align(int bytes)
{
    // forward align
    x86Ptr = (u8 *)(((uptr)x86Ptr + bytes - 1) & ~(bytes - 1));
}

/********************/
/* IX86 instructions */
/********************/

////////////////////////////////////
// jump instructions				/
////////////////////////////////////

/* jmp rel8 */
emitterT u8 *JMP8(u8 to)
{
    xWrite8(0xEB);
    xWrite8(to);
    return x86Ptr - 1;
}

/* jmp rel32 */
emitterT u32 *JMP32(uptr to)
{
    assert((sptr)to <= 0x7fffffff && (sptr)to >= -0x7fffffff);
    xWrite8(0xE9);
    xWrite32(to);
    return (u32 *)(x86Ptr - 4);
}

/* jp rel8 */
emitterT u8 *JP8(u8 to)
{
    return J8Rel(0x7A, to);
}

/* jnp rel8 */
emitterT u8 *JNP8(u8 to)
{
    return J8Rel(0x7B, to);
}

/* je rel8 */
emitterT u8 *JE8(u8 to)
{
    return J8Rel(0x74, to);
}

/* jz rel8 */
emitterT u8 *JZ8(u8 to)
{
    return J8Rel(0x74, to);
}

/* js rel8 */
emitterT u8 *JS8(u8 to)
{
    return J8Rel(0x78, to);
}

/* jns rel8 */
emitterT u8 *JNS8(u8 to)
{
    return J8Rel(0x79, to);
}

/* jg rel8 */
emitterT u8 *JG8(u8 to)
{
    return J8Rel(0x7F, to);
}

/* jge rel8 */
emitterT u8 *JGE8(u8 to)
{
    return J8Rel(0x7D, to);
}

/* jl rel8 */
emitterT u8 *JL8(u8 to)
{
    return J8Rel(0x7C, to);
}

/* ja rel8 */
emitterT u8 *JA8(u8 to)
{
    return J8Rel(0x77, to);
}

emitterT u8 *JAE8(u8 to)
{
    return J8Rel(0x73, to);
}

/* jb rel8 */
emitterT u8 *JB8(u8 to)
{
    return J8Rel(0x72, to);
}

/* jbe rel8 */
emitterT u8 *JBE8(u8 to)
{
    return J8Rel(0x76, to);
}

/* jle rel8 */
emitterT u8 *JLE8(u8 to)
{
    return J8Rel(0x7E, to);
}

/* jne rel8 */
emitterT u8 *JNE8(u8 to)
{
    return J8Rel(0x75, to);
}

/* jnz rel8 */
emitterT u8 *JNZ8(u8 to)
{
    return J8Rel(0x75, to);
}

/* jng rel8 */
emitterT u8 *JNG8(u8 to)
{
    return J8Rel(0x7E, to);
}

/* jnge rel8 */
emitterT u8 *JNGE8(u8 to)
{
    return J8Rel(0x7C, to);
}

/* jnl rel8 */
emitterT u8 *JNL8(u8 to)
{
    return J8Rel(0x7D, to);
}

/* jnle rel8 */
emitterT u8 *JNLE8(u8 to)
{
    return J8Rel(0x7F, to);
}

/* jo rel8 */
emitterT u8 *JO8(u8 to)
{
    return J8Rel(0x70, to);
}

/* jno rel8 */
emitterT u8 *JNO8(u8 to)
{
    return J8Rel(0x71, to);
}
// jb rel32
emitterT u32 *JB32(u32 to)
{
    return J32Rel(0x82, to);
}

/* je rel32 */
emitterT u32 *JE32(u32 to)
{
    return J32Rel(0x84, to);
}

/* jz rel32 */
emitterT u32 *JZ32(u32 to)
{
    return J32Rel(0x84, to);
}

/* js rel32 */
emitterT u32 *JS32(u32 to)
{
    return J32Rel(0x88, to);
}

/* jns rel32 */
emitterT u32 *JNS32(u32 to)
{
    return J32Rel(0x89, to);
}

/* jg rel32 */
emitterT u32 *JG32(u32 to)
{
    return J32Rel(0x8F, to);
}

/* jge rel32 */
emitterT u32 *JGE32(u32 to)
{
    return J32Rel(0x8D, to);
}

/* jl rel32 */
emitterT u32 *JL32(u32 to)
{
    return J32Rel(0x8C, to);
}

/* jle rel32 */
emitterT u32 *JLE32(u32 to)
{
    return J32Rel(0x8E, to);
}

/* ja rel32 */
emitterT u32 *JA32(u32 to)
{
    return J32Rel(0x87, to);
}

/* jae rel32 */
emitterT u32 *JAE32(u32 to)
{
    return J32Rel(0x83, to);
}

/* jne rel32 */
emitterT u32 *JNE32(u32 to)
{
    return J32Rel(0x85, to);
}

/* jnz rel32 */
emitterT u32 *JNZ32(u32 to)
{
    return J32Rel(0x85, to);
}

/* jng rel32 */
emitterT u32 *JNG32(u32 to)
{
    return J32Rel(0x8E, to);
}

/* jnge rel32 */
emitterT u32 *JNGE32(u32 to)
{
    return J32Rel(0x8C, to);
}

/* jnl rel32 */
emitterT u32 *JNL32(u32 to)
{
    return J32Rel(0x8D, to);
}

/* jnle rel32 */
emitterT u32 *JNLE32(u32 to)
{
    return J32Rel(0x8F, to);
}

/* jo rel32 */
emitterT u32 *JO32(u32 to)
{
    return J32Rel(0x80, to);
}

/* jno rel32 */
emitterT u32 *JNO32(u32 to)
{
    return J32Rel(0x81, to);
}
