mirror of
https://github.com/cc65/cc65.git
synced 2024-12-24 11:31:31 +00:00
Make use of the new common __directerrno and __mappederrno function.
git-svn-id: svn://svn.cc65.org/cc65/trunk@4720 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
8806c31e4a
commit
155c5629a9
@ -72,7 +72,6 @@ S_OBJS= _scrsize.o \
|
||||
dosdetect.o \
|
||||
drives.o \
|
||||
filedes.o \
|
||||
fileerr.o \
|
||||
filename.o \
|
||||
get_ostype.o \
|
||||
gotoxy.o \
|
||||
|
@ -7,9 +7,9 @@
|
||||
.export _close
|
||||
|
||||
.import closedirect, freebuffer
|
||||
.import errnoexit, oserrexit
|
||||
.import return0
|
||||
|
||||
.include "errno.inc"
|
||||
.include "filedes.inc"
|
||||
|
||||
_close:
|
||||
@ -34,8 +34,8 @@ zerofd: lda #$00
|
||||
; Return success
|
||||
jmp return0
|
||||
|
||||
; Return errno
|
||||
errno: jmp errnoexit
|
||||
; Set __errno
|
||||
errno: jmp __directerrno
|
||||
|
||||
; Return oserror
|
||||
oserr: jmp oserrexit
|
||||
; Set __oserror
|
||||
oserr: jmp __mappederrno
|
||||
|
@ -1,18 +0,0 @@
|
||||
;
|
||||
; Oliver Schmidt, 15.01.2004
|
||||
;
|
||||
; Error handling for ProDOS 8 file I/O
|
||||
;
|
||||
|
||||
.export errnoexit, oserrexit
|
||||
|
||||
.include "errno.inc"
|
||||
|
||||
errnoexit:
|
||||
jsr __seterrno ; Returns with A = 0
|
||||
|
||||
oserrexit:
|
||||
sta __oserror
|
||||
lda #$FF
|
||||
tax
|
||||
rts
|
@ -11,7 +11,6 @@
|
||||
.destructor closeallfiles, 17
|
||||
|
||||
.import pushname, popname
|
||||
.import errnoexit, oserrexit
|
||||
.import iobuf_alloc, iobuf_free
|
||||
.import addysp, incsp4, incaxy, pushax, popax
|
||||
|
||||
@ -54,8 +53,8 @@ _open:
|
||||
; Cleanup stack
|
||||
errno: jsr incsp4 ; Preserves A
|
||||
|
||||
; Return errno
|
||||
jmp errnoexit
|
||||
; Set __errno
|
||||
jmp __directerrno
|
||||
|
||||
; Save fdtab slot
|
||||
found: tya
|
||||
@ -138,8 +137,8 @@ oserr1: ldy tmp2 ; Restore fdtab slot
|
||||
jsr freebuffer
|
||||
pla ; Restore oserror code
|
||||
|
||||
; Return oserror
|
||||
jmp oserrexit
|
||||
; Set __oserror
|
||||
jmp __mappederrno
|
||||
|
||||
open: ldy tmp2 ; Restore fdtab slot
|
||||
|
||||
|
@ -7,7 +7,6 @@
|
||||
.constructor initprompt
|
||||
.export _read
|
||||
.import rwprolog, rwcommon
|
||||
.import errnoexit
|
||||
.import RDKEY, COUT
|
||||
|
||||
.include "zeropage.inc"
|
||||
@ -101,5 +100,5 @@ check: lda ptr3
|
||||
; Load errno code
|
||||
einval: lda #EINVAL
|
||||
|
||||
; Return errno
|
||||
errno: jmp errnoexit
|
||||
; Set __errno
|
||||
errno: jmp __directerrno
|
||||
|
@ -5,7 +5,7 @@
|
||||
;
|
||||
|
||||
.export _rootdir
|
||||
.import popax, oserrexit
|
||||
.import popax
|
||||
|
||||
.include "zeropage.inc"
|
||||
.include "errno.inc"
|
||||
@ -50,5 +50,5 @@ _rootdir:
|
||||
tax
|
||||
rts
|
||||
|
||||
; Return oserror
|
||||
oserr: jmp oserrexit
|
||||
; Set __oserror
|
||||
oserr: jmp __mappederrno
|
||||
|
@ -3,10 +3,10 @@
|
||||
;
|
||||
|
||||
.export rwprolog, rwcommon, rwepilog
|
||||
.import oserrexit
|
||||
.import popax
|
||||
|
||||
.include "zeropage.inc"
|
||||
.include "errno.inc"
|
||||
.include "fcntl.inc"
|
||||
.include "mli.inc"
|
||||
.include "filedes.inc"
|
||||
@ -55,5 +55,5 @@ rwepilog:
|
||||
ldx mliparam + MLI::RW::TRANS_COUNT+1
|
||||
rts
|
||||
|
||||
; Return oserror
|
||||
oserr: jmp oserrexit
|
||||
; Set __oserror
|
||||
oserr: jmp __mappederrno
|
||||
|
@ -6,7 +6,6 @@
|
||||
|
||||
.export _write
|
||||
.import rwprolog, rwcommon, rwepilog
|
||||
.import errnoexit, oserrexit
|
||||
.import COUT
|
||||
|
||||
.include "zeropage.inc"
|
||||
@ -106,9 +105,9 @@ done: jmp rwepilog
|
||||
; Load errno code
|
||||
einval: lda #EINVAL
|
||||
|
||||
; Return errno
|
||||
errno: jmp errnoexit
|
||||
; Set __errno
|
||||
errno: jmp __directerrno
|
||||
|
||||
; Return oserror
|
||||
oserr: jmp oserrexit
|
||||
; Set __oserror
|
||||
oserr: jmp __mappederrno
|
||||
|
||||
|
@ -75,7 +75,6 @@ S_OBJS= _scrsize.o \
|
||||
dosdetect.o \
|
||||
drives.o \
|
||||
filedes.o \
|
||||
fileerr.o \
|
||||
filename.o \
|
||||
get_ostype.o \
|
||||
gotoxy.o \
|
||||
|
Loading…
Reference in New Issue
Block a user