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/graphics.s
+++ b/libsrc/atari/graphics.s
@@ -10,7 +10,7 @@
        .export __graphics

        .import findfreeiocb
-        .import __do_oserror,__oserror
+        .import __oserror
        .import fddecusage
        .import clriocb
        .import fdtoiocb
@@ -96,8 +96,13 @@ doopen: txa
        stx     __oserror
        rts

-cioerr: jsr     fddecusage      ; decrement usage counter of fd as open failed
-        jmp     __do_oserror
+cioerr: sty     tmp3            ; remember error code
+        lda     #CLOSE
+        sta     ICCOM,x
+        jsr     CIOV            ; close IOCB again since open failed
+        jsr     fddecusage      ; and decrement usage counter of fd
+        lda     tmp3            ; put error code into A
+        jmp     __mappederrno

 .endproc        ; __graphics