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 casing of "VAr", no code changes

git-svn-id: trunk@48862 -
(cherry picked from commit 893cf511bc5240d230c70c233c4cf768ac308c59)
svenbarth 4 years ago
parent
5a73fb9c78
commit
61f182541c
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      rtl/objpas/sysutils/fina.inc

+ 1 - 1
rtl/objpas/sysutils/fina.inc
View File 

@@ -372,7 +372,7 @@ end;
 
 
 
 Procedure DoDirSeparators (Var FileName : PathStr); {$ifdef FPC_HAS_CPSTRING}rtlproc;{$endif}
 
 Procedure DoDirSeparators (Var FileName : PathStr); {$ifdef FPC_HAS_CPSTRING}rtlproc;{$endif}
 
 
 
-VAr I : longint;
 
+Var I : longint;
 
 
 
 begin
 
 begin
 
   For I:=1 to Length(FileName) do
 
   For I:=1 to Length(FileName) do