From 1726c0b14d25f0f9025b3016d1be0f2d56a41ebf Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 6 Jul 2011 19:47:47 +0000
Subject: [PATCH] * Force an extension on cache filename, so extension can be
 skipped in script name.

git-svn-id: trunk@17945 -
---
 utils/instantfpc/instantfpc.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/utils/instantfpc/instantfpc.pas b/utils/instantfpc/instantfpc.pas
index 57fdd661e0..2e307a20b8 100644
--- a/utils/instantfpc/instantfpc.pas
+++ b/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