6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-04-08 19:38:55 +00:00
Code Issues Projects Releases Wiki Activity

lseek: Return EINVAL if new position is less than 0 or greater than 2^24 - 1.

Browse Source 
Also, implemented @greg-king5's suggestion to save a byte on error paths.
This commit is contained in:
Patrick Pelletier 2018-08-20 08:45:40 -07:00 committed by Oliver Schmidt
parent 59a4ab8778
commit b37d0a444c
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
libsrc/apple2/lseek.s
View File

@ -22,6 +22,7 @@ _lseek:
jsr popptr1
jsr popax
sta ptr2
stx ptr2+1
; Get and process fd
jsr popax
@ -78,6 +79,9 @@ seek_common:
tya
adc ptr2
sta mliparam + MLI::MARK::POSITION+2
lda #$00
adc ptr2+1
bne einval ; less than 0 or greater than 2^24 - 1
; Set file pointer
lda #SET_MARK_CALL
@ -103,13 +107,13 @@ seek_common:
einval: lda #EINVAL
; Set __errno
errno: ldx #$FF
stx sreg
errno: jsr __directerrno ; leaves -1 in AX
stx sreg ; extend return value to 32 bits
stx sreg+1
jmp __directerrno
rts
; Set __oserror
oserr: ldx #$FF
stx sreg
oserr: jsr __mappederrno ; leaves -1 in AX
stx sreg ; extend return value to 32 bits
stx sreg+1
jmp __mappederrno
rts