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() {
|
||||
int c;
|
||||
if (TOS == 0) {
|
||||
inst_dr();
|
||||
putc(stack_pop(), stdout);
|
||||
} else if (TOS == 1) {
|
||||
c = getc(stdin);
|
||||
if (c < 0) exit(0);
|
||||
inst_dr();
|
||||
stack_push(getc(stdin));
|
||||
stack_push(c);
|
||||
} else {
|
||||
inst_dr();
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue