Apple-2gs-SW/ORCALib
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCALib.git synced 2025-07-18 05:24:05 +00:00
Code Issues Projects Releases Wiki Activity

Make strtol/strtoul return LONG_MIN/LONG_MAX/ULONG_MAX for out-of-range values.

Browse Source 
This fixes #10.

There are still issues with the end pointer value generated in error cases.
This commit is contained in:
Stephen Heumann
2018-03-13 22:11:40 -05:00
parent 7abdfc9beb
commit 6e97906678
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
stdlib.asm
View File

@@ -748,6 +748,14 @@ cn3 ph4 str save the starting string
; ;
lda #ERANGE errno = ERANGE lda #ERANGE errno = ERANGE
sta >errno sta >errno
ldx #$7FFF return value = LONG_MAX
ldy #$FFFF
lda negative if negative then
beq ov1
inx return value = LONG_MIN
iny
ov1 sty val
stx val+2
lda ptr if ptr <> NULL then lda ptr if ptr <> NULL then
ora ptr+2 ora ptr+2
bne rt1 bne rt1
@@ -920,7 +928,9 @@ cn5 lda foundOne if no digits were found, flag the error
returnERANGE anop returnERANGE anop
lda #ERANGE errno = ERANGE lda #ERANGE errno = ERANGE
sta >errno sta >errno
bra rt2 skip setting ptr ldx #$FFFF return value = ULONG_MAX
txy
bra rt3 skip setting ptr
; ;
; return the results ; return the results
; ;
@@ -934,7 +944,7 @@ rt1 lda ptr if ptr is non-null then
sta [ptr],Y sta [ptr],Y
rt2 ldx val+2 get the value rt2 ldx val+2 get the value
ldy val ldy val
lda rtl fix the stack rt3 lda rtl fix the stack
sta base-1 sta base-1
lda rtl+1 lda rtl+1
sta base sta base