瀏覽代碼

* Force an extension on cache filename, so extension can be skipped in script name.

git-svn-id: trunk@17945 -
michael 14 年之前
父節點
當前提交
1726c0b14d
共有 1 個文件被更改,包括 2 次插入0 次删除
  1. 2 0
      utils/instantfpc/instantfpc.pas

+ 2 - 0
utils/instantfpc/instantfpc.pas

@@ -105,6 +105,8 @@ begin
 
     // check cache
     CacheFilename:=CacheDir+ExtractFileName(Filename);
+    if ExtractFileExt(CacheFileName)='' then
+      CacheFileName:=CacheFileName+'.pas';
     ExeExt:='';
     OutputFilename:=CacheDir+ChangeFileExt(ExtractFileName(Filename),ExeExt);
     if not IsCacheValid(Src,CacheFilename,OutputFilename) then begin