Fix tight loop when attempting to delete OS R/O file.

pzembrod · May 3, 2024 · 596adf9 · 596adf9
1 parent 25da8cb
commit 596adf9
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/RunCPM/disk.h b/RunCPM/disk.h
@@ -410,8 +410,12 @@ uint8 _DeleteFile(uint16 fcbaddr) {
 				}
 #endif
 				_FCBtoHostname(tmpFCB, &filename[0]);
-				if (_sys_deletefile(&filename[0]))
+				if (_sys_deletefile(&filename[0])) {
 					deleted = 0x00;
+				} else {
+					_error(errWRITEPROT);
+					break;
+				}
 				result = _SearchFirst(fcbaddr, FALSE);	// FALSE = Does not create a fake dir entry when finding the file
 			}
 		} else {