close IOCB if open failed -- otherwise is is still marked as "in use"

2013-07-09 23:39:42 +02:00
parent 21ef04845e
commit 1bfd39ee20
3 changed files with 17 additions and 5 deletions
--- a/libsrc/atari/posixdirent.s
+++ b/libsrc/atari/posixdirent.s
@@ -63,6 +63,9 @@
 .endproc

 cioerr:         sty     __oserror
+                lda     #CLOSE
+                sta     ICCOM,x
+                jsr     CIOV            ; close IOCB again since open failed
                jmp     return0

 .proc   _readdir