Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Fix compilation

Michaël Van Canneyt 1 year ago
parent
6689e2fe21
commit
37f145707a
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      packages/vcl-compat/src/system.ioutils.pp

+ 1 - 1
packages/vcl-compat/src/system.ioutils.pp
View File 

@@ -2210,7 +2210,7 @@ var
 
 begin
 
 begin
 
   Result:=false;
 
   Result:=false;
 
   CurSrcDir:=ExpandFileName(DirectoryName);
 
   CurSrcDir:=ExpandFileName(DirectoryName);
 
-  CurSrcDir:=IncludTrailingPathDelimiter(CurSrcDir);
 
+  CurSrcDir:=IncludeTrailingPathDelimiter(CurSrcDir);
 
   if FindFirst(CurSrcDir+AllFilesMask,DeleteMask,FileInfo)=0 then
 
   if FindFirst(CurSrcDir+AllFilesMask,DeleteMask,FileInfo)=0 then
 
     Try
 
     Try
 
       repeat
 
       repeat