nga-c / repl: exit on EOF instead of segfaulting
FossilOrigin-Name: d07ff75ab1d7151dfc9ea6a446374547c8ab7420693073567d7964dac629a349
This commit is contained in:
parent
4933863fb2
commit
2735d07f84
1 changed files with 4 additions and 1 deletions
|
@ -289,12 +289,15 @@ void inst_iq() {
|
||||||
}
|
}
|
||||||
|
|
||||||
void inst_ii() {
|
void inst_ii() {
|
||||||
|
int c;
|
||||||
if (TOS == 0) {
|
if (TOS == 0) {
|
||||||
inst_dr();
|
inst_dr();
|
||||||
putc(stack_pop(), stdout);
|
putc(stack_pop(), stdout);
|
||||||
} else if (TOS == 1) {
|
} else if (TOS == 1) {
|
||||||
|
c = getc(stdin);
|
||||||
|
if (c < 0) exit(0);
|
||||||
inst_dr();
|
inst_dr();
|
||||||
stack_push(getc(stdin));
|
stack_push(c);
|
||||||
} else {
|
} else {
|
||||||
inst_dr();
|
inst_dr();
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue