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

IDE: added ide macro FPCMsgFile

Browse Source 
git-svn-id: trunk@34484 -
This commit is contained in:
mattias 2011-12-29 00:01:54 +00:00
parent da5eb3a03e
commit 365b0f4cbc
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/buildmanager.pas
View File

@ -66,6 +66,8 @@ type
PlatformIndependent: boolean): string; PlatformIndependent: boolean): string;
function MacroFuncEnv(const Param: string; const Data: PtrInt; function MacroFuncEnv(const Param: string; const Data: PtrInt;
var Abort: boolean): string; var Abort: boolean): string;
function MacroFuncFPCMsgFile(const Param: string; const Data: PtrInt;
var Abort: boolean): string;
function MacroFuncFPCVer(const Param: string; const Data: PtrInt; function MacroFuncFPCVer(const Param: string; const Data: PtrInt;
var Abort: boolean): string; var Abort: boolean): string;
function MacroFuncLCLWidgetType(const Param: string; const Data: PtrInt; function MacroFuncLCLWidgetType(const Param: string; const Data: PtrInt;
@ -327,6 +329,8 @@ begin
lisProjectOutDir,@MacroFuncProjOutDir,[])); lisProjectOutDir,@MacroFuncProjOutDir,[]));
GlobalMacroList.Add(TTransferMacro.Create('Env','', GlobalMacroList.Add(TTransferMacro.Create('Env','',
lisEnvironmentVariableNameAsParameter, @MacroFuncEnv, [])); lisEnvironmentVariableNameAsParameter, @MacroFuncEnv, []));
GlobalMacroList.Add(TTransferMacro.Create('FPCMsgFile','',
lisFPCMessageFile, @MacroFuncFPCMsgFile, []));
GlobalMacroList.Add(TTransferMacro.Create('MakeExe','', GlobalMacroList.Add(TTransferMacro.Create('MakeExe','',
lisMakeExe,@MacroFuncMakeExe,[])); lisMakeExe,@MacroFuncMakeExe,[]));
GlobalMacroList.Add(TTransferMacro.Create('MakeLib','', GlobalMacroList.Add(TTransferMacro.Create('MakeLib','',
@ -1672,6 +1676,12 @@ begin
Result:=GetEnvironmentVariableUTF8(Param); Result:=GetEnvironmentVariableUTF8(Param);
end; end;
function TBuildManager.MacroFuncFPCMsgFile(const Param: string;
const Data: PtrInt; var Abort: boolean): string;
begin
Result:=EnvironmentOptions.CompilerMessagesFilename;
end;
function TBuildManager.MacroFuncMake(const Param: string; const Data: PtrInt; function TBuildManager.MacroFuncMake(const Param: string; const Data: PtrInt;
var Abort: boolean): string; var Abort: boolean): string;
begin begin