paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-27 14:37:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@17945 -
This commit is contained in:
michael 2011-07-06 19:47:47 +00:00
parent d9c399f6a1
commit 1726c0b14d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/instantfpc/instantfpc.pas
View File

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