use ux a tiny bit more, add a PLAINLOOP
This commit is contained in:
parent
c2ca871ce5
commit
875f9185bf
@ -1884,7 +1884,7 @@ B sys_c1(B t, B x) {
|
|||||||
#define REQ_PATH CACHE_OBJ(path, q_N(path0)? bi_N : path_abs(incG(path0)))
|
#define REQ_PATH CACHE_OBJ(path, q_N(path0)? bi_N : path_abs(incG(path0)))
|
||||||
|
|
||||||
M_HARR(r, IA(x))
|
M_HARR(r, IA(x))
|
||||||
for (usz i = 0; i < IA(x); i++) {
|
for (ux i = 0; i < IA(x); i++) {
|
||||||
i32 ci = o2iG(GetU(idxs,i));
|
i32 ci = o2iG(GetU(idxs,i));
|
||||||
if (ci>=IA(curr_vs)) thrF("Unknown system function •%R", IGetU(x,i));
|
if (ci>=IA(curr_vs)) thrF("Unknown system function •%R", IGetU(x,i));
|
||||||
B c = GetU(curr_vs,ci);
|
B c = GetU(curr_vs,ci);
|
||||||
|
|||||||
@ -50,9 +50,9 @@
|
|||||||
#endif
|
#endif
|
||||||
|
|
||||||
#define DECL_BASE(T) \
|
#define DECL_BASE(T) \
|
||||||
static NOINLINE void transpose_##T(void* rv, void* xv, u64 bw, u64 bh, u64 w, u64 h) { \
|
static NOINLINE void transpose_##T(void* rv, void* xv, u64 bw, u64 bh, u64 w, u64 h) { \
|
||||||
T* rp=rv; T* xp=xv; \
|
T* rp=rv; T* xp=xv; \
|
||||||
PLAINLOOP for(usz y=0;y<bh;y++) NOVECTORIZE for(usz x=0;x<bw;x++) rp[x*h+y] = xp[y*w+x]; \
|
PLAINLOOP for(ux y=0;y<bh;y++) NOVECTORIZE for(ux x=0;x<bw;x++) rp[x*h+y] = xp[y*w+x]; \
|
||||||
}
|
}
|
||||||
DECL_BASE(i8) DECL_BASE(i16) DECL_BASE(i32) DECL_BASE(i64)
|
DECL_BASE(i8) DECL_BASE(i16) DECL_BASE(i32) DECL_BASE(i64)
|
||||||
#undef DECL_BASE
|
#undef DECL_BASE
|
||||||
|
|||||||
2
src/vm.c
2
src/vm.c
@ -722,7 +722,7 @@ B evalBC(Body* b, Scope* sc, Block* bl) { // doesn't consume
|
|||||||
Scope* pscs[b->maxPSC]; // -fsanitize=undefined complains when this is 0. ¯\_(ツ)_/¯
|
Scope* pscs[b->maxPSC]; // -fsanitize=undefined complains when this is 0. ¯\_(ツ)_/¯
|
||||||
if (b->maxPSC) {
|
if (b->maxPSC) {
|
||||||
pscs[0] = sc;
|
pscs[0] = sc;
|
||||||
for (i32 i = 1; i < b->maxPSC; i++) pscs[i] = pscs[i-1]->psc;
|
PLAINLOOP for (i32 i = 1; i < b->maxPSC; i++) pscs[i] = pscs[i-1]->psc;
|
||||||
}
|
}
|
||||||
#ifdef GS_REALLOC
|
#ifdef GS_REALLOC
|
||||||
#define POP (*--gStack)
|
#define POP (*--gStack)
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user