paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 18:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed compilation with fpc 2.2.0

Browse Source 
git-svn-id: trunk@15292 -
This commit is contained in:
vincents 2008-06-02 18:28:38 +00:00
parent 6aa7877586
commit ad99296adb
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/buildlazdialog.pas
View File

@ -556,8 +556,13 @@ begin
// On platforms other than windows, ExtractShortPathName is implemented // On platforms other than windows, ExtractShortPathName is implemented
// too and simply returns the passed file name, so there is no need // too and simply returns the passed file name, so there is no need
// for $IFDEF. // for $IFDEF.
{$IFNDEF VER2_2_0}
// ExtractShortPathName is only available in fpc 2.2.1
// fortunately, we don't support a PCP with space on windows for
// fpc 2.2.0
if pos(' ',MakeIDECfgFilename)>0 then if pos(' ',MakeIDECfgFilename)>0 then
MakeIDECfgFilename:=ExtractShortPathName(MakeIDECfgFilename); MakeIDECfgFilename:=ExtractShortPathName(MakeIDECfgFilename);
{$ENDIF}
ExtraOptions:='@'+MakeIDECfgFilename; ExtraOptions:='@'+MakeIDECfgFilename;
exit; exit;
end; end;