From 71d82ab5d9eb0adf3719955904549ff4ec547a75 Mon Sep 17 00:00:00 2001
From: Colin Leroy-Mira <colin@colino.net>
Date: Fri, 22 Mar 2024 17:19:26 +0100
Subject: [PATCH] Use common naming scheme for tolowerdirect

---
 libsrc/common/strstr.s  | 4 ++--
 libsrc/common/tolower.s | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/libsrc/common/strstr.s b/libsrc/common/strstr.s
index d24f1b0c9..6ab46148c 100644
--- a/libsrc/common/strstr.s
+++ b/libsrc/common/strstr.s
@@ -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
diff --git a/libsrc/common/tolower.s b/libsrc/common/tolower.s
index 4d02e4dfb..9c143f1ce 100644
--- a/libsrc/common/tolower.s
+++ b/libsrc/common/tolower.s
@@ -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?