crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

nga-c / repl: exit on EOF instead of segfaulting

Browse source 
FossilOrigin-Name: d07ff75ab1d7151dfc9ea6a446374547c8ab7420693073567d7964dac629a349
This commit is contained in:
crc 2021-06-24 12:07:27 +00:00
parent 4933863fb2
commit 2735d07f84
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
vm/nga-c/repl.c
View file

@ -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();
}