fix dirent string compare
This commit is contained in:
parent
6e51766769
commit
20f5a81517
|
@ -808,7 +808,7 @@ strcmp procname
|
|||
|
||||
; check if the name is even possible...
|
||||
|
||||
with dp
|
||||
with dp, data
|
||||
|
||||
import target:GSString32
|
||||
|
||||
|
@ -824,8 +824,9 @@ strcmp procname
|
|||
adc io_buffer+2
|
||||
sta ptr+2
|
||||
|
||||
ldx target.length
|
||||
ldy #0
|
||||
ldx target.length
|
||||
|
||||
short m
|
||||
|
||||
; y = offset
|
||||
|
@ -837,19 +838,19 @@ loop
|
|||
bne no8
|
||||
iny
|
||||
dex
|
||||
bne loop
|
||||
bpl loop
|
||||
|
||||
eos
|
||||
long m
|
||||
; if y == target.length, this is a match.
|
||||
cpy target.length
|
||||
bne no
|
||||
|
||||
yes
|
||||
;~DebugSetTrace #0
|
||||
clc
|
||||
rts
|
||||
|
||||
eos
|
||||
long m
|
||||
; end of string. if x = 1, it's a match!
|
||||
dex
|
||||
beq yes
|
||||
|
||||
|
||||
no8
|
||||
long m
|
||||
|
|
Loading…
Reference in New Issue