Close open file on more error paths

a2stuff · Dec 7, 2021 · ea853d7 · ea853d7
1 parent 94fae50
commit ea853d7
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/inc/driver_preamble.inc b/inc/driver_preamble.inc
@@ -219,6 +219,7 @@ block_len       = $200
         ;; Read first "block"
         MLI_CALL READ, read_block_params
         bcc     :+
+        MLI_CALL CLOSE, close_params
         jmp     on_error
 
         ;; Get sizes out of header
@@ -339,9 +340,9 @@ not_found:
         sta     close_params::ref_num
 
         MLI_CALL READ, read_params
-        bcs     on_error
-
+        php
         MLI_CALL CLOSE, close_params
+        plp
         bcs     on_error
 
         jmp     SYS_ADDR        ; Invoke loaded SYSTEM file