kvisc/vm/in/alu.c

// The OS/K Team licenses this file to you under the MIT license.
// See the LICENSE file in the project root for more information.

#include <in/instrs.h>

#define _NEED_ARCH_I
#include <ob/arch_i.h>

//----------------------------------------------------------------------------//

IMPL_START(or) { *r1 = p2->val | p3->val; return 1; }
IMPL_START(and) { *r1 = p2->val & p3->val; return 1; }
IMPL_START(xor) { *r1 = p2->val ^ p3->val; return 1; }

//----------------------------------------------------------------------------//

IMPL_START(shl) { *r1 = p2->val << p3->val; return 1; }
IMPL_START(shr) { *r1 = p2->val >> p3->val; return 1; }
IMPL_START(sal) { *r1 = (ulong)((long)p2->val << (long)p3->val); return 1; }
IMPL_START(sar) { *r1 = (ulong)((long)p2->val >> (long)p3->val); return 1; }

//----------------------------------------------------------------------------//

IMPL_START(add) { *r1 = p2->val + p3->val; return 1; }
IMPL_START(addf) { COMPARE_ADD(p2->val, p3->val); *r1 = p2->val + p3->val; return 1; }

IMPL_START(sub) { *r1 = p2->val - p3->val; return 1; }
IMPL_START(subf) { COMPARE_SUB(p2->val, p3->val); *r1 = p2->val - p3->val; return 1; }

IMPL_START(adcx)
{
    p3->val += !!(R(RFX)&CF);
    COMPARE_ADD(p2->val, p3->val);
    *r1 = p2->val + p3->val;

    return 1;
}

IMPL_START(sbbx)
{
    p3->val += !!(R(RFX)&CF); 
    COMPARE_SUB(p2->val, p3->val);
    *r1 = p2->val - p3->val;

    return 1;
}

//----------------------------------------------------------------------------//

IMPL_START(mul) { *r1 = p2->val * p3->val; return 1; }
IMPL_START(rem) { *r1 = p2->val % p3->val; return 1; }

IMPL_START(div)
{
    if (!p3->val)
        _except(ctx, E_DIV, "DIV by 0");
    *r1 = p2->val / p3->val;

    return 1;
}

IMPL_START(idiv)
{
    if (!p3->val)
        _except(ctx, E_DIV, "IDIV by 0");

    *r1 = (ulong)((long)p2->val/(long)p3->val);

    return 1;
}

//----------------------------------------------------------------------------//

static void __unsigned_multiply128(ulong u, ulong v, ulong *hi, ulong *lo)
{
    __uint128_t r = (__uint128_t)u * (__uint128_t)v;

    *hi = r >> 64;
    *lo = r;
}

IMPL_START(mulhi)
{
    __unsigned_multiply128(p2->val, p3->val, r1, r2);
    return 2;
}

IMPL_START(mulf)
{
    ulong tmp;
    __unsigned_multiply128(p2->val, p3->val, &tmp, r1);
    R(RFX) = p2->val ? (R(RFX)|CF|OF) : R(RFX)&~(CF|OF);

    return 1;
}

//----------------------------------------------------------------------------//

static void __signed_multiply128(ulong u, ulong v, ulong *hi, ulong *lo)
{
    __int128_t r = (__int128_t)(long)u * (__int128_t)(long)v;

    *hi = r >> 64;
    *lo = r;
}

IMPL_START(imulhi)
{
    __signed_multiply128(p2->val, p3->val, r1, r2);
    return 2;
}

//----------------------------------------------------------------------------//