*/ REBI64 Int64(REBVAL *val) /* ***********************************************************************/ { if (IS_INTEGER(val)) return VAL_INT64(val); if (IS_DECIMAL(val) || IS_PERCENT(val)) return (REBI64)VAL_DECIMAL(val); if (IS_MONEY(val)) return deci_to_int(VAL_DECI(val)); Trap_Arg(val); return 0; }
// // Int64: C // REBI64 Int64(const REBVAL *val) { if (IS_INTEGER(val)) return VAL_INT64(val); if (IS_DECIMAL(val) || IS_PERCENT(val)) return cast(REBI64, VAL_DECIMAL(val)); if (IS_MONEY(val)) return deci_to_int(VAL_MONEY_AMOUNT(val)); fail (Error_Invalid_Arg(val)); }