squeeze objects

negative effect on performance, but whatever
This commit is contained in:
dzaima 2021-09-25 14:39:48 +03:00
parent a15f66c43b
commit 4bdc1ec3cd
2 changed files with 6 additions and 3 deletions

View File

@ -537,7 +537,7 @@ B chr_squeeze(B x) {
u32* xp = c32any_ptr(x);
bool c8 = true;
for (; i < ia; i++) {
if (xp[i] != (u16)xp[i]) goto r_c16;
if (xp[i] != (u16)xp[i]) goto r_c32;
if (xp[i] != (u8 )xp[i]) c8 = false;
}
if (c8) goto r_c8;
@ -560,7 +560,7 @@ B chr_squeeze(B x) {
}
if (or<=U8_MAX ) r_c8: return FL_SET(toC8Any(x), fl_squoze);
else if (or<=U16_MAX) r_c16: return FL_SET(toC16Any(x), fl_squoze);
else return FL_SET(toC32Any(x), fl_squoze);
else r_c32: return FL_SET(toC32Any(x), fl_squoze);
r_x: return FL_SET(x, fl_squoze);
}
@ -576,6 +576,7 @@ B any_squeeze(B x) {
}
B squeeze_deep(B x) {
if (!isArr(x)) return x;
x = any_squeeze(x);
if (TI(x,elType)!=el_B) return x;
usz ia = a(x)->ia;

View File

@ -402,7 +402,9 @@ NOINLINE Block* compile(B bcq, B objs, B allBlocks, B allBodies, B indices, B to
comp->indices = indices;
comp->src = src;
comp->path = path;
comp->objs = toHArr(objs);
HArr* objArr = comp->objs = cpyHArr(objs);
usz objAm = objArr->ia;
for (usz i = 0; i < objAm; i++) objArr->a[i] = squeeze_deep(objArr->a[i]);
comp->blockAm = 0;
B nameList;
if (q_N(tokenInfo)) {