瀏覽代碼

pastojs: fixed compile on Windows

git-svn-id: trunk@38048 -
Mattias Gaertner 7 年之前
父節點
當前提交
ae5e851f7f
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      packages/pastojs/src/pas2jsfilecache.pp

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

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