Просмотр исходного кода

fixed AllFilesMask for Amiga and some comment typos

git-svn-id: trunk@27057 -
Károly Balogh 11 лет назад
Родитель
Сommit
2f02fa6f16
2 измененных файлов с 3 добавлено и 3 удалено
  1. 2 2
      rtl/amiga/sysos.inc
  2. 1 1
      rtl/amiga/system.pp

+ 2 - 2
rtl/amiga/sysos.inc

@@ -130,7 +130,7 @@ begin
       delete(path,tmppos,2);
       tmppos:=pos('./',path);
     end;
-    { convert wildstart to #? }
+    { convert wildstar to #? }
     tmppos:=pos('*',path);
     while tmppos<>0 do begin
       delete(path,tmppos,1);
@@ -167,7 +167,7 @@ begin
       delete(PathConv,tmppos,2);
       tmppos:=pos('./',PathConv);
     end;
-    { convert wildstart to #? }
+    { convert wildstar to #? }
     tmppos:=pos('*',PathConv);
     while tmppos<>0 do begin
       delete(PathConv,tmppos,1);

+ 1 - 1
rtl/amiga/system.pp

@@ -41,7 +41,7 @@ const
   AllowDriveSeparators : set of char = [':'];
   maxExitCode = 255;
   MaxPathLen = 256;
-  AllFilesMask = '*';
+  AllFilesMask = '#?';
 
 const
   UnusedHandle    : LongInt = -1;