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

Formatting, minor simplification.

Browse Source
This commit is contained in:
Juha 2021-10-19 23:17:45 +03:00
parent d5596c80a9
commit cd66ac596b
3 changed files with 13 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/lazutils/lazfileutils.pas
View File

@ -1541,20 +1541,11 @@ var
begin
Result:=Option;
if (Result='') or (Result[1] in ['"','''']) then exit;
for i:=1 to length(Result) do begin
for i:=1 to length(Result) do
case Result[i] of
' ','''':
begin
Result:=AnsiQuotedStr(Result,'"');
exit;
end;
'"':
begin
Result:=AnsiQuotedStr(Result,'''');
exit;
end;
' ','''': exit(AnsiQuotedStr(Result,'"'));
'"': exit(AnsiQuotedStr(Result,''''));
end;
end;
end;
{
function AddCmdLineParameter(const CmdLine, AddParameter: string): string;

3
ide/buildmanager.pas
View File

@ -2807,9 +2807,8 @@ procedure TBuildManager.SetBuildTarget(const TargetOS, TargetCPU,
begin
if OverrideLCLWidgetType<>'' then
Result:=OverrideLCLWidgetType
else if FBuildTarget<>nil then begin
else if FBuildTarget<>nil then
Result:=FBuildTarget.CompilerOptions.GetEffectiveLCLWidgetType
end
else
Result:='';
if (Result='') or (SysUtils.CompareText(Result,'default')=0) then

23
ide/compileroptions.pp
View File

@ -475,7 +475,7 @@ type
procedure SetAlternativeCompile(const Command: string; ScanFPCMsgs: boolean); override;
function MakeOptionsString(Flags: TCompilerCmdLineOptions): String; virtual;
function MakeOptionsString(Flags: TCompilerCmdLineOptions): String;
function GetSyntaxOptionsString(Kind: TPascalCompiler): string; virtual;
function CreatePPUFilename(const SourceFileName: string): string; override;
function CreateTargetFilename: string; override;
@ -653,7 +653,7 @@ function InheritedOptionsToCompilerParameters(
Flags: TCompilerCmdLineOptions): string;
function MergeLinkerOptions(const OldOptions, AddOptions: string): string;
function MergeCustomOptions(const OldOptions, AddOptions: string): string;
function ConvertSearchPathToCmdLine(const switch, paths: String): String;
function ConvertSearchPathToCmdLine(const Switch, Paths: String): String;
function ConvertOptionsToCmdLine(const Switch, OptionStr: string): string;
type
@ -901,8 +901,7 @@ begin
Result+=AddOptions;
end;
function ConvertSearchPathToCmdLine(
const Switch, Paths: String): String;
function ConvertSearchPathToCmdLine(const Switch, Paths: String): String;
var
StartPos: Integer;
l: Integer;
@ -912,7 +911,6 @@ begin
RaiseGDBException('ConvertSearchPathToCmdLine no Switch');
Result := '';
if (Paths = '') then exit;
l:=length(Paths);
StartPos:=1;
while StartPos<=l do begin
@ -929,9 +927,9 @@ begin
end;
end;
function ConvertOptionsToCmdLine(const Switch,
OptionStr: string): string;
var Startpos, EndPos: integer;
function ConvertOptionsToCmdLine(const Switch, OptionStr: string): string;
var
Startpos, EndPos: integer;
p: Integer;
begin
Result:='';
@ -1011,8 +1009,7 @@ begin
FTree:=Tree;
end;
function TCompilerMsgIDFlagsEnumerator.
GetEnumerator: TCompilerMsgIDFlagsEnumerator;
function TCompilerMsgIDFlagsEnumerator.GetEnumerator: TCompilerMsgIDFlagsEnumerator;
begin
Result:=Self;
end;
@ -3226,8 +3223,7 @@ begin
Result := switches;
end;
function TBaseCompilerOptions.GetSyntaxOptionsString(Kind: TPascalCompiler
): string;
function TBaseCompilerOptions.GetSyntaxOptionsString(Kind: TPascalCompiler): string;
var
tempsw: String;
begin
@ -3264,8 +3260,7 @@ begin
end;
end;
function TBaseCompilerOptions.CreatePPUFilename(const SourceFileName: string
): string;
function TBaseCompilerOptions.CreatePPUFilename(const SourceFileName: string): string;
var
UnitOutDir: String;
begin