paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:46:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Allow .cgi as extension

Browse Source 
git-svn-id: trunk@17946 -
This commit is contained in:
michael 2011-07-06 20:14:30 +00:00
parent 1726c0b14d
commit 31df8d516b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/instantfpc/instantfptools.pas
View File

@ -49,7 +49,7 @@ begin
// avoid name clashes // avoid name clashes
Ext:=lowercase(ExtractFileExt(Filename)); Ext:=lowercase(ExtractFileExt(Filename));
if (Ext<>'') and (Ext<>'.pas') and (Ext<>'.pp') and (Ext<>'.p') if (Ext<>'') and (Ext<>'.pas') and (Ext<>'.pp') and (Ext<>'.p')
and (Ext<>'.lpr') and (Ext<>'.txt') and (Ext<>'.sh') and (Ext<>'.lpr') and (Ext<>'.txt') and (Ext<>'.sh') and (Ext<>'.cgi')
then begin then begin
writeln('invalid source extension ',Ext); writeln('invalid source extension ',Ext);
Halt(1); Halt(1);