paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 21:28:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed AllFilesMask for Amiga and some comment typos

Browse Source 
git-svn-id: trunk@27057 -
This commit is contained in:
Károly Balogh 2014-03-09 17:47:21 +00:00
parent e22228ca27
commit 2f02fa6f16
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/amiga/sysos.inc
View File

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

2
rtl/amiga/system.pp
View File

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