paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 16:09:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed non unix compilation

Browse Source 
git-svn-id: trunk@16127 -
This commit is contained in:
mattias 2008-08-18 18:33:02 +00:00
parent e711e12a9a
commit dcc2d5af64
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/include/unix/lazbaseconf.inc
View File

@ -178,12 +178,6 @@ begin
if Find('iexplore.exe',Browser) then exit; if Find('iexplore.exe',Browser) then exit;
end; end;
procedure LazConfSubstituteMacros(var s: string);
begin
if Assigned(LazConfMacroFunc) then
LazConfMacroFunc(s);
end;
{--------------------------------------------------------------------------- {---------------------------------------------------------------------------
procedure InternalInit; procedure InternalInit;
---------------------------------------------------------------------------} ---------------------------------------------------------------------------}

6
ide/lazconf.pp
View File

@ -136,6 +136,12 @@ implementation
{$I lazconf.inc} {$I lazconf.inc}
procedure LazConfSubstituteMacros(var s: string);
begin
if Assigned(LazConfMacroFunc) then
LazConfMacroFunc(s);
end;
{--------------------------------------------------------------------------- {---------------------------------------------------------------------------
function CreateCompilerTestPascalFilename: string; function CreateCompilerTestPascalFilename: string;
---------------------------------------------------------------------------} ---------------------------------------------------------------------------}