Merged revisions 8492 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
r8492 | hajny | 2007-09-15 12:09:25 +0000 (Sat, 15 Sep 2007) | 1 line

  + AllFilesMask constant added
........

git-svn-id: branches/fixes_2_2@8535 -

rtl/amiga/system.pp

@@ -38,6 +38,7 @@ const
   PathSeparator = ';';
   maxExitCode = 255;
   MaxPathLen = 256;
+  AllFilesMask = '*';
 
 const
   UnusedHandle    : LongInt = -1;

rtl/atari/system.pas

@@ -45,6 +45,7 @@ const
  FileNameCaseSensitive = false;
  maxExitCode = 255;
  MaxPathLen = 255;
+ AllFilesMask = '*';
 
  sLineBreak: string [1] = LineEnding;
     { used for single computations }

rtl/embedded/system.pp

@@ -39,6 +39,7 @@ const
 { FileNameCaseSensitive is defined below! }
  maxExitCode = 255;
  MaxPathLen = 1024; // BSDs since 1993, Solaris 10, Darwin
+ AllFilesMask = '*';
 
 const
   UnusedHandle    = -1;

rtl/emx/system.pas

@@ -33,6 +33,7 @@ const
 { FileNameCaseSensitive is defined separately below!!! }
  maxExitCode = 255;
  MaxPathLen = 256;
+ AllFilesMask = '*';
 
 type    Tos=(osDOS,osOS2,osDPMI);
 

rtl/gba/system.pp

@@ -40,6 +40,7 @@ const
  FileNameCaseSensitive = false;
  maxExitCode = 255;
  MaxPathLen = 255;
+ AllFilesMask = '*';
 
 
  sLineBreak : string[1] = LineEnding;

rtl/go32v2/system.pp

@@ -74,6 +74,8 @@ var
   envp  : ppchar;
   dos_argv0 : pchar;
 
+  AllFilesMask: string [3];
+
 {$ifndef RTLLITE}
 { System info }
   LFNSupport : boolean;
@@ -646,7 +648,12 @@ Begin
 { Use LFNSupport LFN }
   LFNSupport:=CheckLFN;
   if LFNSupport then
-   FileNameCaseSensitive:=true;
+   begin
+    FileNameCaseSensitive:=true;
+    AllFilesMask := '*';
+   end
+  else
+   AllFilesMask := '*.*';
 { Reset IO Error }
   InOutRes:=0;
 {$ifdef FPC_HAS_FEATURE_THREADING}

rtl/macos/system.pp

@@ -30,6 +30,7 @@ const
   
  maxExitCode = 65535;
  MaxPathLen = 256;
+ AllFilesMask = '*';
   
 const
 { Default filehandles }

rtl/morphos/system.pp

@@ -35,6 +35,7 @@ const
   PathSeparator = ';';
   maxExitCode = 255;
   MaxPathLen = 256;
+  AllFilesMask = '*';
   
 const
   UnusedHandle    : LongInt = -1;

rtl/nds/system.pp

@@ -38,6 +38,7 @@ const
  FileNameCaseSensitive = false;
  maxExitCode = 255;
  MaxPathLen = 255;
+  AllFilesMask = '*';
 
 
  sLineBreak : string[1] = LineEnding;

rtl/netware/system.pp

@@ -42,6 +42,7 @@ const
 { FileNameCaseSensitive is defined separately below!!! }
  maxExitCode = 255;
  MaxPathLen = 256;
+ AllFilesMask = '*';
 
 CONST
   { Default filehandles }

rtl/netwlibc/system.pp

@@ -48,6 +48,7 @@ const
 { FileNameCaseSensitive is defined separately below!!! }
  maxExitCode = $ffff;
  MaxPathLen = 256;
+ AllFilesMask = '*';
 
 CONST
   { Default filehandles }

rtl/os2/system.pas

@@ -50,6 +50,7 @@ const
 { FileNameCaseSensitive is defined separately below!!! }
   MaxExitCode = 65535;
   MaxPathLen = 256;
+  AllFilesMask = '*';
   
 type    Tos=(osDOS,osOS2,osDPMI);
 

rtl/palmos/system.pp

@@ -32,6 +32,7 @@ const
  CtrlZMarksEOF: boolean = false; (* #26 not considered as end of file *)
  maxExitCode = 255; {$ERROR TODO: CONFIRM THIS}
  MaxPathLen = 256;
+ AllFilesMask = '*';
 
     Type
        { type and constant declartions doesn't hurt }

rtl/symbian/system.pp

@@ -38,6 +38,7 @@ const
   { FileNameCaseSensitive is defined separately below }
   maxExitCode = 65535;
   MaxPathLen = 260;
+  AllFilesMask = '*';
 
 type
    PEXCEPTION_FRAME = ^TEXCEPTION_FRAME;

rtl/unix/sysunixh.inc

@@ -37,6 +37,7 @@ const
  {$else}
  MaxPathLen = 1024; // BSDs since 1993, Solaris 10, Darwin
  {$endif}
+ AllFilesMask = '*';
  
 const
   UnusedHandle    = -1;

rtl/watcom/system.pp

@@ -75,6 +75,8 @@ var
   envp  : ppchar;
   dos_argv0 : pchar;
 
+  AllFilesMask: string [3];
+
 {$ifndef RTLLITE}
 { System info }
   LFNSupport : boolean;
@@ -1525,7 +1527,13 @@ Begin
 { Use LFNSupport LFN }
   LFNSupport:=CheckLFN;
   if LFNSupport then
-   FileNameCaseSensitive:=true;
+   begin
+    FileNameCaseSensitive:=true;
+    AllFilesMask := '*';
+   end
+  else
+   AllFilesMask := '*.*';
+
 { Reset IO Error }
   InOutRes:=0;
   ThreadID := 1;

rtl/win32/system.pp

@@ -38,6 +38,7 @@ const
 { FileNameCaseSensitive is defined separately below!!! }
  maxExitCode = 65535;
  MaxPathLen = 260;
+ AllFilesMask = '*';
 
 type
    PEXCEPTION_FRAME = ^TEXCEPTION_FRAME;

rtl/win64/system.pp

@@ -35,6 +35,7 @@ const
 { FileNameCaseSensitive is defined separately below!!! }
  maxExitCode = 65535;
  MaxPathLen = 260;
+ AllFilesMask = '*';
 
 type
    PEXCEPTION_FRAME = ^TEXCEPTION_FRAME;

rtl/wince/system.pp

@@ -39,6 +39,7 @@ const
 { FileNameCaseSensitive is defined separately below!!! }
  maxExitCode = 65535;
  MaxPathLen = 260;
+ AllFilesMask = '*';
 
 const
 { Default filehandles }