From 27403b542bbae9b54ca9721f72b3c05b0c15c0e5 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sun, 15 Apr 2012 21:21:53 +0000
Subject: [PATCH]   + FileNameCasePreserving added - see #18066 in Mantis

git-svn-id: trunk@20896 -
---
 rtl/amiga/system.pp   | 1 +
 rtl/atari/system.pas  | 1 +
 rtl/emx/sysdir.inc    | 2 +-
 rtl/go32v2/sysdir.inc | 2 +-
 rtl/macos/system.pp   | 1 +
 rtl/os2/sysdir.inc    | 2 +-
 rtl/palmos/system.pp  | 1 +
 rtl/watcom/sysdir.inc | 2 +-
 rtl/win/sysdir.inc    | 2 +-
 9 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/rtl/amiga/system.pp b/rtl/amiga/system.pp
index b8d1580d09..0f478c98b7 100644
--- a/rtl/amiga/system.pp
+++ b/rtl/amiga/system.pp
@@ -50,6 +50,7 @@ const
   StdErrorHandle  : LongInt = 0;
 
   FileNameCaseSensitive : Boolean = False;
+  FileNameCasePreserving: boolean = false;
   CtrlZMarksEOF: boolean = false; (* #26 not considered as end of file *)
 
   sLineBreak = LineEnding;
diff --git a/rtl/atari/system.pas b/rtl/atari/system.pas
index ff5449731e..4acbfb8095 100644
--- a/rtl/atari/system.pas
+++ b/rtl/atari/system.pas
@@ -46,6 +46,7 @@ const
  AllowDirectorySeparators : set of char = ['\','/'];
  AllowDriveSeparators : set of char = [':'];
  FileNameCaseSensitive = false;
+ FileNameCasePreserving = false;
  maxExitCode = 255;
  MaxPathLen = 255;
  AllFilesMask = '*';
diff --git a/rtl/emx/sysdir.inc b/rtl/emx/sysdir.inc
index b1db1de262..b8b401b397 100644
--- a/rtl/emx/sysdir.inc
+++ b/rtl/emx/sysdir.inc
@@ -230,7 +230,7 @@ begin
             end ['eax'];
             dir[1]:=char(i);
         end;
-    if not (FileNameCaseSensitive) then dir:=upcase(dir);
+    if not (FileNameCasePreserving) then dir:=upcase(dir);
 end;
 
 
diff --git a/rtl/go32v2/sysdir.inc b/rtl/go32v2/sysdir.inc
index eb366417ac..f19b8fe395 100644
--- a/rtl/go32v2/sysdir.inc
+++ b/rtl/go32v2/sysdir.inc
@@ -120,7 +120,7 @@ begin
   dir[3]:='\';
   dir[0]:=char(i+3);
 { upcase the string }
-  if not FileNameCaseSensitive then
+  if not FileNameCasePreserving then
    dir:=upcase(dir);
   if drivenr<>0 then   { Drive was supplied. We know it }
    dir[1]:=char(65+drivenr-1)
diff --git a/rtl/macos/system.pp b/rtl/macos/system.pp
index c225724e44..780dd4c08b 100644
--- a/rtl/macos/system.pp
+++ b/rtl/macos/system.pp
@@ -29,6 +29,7 @@ const
  AllowDirectorySeparators : set of char = [':'];
  AllowDriveSeparators : set of char = [':'];
  FileNameCaseSensitive = false;
+ FileNameCasePreserving = true;
  CtrlZMarksEOF: boolean = false; (* #26 not considered as end of file *)
 
  maxExitCode = 65535;
diff --git a/rtl/os2/sysdir.inc b/rtl/os2/sysdir.inc
index 1476f17083..2163b82be0 100644
--- a/rtl/os2/sysdir.inc
+++ b/rtl/os2/sysdir.inc
@@ -130,7 +130,7 @@ begin
             DosQueryCurrentDisk(l, l2);
             dir[1]:=chr(64+l);
         end;
-    if not (FileNameCaseSensitive) then dir:=upcase(dir);
+    if not (FileNameCasePreserving) then dir:=upcase(dir);
 end;
 
 
diff --git a/rtl/palmos/system.pp b/rtl/palmos/system.pp
index 29be3331aa..9761ee2b60 100644
--- a/rtl/palmos/system.pp
+++ b/rtl/palmos/system.pp
@@ -32,6 +32,7 @@ const
  AllowDirectorySeparators : set of char = ['\','/'];
  AllowDriveSeparators : set of char = [':'];
  FileNameCaseSensitive = false;
+ FileNameCasePreserving = true;
  CtrlZMarksEOF: boolean = false; (* #26 not considered as end of file *)
  maxExitCode = 255; {$ERROR TODO: CONFIRM THIS}
  MaxPathLen = 256;
diff --git a/rtl/watcom/sysdir.inc b/rtl/watcom/sysdir.inc
index 612a1d7cef..46f4fcc9c4 100644
--- a/rtl/watcom/sysdir.inc
+++ b/rtl/watcom/sysdir.inc
@@ -111,7 +111,7 @@ begin
   dir[3]:='\';
   dir[0]:=char(i+3);
 { upcase the string }
-  if not FileNameCaseSensitive then
+  if not FileNameCasePreserving then
    dir:=upcase(dir);
   if drivenr<>0 then   { Drive was supplied. We know it }
    dir[1]:=char(65+drivenr-1)
diff --git a/rtl/win/sysdir.inc b/rtl/win/sysdir.inc
index 6c59a290f6..4cf0a826d0 100644
--- a/rtl/win/sysdir.inc
+++ b/rtl/win/sysdir.inc
@@ -102,7 +102,7 @@ begin
   if not defaultdrive then
    SetCurrentDirectory(@SaveBuf);
   dir:=strpas(DirBuf);
-  if not FileNameCaseSensitive then
+  if not FileNameCasePreserving then
    dir:=upcase(dir);
 {$else WINCE}
   Dir:='\';