hanez/fun
1
0
Fork 0
forked from fun/fun
Code Pull requests Activity

Classes are a real type class now and some fixes. (0.10.0)

Browse source
This commit is contained in:
Johannes Findeisen 2025-09-28 23:56:45 +02:00
commit 5d3cfd9f65
12 changed files with 203 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

33
src/vm/sclamp.c
View file

@ -8,32 +8,27 @@
*/
case OP_SCLAMP: {
/* Clamp/wrap to signed N-bit range: [-2^(N-1), 2^(N-1)-1] */
/* Saturating clamp to signed N-bit range: [-2^(N-1) .. 2^(N-1)-1] */
Value v = pop_value(vm);
int bits = inst.operand;
uint64_t u = 0;
if (v.type == VAL_INT) {
u = (uint64_t)v.i;
} else {
u = 0;
}
int64_t vi = (v.type == VAL_INT) ? v.i : 0;
int64_t smin, smax;
if (bits <= 0) {
/* treat as no-op for invalid widths */
} else if (bits >= 64) {
/* 64-bit signed: nothing to mask, keep as is */
smin = 0; smax = 0;
} else if (bits >= 63) {
/* cover full int64_t domain for 63+ bits */
smin = INT64_MIN;
smax = INT64_MAX;
} else {
uint64_t mask = (1ULL << bits) - 1ULL;
u &= mask;
uint64_t sign_bit = 1ULL << (bits - 1);
if (u & sign_bit) {
/* negative value in two's complement */
u -= (1ULL << bits);
}
smin = -(1LL << (bits - 1));
smax = (1LL << (bits - 1)) - 1LL;
}
push_value(vm, make_int((int64_t)u));
if (vi < smin) vi = smin;
else if (vi > smax) vi = smax;
push_value(vm, make_int(vi));
free_value(v);
break;
}

25
src/vm/uclamp.c
View file

@ -8,24 +8,25 @@
*/
case OP_UCLAMP: {
/* Clamp/wrap the integer on top of the stack to 'bits' width (unsigned) */
/* Saturating clamp to unsigned N-bit range: [0 .. 2^N - 1] */
Value v = pop_value(vm);
int bits = inst.operand;
uint64_t u = 0;
int64_t vi = (v.type == VAL_INT) ? v.i : 0;
if (v.type == VAL_INT) {
u = (uint64_t) v.i;
uint64_t umax;
if (bits <= 0) {
/* treat as clamp to 0..0 */
umax = 0;
} else if (bits >= 64) {
umax = UINT64_MAX;
} else {
/* Non-integers clamp to 0 */
u = 0;
umax = (1ULL << bits) - 1ULL;
}
if (bits > 0 && bits < 64) {
uint64_t mask = (1ULL << bits) - 1ULL;
u &= mask;
} else {
/* bits >= 64 -> no-op; bits <= 0 -> no-op */
}
uint64_t u;
if (vi < 0) u = 0;
else if ((uint64_t)vi > umax) u = umax;
else u = (uint64_t)vi;
push_value(vm, make_int((int64_t)u));
free_value(v);