Browse Source

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

git-svn-id: trunk@17945 -
michael 14 years ago
parent
commit
1726c0b14d
1 changed files with 2 additions and 0 deletions
  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