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

lazbuild: do not create fpcsrc defines

Browse Source 
git-svn-id: trunk@36279 -
This commit is contained in:
mattias 2012-03-23 16:20:52 +00:00
parent 9398fb166e
commit bd1a1d6b00
2 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/definetemplates.pas
View File

@ -1963,6 +1963,7 @@ begin
Ok:=false; Ok:=false;
try try
if (FPCSrcDir='') or (not DirPathExists(FPCSrcDir)) then begin if (FPCSrcDir='') or (not DirPathExists(FPCSrcDir)) then begin
CTDumpStack;
DebugLn(['CreateFPCSrcTemplate FPCSrcDir does not exist: FPCSrcDir="',FPCSrcDir,'"']); DebugLn(['CreateFPCSrcTemplate FPCSrcDir does not exist: FPCSrcDir="',FPCSrcDir,'"']);
exit; exit;
end; end;

3
ide/buildmanager.pas
View File

@ -724,6 +724,8 @@ begin
AddTemplate(ADefTempl,false, AddTemplate(ADefTempl,false,
'NOTE: Could not create Define Template for Free Pascal Compiler'); 'NOTE: Could not create Define Template for Free Pascal Compiler');
// create template for FPC source directory // create template for FPC source directory
if HasGUI then
begin
ADefTempl:=CreateFPCSourceTemplate(UnitSetCache,nil); ADefTempl:=CreateFPCSourceTemplate(UnitSetCache,nil);
AddTemplate(ADefTempl,false,lisNOTECouldNotCreateDefineTemplateForFreePascal); AddTemplate(ADefTempl,false,lisNOTECouldNotCreateDefineTemplateForFreePascal);
@ -738,6 +740,7 @@ begin
AddTemplate(ADefTempl,true, AddTemplate(ADefTempl,true,
lisNOTECouldNotCreateDefineTemplateForLazarusSources); lisNOTECouldNotCreateDefineTemplateForLazarusSources);
end; end;
end;
CodeToolBoss.DefineTree.ClearCache; CodeToolBoss.DefineTree.ClearCache;