Fix bug when starting without a filename argument

venomix666 · venomix666 · commit 0e2ec33b0525 · 2025-08-08T14:10:38.000+02:00
diff --git a/third_party/lbforth/lbforth.c b/third_party/lbforth/lbforth.c
@@ -93,7 +93,7 @@ static FCB startupFile;
 static uint8_t fileBuffer[128];
 static char* cmdptr = cpm_cmdline;
 static bool fileFlag = false;
-static bool fileDoneFlag = false;
+static bool fileDoneFlag = true;
 char* filebuffer_pos;
 
 /* A basic setup for defining builtins. This Forth uses impossibly low
@@ -1109,6 +1109,7 @@ int main()
             tell("Error opening file\r\n");
             return 1;
         }
+        fileDoneFlag = false;
         fillFileBuffer();
     }
 

Original file line number	Diff line number	Diff line change
`@@ -93,7 +93,7 @@ static FCB startupFile;`
`93`	`93`	`static uint8_t fileBuffer[128];`
`94`	`94`	`static char* cmdptr = cpm_cmdline;`
`95`	`95`	`static bool fileFlag = false;`
`96`		`-static bool fileDoneFlag = false;`
	`96`	`+static bool fileDoneFlag = true;`
`97`	`97`	`char* filebuffer_pos;`
`98`	`98`
`99`	`99`	`/* A basic setup for defining builtins. This Forth uses impossibly low`
`@@ -1109,6 +1109,7 @@ int main()`
`1109`	`1109`	`tell("Error opening file\r\n");`
`1110`	`1110`	`return 1;`
`1111`	`1111`	`}`
	`1112`	`+ fileDoneFlag = false;`
`1112`	`1113`	`fillFileBuffer();`
`1113`	`1114`	`}`
`1114`	`1115`