print fallback stacktrace code to stderr
This commit is contained in:
parent
73ff6fe722
commit
86fc9041fa
2
src/vm.c
2
src/vm.c
@ -1219,7 +1219,7 @@ native_print:
|
||||
usz srcL = a(src)->ia;
|
||||
SGetU(src)
|
||||
usz srcS = cs; while (srcS>0 && o2cu(GetU(src,srcS-1))!='\n') srcS--;
|
||||
usz srcE = srcS; while (srcE<srcL) { u32 chr = o2cu(GetU(src, srcE)); if(chr=='\n')break; printUTF8(chr); srcE++; }
|
||||
usz srcE = srcS; while (srcE<srcL) { u32 chr = o2cu(GetU(src, srcE)); if(chr=='\n')break; fprintUTF8(stderr, chr); srcE++; }
|
||||
if (ce>srcE) ce = srcE;
|
||||
cs-= srcS; ce-= srcS;
|
||||
fputc('\n', stderr);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user