kvisc/vm/in/flags.h

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

#define PARITY(v) __builtin_parity(v)

#define SET_ZF(v)                                                           \
    flg = ((v) == 0 ? (flg|ZF) : (flg&~ZF))

#define SET_SF(v)                                                           \
    flg = ((long)(v) < 0 ? (flg|SF) : (flg&~SF))

#define SET_PF(v)                                                           \
    flg = (PARITY(v) == 1 ? (flg|PF) : (flg&~PF))

#define SET_ZSF(v)                                                          \
    SET_ZF(v);                                                              \
    SET_SF(v)

#define SET_ZSPF(v)                                                         \
    SET_ZF(v);                                                              \
    SET_SF(v);                                                              \
    SET_PF(v)

#define COMPARE(v1, v2)                                                     \
    ulong _u1 = (ulong)v1, _u2 = (ulong)v2;                                 \
    long _s1 = (long)v1, _s2 = (long)v2;                                    \
                                                                            \
    if (_u1 < _u2) flg |= CF;                                               \
    else flg &= ~CF;                                                        \
                                                                            \
    if ( ((_s1 < 0) && (_s1 > LONG_MAX + _s2))                              \
      || ((_s2 > 0) && (_s1 < LONG_MIN + _s2)) )                            \
        flg |= OF;                                                          \
    else flg &= ~OF;                                                        \
    SET_ZSF(_u1 - _u2);