flush pipes in g_pst
This commit is contained in:
parent
a108ef2ce7
commit
6033c2e90e
@ -827,7 +827,7 @@ void g_p(B x) { print(x); putchar(10); fflush(stdout); }
|
||||
void g_i(B x) { B r = info_c2(x, m_f64(1), inc(x)); print(r); dec(r); putchar(10); fflush(stdout); }
|
||||
void g_pv(void* x) { print(tag(x,OBJ_TAG)); putchar(10); fflush(stdout); }
|
||||
void g_iv(void* x) { B xo = tag(x, OBJ_TAG); B r = info_c2(xo, m_f64(1), inc(xo)); print(r); dec(r); putchar(10); fflush(stdout); }
|
||||
void g_pst(void) { vm_pstLive(); }
|
||||
void g_pst(void) { vm_pstLive(); fflush(stdout); fflush(stderr); }
|
||||
|
||||
#ifdef DEBUG
|
||||
#ifdef OBJ_COUNTER
|
||||
|
||||
7
src/vm.h
7
src/vm.h
@ -218,9 +218,10 @@ extern Env* envEnd;
|
||||
extern u64 envPrevHeight; // envStart+prevEnvHeight gives envCurr+1 from before the error
|
||||
static inline void pushEnv(Scope* sc, u32* bc) {
|
||||
if (envCurr+1==envEnd) thrM("Stack overflow");
|
||||
envCurr++;
|
||||
envCurr->sc = sc;
|
||||
envCurr->pos = (u64)bc;
|
||||
Env* e = envCurr+1;
|
||||
e->sc = sc;
|
||||
e->pos = (u64)bc;
|
||||
envCurr = e;
|
||||
}
|
||||
static inline void popEnv() {
|
||||
assert(envCurr>=envStart);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user