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

revert part of the dev-files.c changes

Browse source 
FossilOrigin-Name: 7d6327d42772249a797eb44f0d5fb90217f2e9e7de2530a9d890a0166665520c
This commit is contained in:
crc 2024-04-16 10:26:04 +00:00
parent dfd0a38e53
commit 0bec9c3d98
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
vm/nga-c/dev-files.c
View file

@ -59,9 +59,17 @@ V file_open(NgaState *vm) {
CELL name = stack_pop(vm);
char *modes[] = {"rb", "w", "a", "rb+"};
char *request = string_extract(vm, name);
FILE *file = (slot > 0) ? fopen(request, modes[mode]) : NULL;
vm->OpenFileHandles[slot] = (file != NULL) ? file : 0;
if (slot > 0) {
vm->OpenFileHandles[slot] = fopen(request, modes[mode]);
}
if (vm->OpenFileHandles[slot] == NULL) {
vm->OpenFileHandles[slot] = 0;
slot = 0;
}
stack_push(vm, slot);
// FILE *file = (slot > 0) ? fopen(request, modes[mode]) : NULL;
// vm->OpenFileHandles[slot] = (file != NULL) ? file : 0;
// stack_push(vm, slot);
}
/*---------------------------------------------------------------------