mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-24 12:14:26 +03:00
666 lines
24 KiB
C
666 lines
24 KiB
C
#include "mathFunctions.h"
|
|
#include "memoryManagement.h"
|
|
#include "runtime.h"
|
|
|
|
double unpackDouble(Value *d) { return ((Value_Double *)d)->d; }
|
|
|
|
/* add */
|
|
Value *add_Bits8(Value *x, Value *y) {
|
|
return (Value *)makeBits8(((Value_Bits8 *)x)->ui8 + ((Value_Bits8 *)y)->ui8);
|
|
}
|
|
Value *add_Bits16(Value *x, Value *y) {
|
|
return (Value *)makeBits16(((Value_Bits16 *)x)->ui16 +
|
|
((Value_Bits16 *)y)->ui16);
|
|
}
|
|
Value *add_Bits32(Value *x, Value *y) {
|
|
return (Value *)makeBits32(((Value_Bits32 *)x)->ui32 +
|
|
((Value_Bits32 *)y)->ui32);
|
|
}
|
|
Value *add_Bits64(Value *x, Value *y) {
|
|
return (Value *)makeBits64(((Value_Bits64 *)x)->ui64 +
|
|
((Value_Bits64 *)y)->ui64);
|
|
}
|
|
Value *add_Int8(Value *x, Value *y) {
|
|
return (Value *)makeInt8(((Value_Int8 *)x)->i8 + ((Value_Int8 *)y)->i8);
|
|
}
|
|
Value *add_Int16(Value *x, Value *y) {
|
|
return (Value *)makeInt16(((Value_Int16 *)x)->i16 + ((Value_Int16 *)y)->i16);
|
|
}
|
|
Value *add_Int32(Value *x, Value *y) {
|
|
return (Value *)makeInt32(((Value_Int32 *)x)->i32 + ((Value_Int32 *)y)->i32);
|
|
}
|
|
Value *add_Int64(Value *x, Value *y) {
|
|
return (Value *)makeInt64(((Value_Int64 *)x)->i64 + ((Value_Int64 *)y)->i64);
|
|
}
|
|
Value *add_Integer(Value *x, Value *y) {
|
|
Value_Integer *retVal = makeInteger();
|
|
mpz_add(retVal->i, ((Value_Integer *)x)->i, ((Value_Integer *)y)->i);
|
|
return (Value *)retVal;
|
|
}
|
|
Value *add_double(Value *x, Value *y) {
|
|
return (Value *)makeDouble(((Value_Double *)x)->d + ((Value_Double *)y)->d);
|
|
}
|
|
|
|
/* sub */
|
|
Value *sub_Bits8(Value *x, Value *y) {
|
|
return (Value *)makeBits8(((Value_Bits8 *)x)->ui8 - ((Value_Bits8 *)y)->ui8);
|
|
}
|
|
Value *sub_Bits16(Value *x, Value *y) {
|
|
return (Value *)makeBits16(((Value_Bits16 *)x)->ui16 -
|
|
((Value_Bits16 *)y)->ui16);
|
|
}
|
|
Value *sub_Bits32(Value *x, Value *y) {
|
|
return (Value *)makeBits32(((Value_Bits32 *)x)->ui32 -
|
|
((Value_Bits32 *)y)->ui32);
|
|
}
|
|
Value *sub_Bits64(Value *x, Value *y) {
|
|
return (Value *)makeBits64(((Value_Bits64 *)x)->ui64 -
|
|
((Value_Bits64 *)y)->ui64);
|
|
}
|
|
Value *sub_Int8(Value *x, Value *y) {
|
|
return (Value *)makeInt8(((Value_Int8 *)x)->i8 - ((Value_Int8 *)y)->i8);
|
|
}
|
|
Value *sub_Int16(Value *x, Value *y) {
|
|
return (Value *)makeInt16(((Value_Int16 *)x)->i16 - ((Value_Int16 *)y)->i16);
|
|
}
|
|
Value *sub_Int32(Value *x, Value *y) {
|
|
return (Value *)makeInt32(((Value_Int32 *)x)->i32 - ((Value_Int32 *)y)->i32);
|
|
}
|
|
Value *sub_Int64(Value *x, Value *y) {
|
|
return (Value *)makeInt64(((Value_Int64 *)x)->i64 - ((Value_Int64 *)y)->i64);
|
|
}
|
|
Value *sub_Integer(Value *x, Value *y) {
|
|
Value_Integer *retVal = makeInteger();
|
|
mpz_sub(retVal->i, ((Value_Integer *)x)->i, ((Value_Integer *)y)->i);
|
|
return (Value *)retVal;
|
|
}
|
|
Value *sub_double(Value *x, Value *y) {
|
|
return (Value *)makeDouble(((Value_Double *)x)->d - ((Value_Double *)y)->d);
|
|
}
|
|
|
|
/* negate */
|
|
Value *negate_Bits8(Value *x) {
|
|
return (Value *)makeBits8(-((Value_Bits8 *)x)->ui8);
|
|
}
|
|
Value *negate_Bits16(Value *x) {
|
|
return (Value *)makeBits16(-((Value_Bits16 *)x)->ui16);
|
|
}
|
|
Value *negate_Bits32(Value *x) {
|
|
return (Value *)makeBits32(-((Value_Bits32 *)x)->ui32);
|
|
}
|
|
Value *negate_Bits64(Value *x) {
|
|
return (Value *)makeBits64(-((Value_Bits64 *)x)->ui64);
|
|
}
|
|
Value *negate_Int8(Value *x) {
|
|
return (Value *)makeInt8(-((Value_Int8 *)x)->i8);
|
|
}
|
|
Value *negate_Int16(Value *x) {
|
|
return (Value *)makeInt16(-((Value_Int16 *)x)->i16);
|
|
}
|
|
Value *negate_Int32(Value *x) {
|
|
return (Value *)makeInt32(-((Value_Int32 *)x)->i32);
|
|
}
|
|
Value *negate_Int64(Value *x) {
|
|
return (Value *)makeInt64(-((Value_Int64 *)x)->i64);
|
|
}
|
|
Value *negate_Integer(Value *x) {
|
|
Value_Integer *retVal = makeInteger();
|
|
mpz_neg(retVal->i, ((Value_Integer *)x)->i);
|
|
return (Value *)retVal;
|
|
}
|
|
Value *negate_double(Value *x) {
|
|
return (Value *)makeDouble(-((Value_Double *)x)->d);
|
|
}
|
|
|
|
/* mul */
|
|
Value *mul_Bits8(Value *x, Value *y) {
|
|
return (Value *)makeBits8(((Value_Bits8 *)x)->ui8 * ((Value_Bits8 *)y)->ui8);
|
|
}
|
|
Value *mul_Bits16(Value *x, Value *y) {
|
|
return (Value *)makeBits16(((Value_Bits16 *)x)->ui16 *
|
|
((Value_Bits16 *)y)->ui16);
|
|
}
|
|
Value *mul_Bits32(Value *x, Value *y) {
|
|
return (Value *)makeBits32(((Value_Bits32 *)x)->ui32 *
|
|
((Value_Bits32 *)y)->ui32);
|
|
}
|
|
Value *mul_Bits64(Value *x, Value *y) {
|
|
return (Value *)makeBits64(((Value_Bits64 *)x)->ui64 *
|
|
((Value_Bits64 *)y)->ui64);
|
|
}
|
|
Value *mul_Int8(Value *x, Value *y) {
|
|
return (Value *)makeInt8(((Value_Int8 *)x)->i8 * ((Value_Int8 *)y)->i8);
|
|
}
|
|
Value *mul_Int16(Value *x, Value *y) {
|
|
return (Value *)makeInt16(((Value_Int16 *)x)->i16 * ((Value_Int16 *)y)->i16);
|
|
}
|
|
Value *mul_Int32(Value *x, Value *y) {
|
|
return (Value *)makeInt32(((Value_Int32 *)x)->i32 * ((Value_Int32 *)y)->i32);
|
|
}
|
|
Value *mul_Int64(Value *x, Value *y) {
|
|
return (Value *)makeInt64(((Value_Int64 *)x)->i64 * ((Value_Int64 *)y)->i64);
|
|
}
|
|
Value *mul_Integer(Value *x, Value *y) {
|
|
Value_Integer *retVal = makeInteger();
|
|
mpz_mul(retVal->i, ((Value_Integer *)x)->i, ((Value_Integer *)y)->i);
|
|
return (Value *)retVal;
|
|
}
|
|
Value *mul_double(Value *x, Value *y) {
|
|
return (Value *)makeDouble(((Value_Double *)x)->d * ((Value_Double *)y)->d);
|
|
}
|
|
|
|
/* div */
|
|
Value *div_Bits8(Value *x, Value *y) {
|
|
return (Value *)makeBits8(((Value_Bits8 *)x)->ui8 / ((Value_Bits8 *)y)->ui8);
|
|
}
|
|
Value *div_Bits16(Value *x, Value *y) {
|
|
return (Value *)makeBits16(((Value_Bits16 *)x)->ui16 /
|
|
((Value_Bits16 *)y)->ui16);
|
|
}
|
|
Value *div_Bits32(Value *x, Value *y) {
|
|
return (Value *)makeBits32(((Value_Bits32 *)x)->ui32 /
|
|
((Value_Bits32 *)y)->ui32);
|
|
}
|
|
Value *div_Bits64(Value *x, Value *y) {
|
|
return (Value *)makeBits64(((Value_Bits64 *)x)->ui64 /
|
|
((Value_Bits64 *)y)->ui64);
|
|
}
|
|
Value *div_Int8(Value *x, Value *y) {
|
|
// Correction term added to convert from truncated division (C default) to
|
|
// Euclidean division For proof of correctness, see Division and Modulus for
|
|
// Computer Scientists (Daan Leijen)
|
|
// https://www.microsoft.com/en-us/research/publication/division-and-modulus-for-computer-scientists/
|
|
|
|
int8_t num = ((Value_Int8 *)x)->i8;
|
|
int8_t denom = ((Value_Int8 *)y)->i8;
|
|
int8_t rem = num % denom;
|
|
return (Value *)makeInt8(num / denom +
|
|
((rem < 0) ? (denom < 0) ? 1 : -1 : 0));
|
|
}
|
|
Value *div_Int16(Value *x, Value *y) {
|
|
// Correction term added to convert from truncated division (C default) to
|
|
// Euclidean division For proof of correctness, see Division and Modulus for
|
|
// Computer Scientists (Daan Leijen)
|
|
// https://www.microsoft.com/en-us/research/publication/division-and-modulus-for-computer-scientists/
|
|
|
|
int16_t num = ((Value_Int16 *)x)->i16;
|
|
int16_t denom = ((Value_Int16 *)y)->i16;
|
|
int16_t rem = num % denom;
|
|
return (Value *)makeInt16(num / denom +
|
|
((rem < 0) ? (denom < 0) ? 1 : -1 : 0));
|
|
}
|
|
Value *div_Int32(Value *x, Value *y) {
|
|
// Correction term added to convert from truncated division (C default) to
|
|
// Euclidean division For proof of correctness, see Division and Modulus for
|
|
// Computer Scientists (Daan Leijen)
|
|
// https://www.microsoft.com/en-us/research/publication/division-and-modulus-for-computer-scientists/
|
|
|
|
int32_t num = ((Value_Int32 *)x)->i32;
|
|
int32_t denom = ((Value_Int32 *)y)->i32;
|
|
int32_t rem = num % denom;
|
|
return (Value *)makeInt32(num / denom +
|
|
((rem < 0) ? (denom < 0) ? 1 : -1 : 0));
|
|
}
|
|
Value *div_Int64(Value *x, Value *y) {
|
|
// Correction term added to convert from truncated division (C default) to
|
|
// Euclidean division For proof of correctness, see Division and Modulus for
|
|
// Computer Scientists (Daan Leijen)
|
|
// https://www.microsoft.com/en-us/research/publication/division-and-modulus-for-computer-scientists/
|
|
|
|
int64_t num = ((Value_Int64 *)x)->i64;
|
|
int64_t denom = ((Value_Int64 *)y)->i64;
|
|
int64_t rem = num % denom;
|
|
return (Value *)makeInt64(num / denom +
|
|
((rem < 0) ? (denom < 0) ? 1 : -1 : 0));
|
|
}
|
|
Value *div_Integer(Value *x, Value *y) {
|
|
mpz_t rem, yq;
|
|
mpz_inits(rem, yq, NULL);
|
|
|
|
mpz_mod(rem, ((Value_Integer *)x)->i, ((Value_Integer *)y)->i);
|
|
mpz_sub(yq, ((Value_Integer *)x)->i, rem);
|
|
|
|
Value_Integer *retVal = makeInteger();
|
|
mpz_divexact(retVal->i, yq, ((Value_Integer *)y)->i);
|
|
|
|
mpz_clears(rem, yq, NULL);
|
|
|
|
return (Value *)retVal;
|
|
}
|
|
Value *div_double(Value *x, Value *y) {
|
|
return (Value *)makeDouble(((Value_Double *)x)->d / ((Value_Double *)y)->d);
|
|
}
|
|
|
|
/* mod */
|
|
Value *mod_Bits8(Value *x, Value *y) {
|
|
return (Value *)makeBits8(((Value_Bits8 *)x)->ui8 % ((Value_Bits8 *)y)->ui8);
|
|
}
|
|
Value *mod_Bits16(Value *x, Value *y) {
|
|
return (Value *)makeBits16(((Value_Bits16 *)x)->ui16 %
|
|
((Value_Bits16 *)y)->ui16);
|
|
}
|
|
Value *mod_Bits32(Value *x, Value *y) {
|
|
return (Value *)makeBits32(((Value_Bits32 *)x)->ui32 %
|
|
((Value_Bits32 *)y)->ui32);
|
|
}
|
|
Value *mod_Bits64(Value *x, Value *y) {
|
|
return (Value *)makeBits64(((Value_Bits64 *)x)->ui64 %
|
|
((Value_Bits64 *)y)->ui64);
|
|
}
|
|
Value *mod_Int8(Value *x, Value *y) {
|
|
int8_t num = ((Value_Int8 *)x)->i8;
|
|
int8_t denom = ((Value_Int8 *)y)->i8;
|
|
denom = (denom < 0) ? -denom : denom;
|
|
return (Value *)makeInt8(num % denom + (num < 0 ? denom : 0));
|
|
}
|
|
Value *mod_Int16(Value *x, Value *y) {
|
|
int16_t num = ((Value_Int16 *)x)->i16;
|
|
int16_t denom = ((Value_Int16 *)y)->i16;
|
|
denom = (denom < 0) ? -denom : denom;
|
|
return (Value *)makeInt16(num % denom + (num < 0 ? denom : 0));
|
|
}
|
|
Value *mod_Int32(Value *x, Value *y) {
|
|
int32_t num = ((Value_Int32 *)x)->i32;
|
|
int32_t denom = ((Value_Int32 *)y)->i32;
|
|
denom = (denom < 0) ? -denom : denom;
|
|
return (Value *)makeInt32(num % denom + (num < 0 ? denom : 0));
|
|
}
|
|
Value *mod_Int64(Value *x, Value *y) {
|
|
int64_t num = ((Value_Int64 *)x)->i64;
|
|
int64_t denom = ((Value_Int64 *)y)->i64;
|
|
denom = (denom < 0) ? -denom : denom;
|
|
return (Value *)makeInt64(num % denom + (num < 0 ? denom : 0));
|
|
}
|
|
Value *mod_Integer(Value *x, Value *y) {
|
|
Value_Integer *retVal = makeInteger();
|
|
mpz_mod(retVal->i, ((Value_Integer *)x)->i, ((Value_Integer *)y)->i);
|
|
return (Value *)retVal;
|
|
}
|
|
|
|
/* shiftl */
|
|
Value *shiftl_Bits8(Value *x, Value *y) {
|
|
return (Value *)makeBits8(((Value_Bits8 *)x)->ui8 << ((Value_Bits8 *)y)->ui8);
|
|
}
|
|
Value *shiftl_Bits16(Value *x, Value *y) {
|
|
return (Value *)makeBits16(((Value_Bits16 *)x)->ui16
|
|
<< ((Value_Bits16 *)y)->ui16);
|
|
}
|
|
Value *shiftl_Bits32(Value *x, Value *y) {
|
|
return (Value *)makeBits32(((Value_Bits32 *)x)->ui32
|
|
<< ((Value_Bits32 *)y)->ui32);
|
|
}
|
|
Value *shiftl_Bits64(Value *x, Value *y) {
|
|
return (Value *)makeBits64(((Value_Bits64 *)x)->ui64
|
|
<< ((Value_Bits64 *)y)->ui64);
|
|
}
|
|
Value *shiftl_Int8(Value *x, Value *y) {
|
|
return (Value *)makeInt8(((Value_Int8 *)x)->i8 << ((Value_Int8 *)y)->i8);
|
|
}
|
|
Value *shiftl_Int16(Value *x, Value *y) {
|
|
return (Value *)makeInt16(((Value_Int16 *)x)->i16 << ((Value_Int16 *)y)->i16);
|
|
}
|
|
Value *shiftl_Int32(Value *x, Value *y) {
|
|
return (Value *)makeInt32(((Value_Int32 *)x)->i32 << ((Value_Int32 *)y)->i32);
|
|
}
|
|
Value *shiftl_Int64(Value *x, Value *y) {
|
|
return (Value *)makeInt64(((Value_Int64 *)x)->i64 << ((Value_Int64 *)y)->i64);
|
|
}
|
|
Value *shiftl_Integer(Value *x, Value *y) {
|
|
Value_Integer *retVal = makeInteger();
|
|
mp_bitcnt_t cnt = (mp_bitcnt_t)mpz_get_ui(((Value_Integer *)y)->i);
|
|
mpz_mul_2exp(retVal->i, ((Value_Integer *)x)->i, cnt);
|
|
return (Value *)retVal;
|
|
}
|
|
|
|
/* shiftr */
|
|
Value *shiftr_Bits8(Value *x, Value *y) {
|
|
return (Value *)makeBits8(((Value_Bits8 *)x)->ui8 >> ((Value_Bits8 *)y)->ui8);
|
|
}
|
|
Value *shiftr_Bits16(Value *x, Value *y) {
|
|
return (Value *)makeBits16(((Value_Bits16 *)x)->ui16 >>
|
|
((Value_Bits16 *)y)->ui16);
|
|
}
|
|
Value *shiftr_Bits32(Value *x, Value *y) {
|
|
return (Value *)makeBits32(((Value_Bits32 *)x)->ui32 >>
|
|
((Value_Bits32 *)y)->ui32);
|
|
}
|
|
Value *shiftr_Bits64(Value *x, Value *y) {
|
|
return (Value *)makeBits64(((Value_Bits64 *)x)->ui64 >>
|
|
((Value_Bits64 *)y)->ui64);
|
|
}
|
|
Value *shiftr_Int8(Value *x, Value *y) {
|
|
return (Value *)makeInt8(((Value_Int8 *)x)->i8 >> ((Value_Int8 *)y)->i8);
|
|
}
|
|
Value *shiftr_Int16(Value *x, Value *y) {
|
|
return (Value *)makeInt16(((Value_Int16 *)x)->i16 >> ((Value_Int16 *)y)->i16);
|
|
}
|
|
Value *shiftr_Int32(Value *x, Value *y) {
|
|
return (Value *)makeInt32(((Value_Int32 *)x)->i32 >> ((Value_Int32 *)y)->i32);
|
|
}
|
|
Value *shiftr_Int64(Value *x, Value *y) {
|
|
return (Value *)makeInt64(((Value_Int64 *)x)->i64 >> ((Value_Int64 *)y)->i64);
|
|
}
|
|
Value *shiftr_Integer(Value *x, Value *y) {
|
|
Value_Integer *retVal = makeInteger();
|
|
mp_bitcnt_t cnt = (mp_bitcnt_t)mpz_get_ui(((Value_Integer *)y)->i);
|
|
mpz_fdiv_q_2exp(retVal->i, ((Value_Integer *)x)->i, cnt);
|
|
return (Value *)retVal;
|
|
}
|
|
|
|
/* and */
|
|
Value *and_Bits8(Value *x, Value *y) {
|
|
return (Value *)makeBits8(((Value_Bits8 *)x)->ui8 & ((Value_Bits8 *)y)->ui8);
|
|
}
|
|
Value *and_Bits16(Value *x, Value *y) {
|
|
return (Value *)makeBits16(((Value_Bits16 *)x)->ui16 &
|
|
((Value_Bits16 *)y)->ui16);
|
|
}
|
|
Value *and_Bits32(Value *x, Value *y) {
|
|
return (Value *)makeBits32(((Value_Bits32 *)x)->ui32 &
|
|
((Value_Bits32 *)y)->ui32);
|
|
}
|
|
Value *and_Bits64(Value *x, Value *y) {
|
|
return (Value *)makeBits64(((Value_Bits64 *)x)->ui64 &
|
|
((Value_Bits64 *)y)->ui64);
|
|
}
|
|
Value *and_Int8(Value *x, Value *y) {
|
|
return (Value *)makeInt8(((Value_Int8 *)x)->i8 & ((Value_Int8 *)y)->i8);
|
|
}
|
|
Value *and_Int16(Value *x, Value *y) {
|
|
return (Value *)makeInt16(((Value_Int16 *)x)->i16 & ((Value_Int16 *)y)->i16);
|
|
}
|
|
Value *and_Int32(Value *x, Value *y) {
|
|
return (Value *)makeInt32(((Value_Int32 *)x)->i32 & ((Value_Int32 *)y)->i32);
|
|
}
|
|
Value *and_Int64(Value *x, Value *y) {
|
|
return (Value *)makeInt64(((Value_Int64 *)x)->i64 & ((Value_Int64 *)y)->i64);
|
|
}
|
|
Value *and_Integer(Value *x, Value *y) {
|
|
Value_Integer *retVal = makeInteger();
|
|
mpz_and(retVal->i, ((Value_Integer *)x)->i, ((Value_Integer *)y)->i);
|
|
return (Value *)retVal;
|
|
}
|
|
|
|
/* or */
|
|
Value *or_Bits8(Value *x, Value *y) {
|
|
return (Value *)makeBits8(((Value_Bits8 *)x)->ui8 | ((Value_Bits8 *)y)->ui8);
|
|
}
|
|
Value *or_Bits16(Value *x, Value *y) {
|
|
return (Value *)makeBits16(((Value_Bits16 *)x)->ui16 |
|
|
((Value_Bits16 *)y)->ui16);
|
|
}
|
|
Value *or_Bits32(Value *x, Value *y) {
|
|
return (Value *)makeBits32(((Value_Bits32 *)x)->ui32 |
|
|
((Value_Bits32 *)y)->ui32);
|
|
}
|
|
Value *or_Bits64(Value *x, Value *y) {
|
|
return (Value *)makeBits64(((Value_Bits64 *)x)->ui64 |
|
|
((Value_Bits64 *)y)->ui64);
|
|
}
|
|
Value *or_Int8(Value *x, Value *y) {
|
|
return (Value *)makeInt8(((Value_Int8 *)x)->i8 | ((Value_Int8 *)y)->i8);
|
|
}
|
|
Value *or_Int16(Value *x, Value *y) {
|
|
return (Value *)makeInt16(((Value_Int16 *)x)->i16 | ((Value_Int16 *)y)->i16);
|
|
}
|
|
Value *or_Int32(Value *x, Value *y) {
|
|
return (Value *)makeInt32(((Value_Int32 *)x)->i32 | ((Value_Int32 *)y)->i32);
|
|
}
|
|
Value *or_Int64(Value *x, Value *y) {
|
|
return (Value *)makeInt64(((Value_Int64 *)x)->i64 | ((Value_Int64 *)y)->i64);
|
|
}
|
|
Value *or_Integer(Value *x, Value *y) {
|
|
Value_Integer *retVal = makeInteger();
|
|
mpz_ior(retVal->i, ((Value_Integer *)x)->i, ((Value_Integer *)y)->i);
|
|
return (Value *)retVal;
|
|
}
|
|
|
|
/* xor */
|
|
Value *xor_Bits8(Value *x, Value *y) {
|
|
return (Value *)makeBits8(((Value_Bits8 *)x)->ui8 ^ ((Value_Bits8 *)y)->ui8);
|
|
}
|
|
Value *xor_Bits16(Value *x, Value *y) {
|
|
return (Value *)makeBits16(((Value_Bits16 *)x)->ui16 ^
|
|
((Value_Bits16 *)y)->ui16);
|
|
}
|
|
Value *xor_Bits32(Value *x, Value *y) {
|
|
return (Value *)makeBits32(((Value_Bits32 *)x)->ui32 ^
|
|
((Value_Bits32 *)y)->ui32);
|
|
}
|
|
Value *xor_Bits64(Value *x, Value *y) {
|
|
return (Value *)makeBits64(((Value_Bits64 *)x)->ui64 ^
|
|
((Value_Bits64 *)y)->ui64);
|
|
}
|
|
Value *xor_Int8(Value *x, Value *y) {
|
|
return (Value *)makeInt8(((Value_Int8 *)x)->i8 ^ ((Value_Int8 *)y)->i8);
|
|
}
|
|
Value *xor_Int16(Value *x, Value *y) {
|
|
return (Value *)makeInt16(((Value_Int16 *)x)->i16 ^ ((Value_Int16 *)y)->i16);
|
|
}
|
|
Value *xor_Int32(Value *x, Value *y) {
|
|
return (Value *)makeInt32(((Value_Int32 *)x)->i32 ^ ((Value_Int32 *)y)->i32);
|
|
}
|
|
Value *xor_Int64(Value *x, Value *y) {
|
|
return (Value *)makeInt64(((Value_Int64 *)x)->i64 ^ ((Value_Int64 *)y)->i64);
|
|
}
|
|
Value *xor_Integer(Value *x, Value *y) {
|
|
Value_Integer *retVal = makeInteger();
|
|
mpz_xor(retVal->i, ((Value_Integer *)x)->i, ((Value_Integer *)y)->i);
|
|
return (Value *)retVal;
|
|
}
|
|
|
|
/* lt */
|
|
Value *lt_Bits8(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits8 *)x)->ui8 < ((Value_Bits8 *)y)->ui8);
|
|
}
|
|
Value *lt_Bits16(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits16 *)x)->ui16 <
|
|
((Value_Bits16 *)y)->ui16);
|
|
}
|
|
Value *lt_Bits32(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits32 *)x)->ui32 <
|
|
((Value_Bits32 *)y)->ui32);
|
|
}
|
|
Value *lt_Bits64(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits64 *)x)->ui64 <
|
|
((Value_Bits64 *)y)->ui64);
|
|
}
|
|
Value *lt_Int8(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int8 *)x)->i8 < ((Value_Int8 *)y)->i8);
|
|
}
|
|
Value *lt_Int16(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int16 *)x)->i16 < ((Value_Int16 *)y)->i16);
|
|
}
|
|
Value *lt_Int32(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int32 *)x)->i32 < ((Value_Int32 *)y)->i32);
|
|
}
|
|
Value *lt_Int64(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int64 *)x)->i64 < ((Value_Int64 *)y)->i64);
|
|
}
|
|
Value *lt_Integer(Value *x, Value *y) {
|
|
return (Value *)makeBool(
|
|
mpz_cmp(((Value_Integer *)x)->i, ((Value_Integer *)y)->i) < 0);
|
|
}
|
|
Value *lt_double(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Double *)x)->d < ((Value_Double *)y)->d);
|
|
}
|
|
Value *lt_char(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Char *)x)->c < ((Value_Char *)y)->c);
|
|
}
|
|
Value *lt_string(Value *x, Value *y) {
|
|
return (Value *)makeBool(
|
|
strcmp(((Value_String *)x)->str, ((Value_String *)y)->str) < 0);
|
|
}
|
|
|
|
/* gt */
|
|
Value *gt_Bits8(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits8 *)x)->ui8 > ((Value_Bits8 *)y)->ui8);
|
|
}
|
|
Value *gt_Bits16(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits16 *)x)->ui16 >
|
|
((Value_Bits16 *)y)->ui16);
|
|
}
|
|
Value *gt_Bits32(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits32 *)x)->ui32 >
|
|
((Value_Bits32 *)y)->ui32);
|
|
}
|
|
Value *gt_Bits64(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits64 *)x)->ui64 >
|
|
((Value_Bits64 *)y)->ui64);
|
|
}
|
|
Value *gt_Int8(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int8 *)x)->i8 > ((Value_Int8 *)y)->i8);
|
|
}
|
|
Value *gt_Int16(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int16 *)x)->i16 > ((Value_Int16 *)y)->i16);
|
|
}
|
|
Value *gt_Int32(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int32 *)x)->i32 > ((Value_Int32 *)y)->i32);
|
|
}
|
|
Value *gt_Int64(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int64 *)x)->i64 > ((Value_Int64 *)y)->i64);
|
|
}
|
|
Value *gt_Integer(Value *x, Value *y) {
|
|
return (Value *)makeBool(
|
|
mpz_cmp(((Value_Integer *)x)->i, ((Value_Integer *)y)->i) > 0);
|
|
}
|
|
Value *gt_double(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Double *)x)->d > ((Value_Double *)y)->d);
|
|
}
|
|
Value *gt_char(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Char *)x)->c > ((Value_Char *)y)->c);
|
|
}
|
|
Value *gt_string(Value *x, Value *y) {
|
|
return (Value *)makeBool(
|
|
strcmp(((Value_String *)x)->str, ((Value_String *)y)->str) > 0);
|
|
}
|
|
|
|
/* eq */
|
|
Value *eq_Bits8(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits8 *)x)->ui8 == ((Value_Bits8 *)y)->ui8);
|
|
}
|
|
Value *eq_Bits16(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits16 *)x)->ui16 ==
|
|
((Value_Bits16 *)y)->ui16);
|
|
}
|
|
Value *eq_Bits32(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits32 *)x)->ui32 ==
|
|
((Value_Bits32 *)y)->ui32);
|
|
}
|
|
Value *eq_Bits64(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits64 *)x)->ui64 ==
|
|
((Value_Bits64 *)y)->ui64);
|
|
}
|
|
Value *eq_Int8(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int8 *)x)->i8 == ((Value_Int8 *)y)->i8);
|
|
}
|
|
Value *eq_Int16(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int16 *)x)->i16 == ((Value_Int16 *)y)->i16);
|
|
}
|
|
Value *eq_Int32(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int32 *)x)->i32 == ((Value_Int32 *)y)->i32);
|
|
}
|
|
Value *eq_Int64(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int64 *)x)->i64 == ((Value_Int64 *)y)->i64);
|
|
}
|
|
Value *eq_Integer(Value *x, Value *y) {
|
|
return (Value *)makeBool(
|
|
mpz_cmp(((Value_Integer *)x)->i, ((Value_Integer *)y)->i) == 0);
|
|
}
|
|
Value *eq_double(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Double *)x)->d == ((Value_Double *)y)->d);
|
|
}
|
|
Value *eq_char(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Char *)x)->c == ((Value_Char *)y)->c);
|
|
}
|
|
Value *eq_string(Value *x, Value *y) {
|
|
return (Value *)makeBool(
|
|
!strcmp(((Value_String *)x)->str, ((Value_String *)y)->str));
|
|
}
|
|
|
|
/* lte */
|
|
Value *lte_Bits8(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits8 *)x)->ui8 <= ((Value_Bits8 *)y)->ui8);
|
|
}
|
|
Value *lte_Bits16(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits16 *)x)->ui16 <=
|
|
((Value_Bits16 *)y)->ui16);
|
|
}
|
|
Value *lte_Bits32(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits32 *)x)->ui32 <=
|
|
((Value_Bits32 *)y)->ui32);
|
|
}
|
|
Value *lte_Bits64(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits64 *)x)->ui64 <=
|
|
((Value_Bits64 *)y)->ui64);
|
|
}
|
|
Value *lte_Int8(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int8 *)x)->i8 <= ((Value_Int8 *)y)->i8);
|
|
}
|
|
Value *lte_Int16(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int16 *)x)->i16 <= ((Value_Int16 *)y)->i16);
|
|
}
|
|
Value *lte_Int32(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int32 *)x)->i32 <= ((Value_Int32 *)y)->i32);
|
|
}
|
|
Value *lte_Int64(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int64 *)x)->i64 <= ((Value_Int64 *)y)->i64);
|
|
}
|
|
Value *lte_Integer(Value *x, Value *y) {
|
|
return (Value *)makeBool(
|
|
mpz_cmp(((Value_Integer *)x)->i, ((Value_Integer *)y)->i) <= 0);
|
|
}
|
|
Value *lte_double(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Double *)x)->d <= ((Value_Double *)y)->d);
|
|
}
|
|
Value *lte_char(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Char *)x)->c <= ((Value_Char *)y)->c);
|
|
}
|
|
Value *lte_string(Value *x, Value *y) {
|
|
return (Value *)makeBool(
|
|
strcmp(((Value_String *)x)->str, ((Value_String *)y)->str) <= 0);
|
|
}
|
|
|
|
/* gte */
|
|
Value *gte_Bits8(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits8 *)x)->ui8 >= ((Value_Bits8 *)y)->ui8);
|
|
}
|
|
Value *gte_Bits16(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits16 *)x)->ui16 >=
|
|
((Value_Bits16 *)y)->ui16);
|
|
}
|
|
Value *gte_Bits32(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits32 *)x)->ui32 >=
|
|
((Value_Bits32 *)y)->ui32);
|
|
}
|
|
Value *gte_Bits64(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Bits64 *)x)->ui64 >=
|
|
((Value_Bits64 *)y)->ui64);
|
|
}
|
|
Value *gte_Int8(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int8 *)x)->i8 >= ((Value_Int8 *)y)->i8);
|
|
}
|
|
Value *gte_Int16(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int16 *)x)->i16 >= ((Value_Int16 *)y)->i16);
|
|
}
|
|
Value *gte_Int32(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int32 *)x)->i32 >= ((Value_Int32 *)y)->i32);
|
|
}
|
|
Value *gte_Int64(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Int64 *)x)->i64 >= ((Value_Int64 *)y)->i64);
|
|
}
|
|
Value *gte_Integer(Value *x, Value *y) {
|
|
return (Value *)makeBool(
|
|
mpz_cmp(((Value_Integer *)x)->i, ((Value_Integer *)y)->i) >= 0);
|
|
}
|
|
Value *gte_double(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Double *)x)->d >= ((Value_Double *)y)->d);
|
|
}
|
|
Value *gte_char(Value *x, Value *y) {
|
|
return (Value *)makeBool(((Value_Char *)x)->c >= ((Value_Char *)y)->c);
|
|
}
|
|
Value *gte_string(Value *x, Value *y) {
|
|
return (Value *)makeBool(
|
|
strcmp(((Value_String *)x)->str, ((Value_String *)y)->str) >= 0);
|
|
}
|