2
0
Эх сурвалжийг харах

pastojs: fixed compile on Windows

git-svn-id: trunk@38048 -
Mattias Gaertner 7 жил өмнө
parent
commit
ae5e851f7f

+ 2 - 2
packages/pastojs/src/pas2jsfilecache.pp

@@ -1391,10 +1391,10 @@ begin
 end;
 end;
 
 
 function TPas2jsFileResolver.SearchLowUpCase(var Filename: string): boolean;
 function TPas2jsFileResolver.SearchLowUpCase(var Filename: string): boolean;
-{$IFNDEF CaseInsensitiveFilenames}
 var
 var
-  CasedFilename: String;
   i: Integer;
   i: Integer;
+{$IFNDEF CaseInsensitiveFilenames}
+  CasedFilename: String;
 {$ENDIF}
 {$ENDIF}
 begin
 begin
   if StrictFileCase or Cache.SearchLikeFPC then
   if StrictFileCase or Cache.SearchLikeFPC then