From 3d92248d550e32c2fa2e9d3cdd68350278c2396e Mon Sep 17 00:00:00 2001
From: mattias <mattias@idefix.freepascal.org>
Date: Wed, 8 Jul 2020 14:11:41 +0000
Subject: [PATCH] rtl: fixed AnsiSameText using toLowerCase to use default
 locale

---
 packages/rtl/sysutils.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/rtl/sysutils.pas b/packages/rtl/sysutils.pas
index cae40b2..c902ce5 100644
--- a/packages/rtl/sysutils.pas
+++ b/packages/rtl/sysutils.pas
@@ -2018,7 +2018,7 @@ end;
 
 function AnsiSameText(const s1, s2: String): Boolean; assembler;
 asm
-  return s1.localeCompare(s2) == 0;
+  return s1.toLowerCase() == s2.toLowerCase();
 end;
 
 function AnsiCompareStr(const s1, s2: String): Integer;