From 9a7f0e0192e49e24062c0e3bc429bae448d473d4 Mon Sep 17 00:00:00 2001
From: Bakota Peter <bakota@gmail.com>
Date: Mon, 29 Sep 2025 22:21:07 +0200
Subject: [PATCH] Fix for Linux path issue
 https://github.com/tebe6502/Mad-Pascal/issues/215

---
 src/FileIO.pas  | 2 --
 src/Scanner.pas | 4 ++--
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/FileIO.pas b/src/FileIO.pas
index d3492d1bd..3f910fd85 100644
--- a/src/FileIO.pas
+++ b/src/FileIO.pas
@@ -711,8 +711,6 @@ class function TFileSystem.NormalizePath(filePath: TFilePath): TFilePath;
    begin
     Result := StringReplace(filePath, '\', '/', [rfReplaceAll]);
    end;
-
-  Result := LowerCase(Result);
   {$ENDIF}
 
   {$IFDEF SIMULATED_FILE_IO}
diff --git a/src/Scanner.pas b/src/Scanner.pas
index e11478a80..bb23141dd 100644
--- a/src/Scanner.pas
+++ b/src/Scanner.pas
@@ -266,7 +266,7 @@ procedure TScanner.TokenizeProgram(programUnit: TSourceFile; UsesOn: Boolean);
           for k := 1 to TokenAt(i).StrLength do
             nam := nam + chr(StaticStringData[TokenAt(i).StrAddress - CODEORIGIN + k]);
 
-          nam := FindFile(nam, 'unit');
+          nam := FindFile(LowerCase(nam), 'unit');
 
           Dec(i, 2);
 
@@ -276,7 +276,7 @@ procedure TScanner.TokenizeProgram(programUnit: TSourceFile; UsesOn: Boolean);
 
           CheckTok(i, TTokenKind.IDENTTOK);
 
-          nam := FindFile(TokenAt(i).Name + '.pas', 'unit');
+          nam := FindFile(LowerCase(TokenAt(i).Name) + '.pas', 'unit');
 
         end;