mirror of
https://github.com/a2stuff/prodos-drivers.git
synced 2024-09-28 11:54:35 +00:00
Close open file on more error paths
This commit is contained in:
parent
94fae50608
commit
ea853d7af1
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user