bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

fix errno related underscores in all libsrc/*.s files

Browse Source
This commit is contained in:
mrdudz
2022-08-28 21:52:53 +02:00
parent 5d390489a8
commit 2dabb65ee0
88 changed files with 213 additions and 213 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
libsrc/geos-common/disk/calcblksfree.s
View File

@@ -5,7 +5,7 @@
; int CalcBlksFree (void);
.import __oserror
.import ___oserror
.export _CalcBlksFree
.include "jumptab.inc"
@@ -18,7 +18,7 @@ _CalcBlksFree:
sta r5L
stx r5H
jsr CalcBlksFree
stx __oserror
stx ___oserror
lda r4L
ldx r4H
rts

4
libsrc/geos-common/disk/getptrcurdknm.s
View File

@@ -7,7 +7,7 @@
; (fills curName[17] with current disk's name)
.importzp ptr4, ptr3
.import __oserror
.import ___oserror
.export _GetPtrCurDkNm
.include "jumptab.inc"
@@ -34,5 +34,5 @@ namelp: lda (ptr4),y
bne namelp
fin: lda #0
sta (ptr3),y
stx __oserror
stx ___oserror
rts

4
libsrc/geos-common/disk/setnextfree.s
View File

@@ -5,7 +5,7 @@
; struct tr_se SetNextFree (struct tr_se *startTS);
.import __oserror
.import ___oserror
.import gettrse
.export _SetNextFree
@@ -18,7 +18,7 @@ _SetNextFree:
sta r3L
stx r3H
jsr SetNextFree
stx __oserror
stx ___oserror
lda r3L
ldx r3H
rts

26
libsrc/geos-common/drivers/fio_module.s
View File

@@ -14,7 +14,7 @@ FILEDES = 3 ; first free to use file descriptor
.importzp ptr1, ptr2, ptr3, tmp1
.import addysp, popax, popptr1
.import __oserror
.import ___oserror
.import _FindFile, _ReadByte
.export _open, _close, _read
@@ -65,8 +65,8 @@ _open:
stx f_offset
stx f_offset+1
lda #0 ; clear errors
sta __oserror
jsr __seterrno
sta ___oserror
jsr ___seterrno
lda #FILEDES ; return fd
sta filedesc
rts
@@ -75,14 +75,14 @@ _open:
.byte $2c ; skip
@alreadyopen:
lda #EMFILE ; too many opened files (there can be only one)
jmp __directerrno ; set errno, clear oserror, return -1
jmp ___directerrno ; set errno, clear oserror, return -1
@oserror:
jmp __mappederrno ; set platform error code, return -1
jmp ___mappederrno ; set platform error code, return -1
_close:
lda #0
sta __oserror
jsr __seterrno ; clear errors
sta ___oserror
jsr ___seterrno ; clear errors
lda #0 ; clear fd
sta filedesc
tax
@@ -92,7 +92,7 @@ _read:
; a/x - number of bytes
; popax - buffer ptr
; popax - fd, must be == to the above one
; return -1+__oserror or number of bytes read
; return -1+___oserror or number of bytes read
inx
stx ptr1+1
@@ -111,14 +111,14 @@ _read:
@filenotopen:
lda #EBADF
jmp __directerrno ; Sets _errno, clears _oserror, returns -1
jmp ___directerrno ; Sets _errno, clears __oserror, returns -1
@fileok:
lda #0
sta ptr3
sta ptr3+1 ; put 0 into ptr3 (number of bytes read)
sta __oserror ; clear error flags
jsr __seterrno
sta ___oserror ; clear error flags
jsr ___seterrno
lda f_track ; restore stuff for ReadByte
ldx f_sector
@@ -147,11 +147,11 @@ _read:
bne @L2
inc ptr3+1
@L2: lda __oserror ; was there error ?
@L2: lda ___oserror ; was there error ?
beq @L3
cmp #BFR_OVERFLOW ; EOF?
beq @done ; yes, we're done
jmp __mappederrno ; no, we're screwed
jmp ___mappederrno ; no, we're screwed
@L3: dec ptr1 ; decrement the count
bne @L0

4
libsrc/geos-common/file/get1stdirentry.s
View File

@@ -5,7 +5,7 @@
; struct filehandle* Get1stDirEntry (void);
.import __oserror, return0
.import ___oserror, return0
.export _Get1stDirEntry
.include "diskdrv.inc"
@@ -13,7 +13,7 @@
_Get1stDirEntry:
jsr Get1stDirEntry
stx __oserror
stx ___oserror
txa
bne L1 ; jump if disk error
lda r5L

4
libsrc/geos-common/file/getnxtdirentry.s
View File

@@ -5,7 +5,7 @@
; struct filehandle* GetNxtDirEntry (void);
.import __oserror, return0
.import ___oserror, return0
.export _GetNxtDirEntry
.include "diskdrv.inc"
@@ -13,7 +13,7 @@
_GetNxtDirEntry:
jsr GetNxtDirEntry
stx __oserror
stx ___oserror
txa
bne L1 ; jump if disk error
tya

4
libsrc/geos-common/file/readbyte.s
View File

@@ -5,13 +5,13 @@
; char ReadByte (void);
.import __oserror
.import ___oserror
.export _ReadByte
.include "jumptab.inc"
_ReadByte:
jsr ReadByte
stx __oserror
stx ___oserror
ldx #0
rts

6
libsrc/geos-common/system/oserror.s
View File

@@ -3,16 +3,16 @@
; GEOS port: Maciej 'YTM/Elysium' Witkowiak
; 2.7.2001
;
; int __fastcall__ _osmaperrno (unsigned char oserror);
; int __fastcall__ __osmaperrno (unsigned char oserror);
; /* Map a system specific error into a system independent code */
;
.export __osmaperrno
.export ___osmaperrno
.include "errno.inc"
.include "const.inc"
__osmaperrno:
___osmaperrno:
ldx #ErrTabSize
@L1: cmp ErrTab-2,x ; Search for the error code
beq @L2 ; Jump if found

4
libsrc/geos-common/system/setoserror.s
View File

@@ -5,10 +5,10 @@
;
.export setoserror
.import __oserror
.import ___oserror
setoserror:
stx __oserror
stx ___oserror
txa
ldx #0 ; X is cleared (high byte for promoting char to int)
tay ; Y register is used just to save flags state