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

codetools: fixed compile

Browse Source
This commit is contained in:
mattias 2023-07-26 09:12:53 +01:00
parent a4aa3e0a56
commit 1831cd1ad6
3 changed files with 12 additions and 1 deletions

10
components/codetools/definetemplates.pas
View File

@ -1078,6 +1078,9 @@ type
function GetPCVersion(const CompilerFilename, TargetOS, TargetCPU: string;
UseCompiledVersionAsDefault: boolean;
out Kind: TPascalCompiler): string;
function FindUnitSet(const CompilerFilename, TargetOS, TargetCPU,
Options, FPCSrcDir: string;
CreateIfNotExists: boolean): TFPCUnitSetCache;
function FindUnitSet(const CompilerFilename, TargetOS, TargetCPU, SubTarget,
Options, FPCSrcDir: string;
CreateIfNotExists: boolean): TFPCUnitSetCache;
@ -11474,6 +11477,13 @@ begin
Result:=CfgCache.FullVersion;
end;
function TCompilerDefinesCache.FindUnitSet(const CompilerFilename, TargetOS,
TargetCPU, Options, FPCSrcDir: string; CreateIfNotExists: boolean
): TFPCUnitSetCache;
begin
Result:=FindUnitSet(CompilerFilename,TargetOS,TargetCPU,'',Options,FPCSrcDir,CreateIfNotExists);
end;
function TCompilerDefinesCache.FindUnitSet(const CompilerFilename, TargetOS,
TargetCPU, SubTarget, Options, FPCSrcDir: string; CreateIfNotExists: boolean
): TFPCUnitSetCache;

1
components/codetools/examples/.gitignore vendored
View File

@ -1 +1,2 @@
sourcecloser
testfpcsrcunitrules

2
components/codetools/examples/testfpcsrcunitrules.lpr
View File

@ -214,7 +214,7 @@ begin
writeln('RealCompiler=',ConfigCache.RealCompiler);
writeln('RealTargetOS=',ConfigCache.RealTargetOS);
writeln('RealTargetCPU=',ConfigCache.RealTargetCPU);
writeln('RealCompilerInPATH=',ConfigCache.RealCompilerInPath);
writeln('RealCompilerInPATH=',ConfigCache.RealTargetCPUCompiler);
if ConfigCache.ConfigFiles<>nil then begin
for i:=0 to ConfigCache.ConfigFiles.Count-1 do begin
CfgFile:=ConfigCache.ConfigFiles[i];