6502
/
cc65
mirror of https://github.com/cc65/cc65.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Use common naming scheme for tolowerdirect

This commit is contained in:
Colin Leroy-Mira 2024-03-22 17:19:26 +01:00
parent 0c681b42ef
commit 71d82ab5d9
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libsrc/common/strstr.s
View File

@ -5,11 +5,11 @@
;
.export _strstr, _strcasestr
.import popptr1, return0, tolower_a
.import popptr1, return0, tolowerdirect
.importzp ptr1, ptr2, ptr3, ptr4, tmp1, tmp2
maybe_lower: ; Lowercase char in A if needed
jmp tolower_a ; patched on entry with either JMP or RTS
jmp tolowerdirect ; patched on entry with either JMP or RTS
_strstr:
ldy #$60 ; RTS

4
libsrc/common/tolower.s
View File

@ -10,14 +10,14 @@
; int tolower (int c);
;
.export _tolower, tolower_a
.export _tolower, tolowerdirect
.include "ctype.inc"
.import ctypemaskdirect
_tolower:
cpx #$00 ; out of range?
bne out ; if so, return the argument unchanged
tolower_a:
tolowerdirect:
pha ; save char
jsr ctypemaskdirect ; get character classification
and #CT_UPPER ; upper case char?