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

nga-c: retro binary now exits with return code 1 if file is not found when using -f or -t

Browse source 
FossilOrigin-Name: c4e719b54c9dc8df37e35db5c4fbadb693b2a8fa23ac261182f93bd99f86e8cd
This commit is contained in:
crc 2021-06-28 11:48:13 +00:00
parent 31a6428fb2
commit 8fcf6219ea
2 changed files with 505 additions and 492 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

991
vm/nga-c-native-x86/image.c
View file

File diff suppressed because it is too large Load diff

6
vm/nga-c/retro.c
View file

@ -1446,8 +1446,10 @@ void include_file(char *fname, int run_tests) {
int tokens = 0;
FILE *fp; /* Open the file. If not found, */
fp = fopen(fname, "r"); /* exit. */
if (fp == NULL)
return;
if (fp == NULL) {
printf("File `%s` not found. Exiting.\n", fname);
exit(1);
}
arp = cpu.rp;
aip = cpu.ip;