Apple-2-SW/prodos-drivers
1
0
Fork 0
mirror of https://github.com/a2stuff/prodos-drivers.git synced 2024-06-07 20:29:33 +00:00
Code Issues Projects Releases Wiki Activity

Close open file on more error paths

Browse Source
This commit is contained in:
Joshua Bell 2021-12-06 20:47:15 -08:00
parent 94fae50608
commit ea853d7af1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
inc/driver_preamble.inc
View File

@ -219,6 +219,7 @@ block_len = $200
;; Read first "block" ;; Read first "block"
MLI_CALL READ, read_block_params MLI_CALL READ, read_block_params
bcc :+ bcc :+
MLI_CALL CLOSE, close_params
jmp on_error jmp on_error
;; Get sizes out of header ;; Get sizes out of header
@ -339,9 +340,9 @@ not_found:
sta close_params::ref_num sta close_params::ref_num
MLI_CALL READ, read_params MLI_CALL READ, read_params
bcs on_error php
MLI_CALL CLOSE, close_params MLI_CALL CLOSE, close_params
plp
bcs on_error bcs on_error
jmp SYS_ADDR ; Invoke loaded SYSTEM file jmp SYS_ADDR ; Invoke loaded SYSTEM file