paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 20:59:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Rename the new project option -Sy from PointerTypeCheck to TypedAddress which is more descriptive.

Browse Source
This commit is contained in:
Juha 2023-05-21 21:56:41 +03:00
parent f18e10ec0e
commit 106dd880f6
3 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/buildintf/compoptsintf.pas
View File

@ -195,7 +195,7 @@ type
procedure SetSmartLinkUnit(const AValue: Boolean);
procedure SetStackChecks(const AValue: Boolean);
procedure SetStackSize(const AValue: Integer);
procedure SetPointerTypeCheck(const AValue: Boolean);
procedure SetTypedAddress(const AValue: Boolean);
procedure SetStopAfterErrCount(const AValue: integer);
procedure SetStripSymbols(const AValue: Boolean);
procedure SetSyntaxMode(const AValue: string);
@ -232,7 +232,7 @@ type
fCPPInline: Boolean;
fCMacros: Boolean;
fInitConst: Boolean;
fPointerTypeCheck: Boolean;
fTypedAddress: Boolean;
// Code generation:
fSmartLinkUnit: Boolean;
fRelocatableUnit: Boolean;
@ -397,7 +397,7 @@ type
property CPPInline: Boolean read fCPPInline write SetCPPInline;
property CStyleMacros: Boolean read fCMacros write SetCMacros;
property InitConstructor: Boolean read fInitConst write SetInitConst;
property PointerTypeCheck: Boolean read fPointerTypeCheck write SetPointerTypeCheck;
property TypedAddress: Boolean read fTypedAddress write SetTypedAddress;
// code generation:
property IOChecks: Boolean read fIOChecks write SetIOChecks;
@ -844,10 +844,10 @@ begin
IncreaseChangeStamp;
end;
procedure TLazCompilerOptions.SetPointerTypeCheck(const AValue: Boolean);
procedure TLazCompilerOptions.SetTypedAddress(const AValue: Boolean);
begin
if fPointerTypeCheck=AValue then exit;
fPointerTypeCheck:=AValue;
if fTypedAddress=AValue then exit;
fTypedAddress:=AValue;
IncreaseChangeStamp;
end;

12
ide/compileroptions.pp
View File

@ -1596,7 +1596,7 @@ begin
CPPInline := aXMLConfig.GetValue(p+'CPPInline/Value', true);
CStyleMacros := aXMLConfig.GetValue(p+'CStyleMacros/Value', false);
InitConstructor := aXMLConfig.GetValue(p+'InitConstructor/Value', false);
PointerTypeCheck := aXMLConfig.GetValue(p+'PointerTypeCheck/Value', false);
TypedAddress := aXMLConfig.GetValue(p+'TypedAddress/Value', false);
{ CodeGeneration }
p:=Path+'CodeGeneration/';
@ -1814,7 +1814,7 @@ begin
aXMLConfig.SetDeleteValue(p+'CPPInline/Value', CPPInline,true);
aXMLConfig.SetDeleteValue(p+'CStyleMacros/Value', CStyleMacros,false);
aXMLConfig.SetDeleteValue(p+'InitConstructor/Value', InitConstructor,false);
aXMLConfig.SetDeleteValue(p+'PointerTypeCheck/Value', PointerTypeCheck,false);
aXMLConfig.SetDeleteValue(p+'TypedAddress/Value', TypedAddress,false);
{ CodeGeneration }
p:=Path+'CodeGeneration/';
@ -3252,7 +3252,7 @@ begin
tempsw := tempsw + 'm';
if (InitConstructor) then
tempsw := tempsw + 's';
if (PointerTypeCheck) then
if (TypedAddress) then
tempsw := tempsw + 'y';
end;
@ -3311,7 +3311,7 @@ begin
fCPPInline := true;
fCMacros := false;
fInitConst := false;
fPointerTypeCheck := false;
fTypedAddress := false;
// code generation
fSmartLinkUnit := false;
@ -3419,7 +3419,7 @@ begin
fCPPInline := CompOpts.fCPPInline;
fCMacros := CompOpts.fCMacros;
fInitConst := CompOpts.fInitConst;
fPointerTypeCheck := CompOpts.fPointerTypeCheck;
fTypedAddress := CompOpts.fTypedAddress;
// Code Generation
fSmartLinkUnit := CompOpts.SmartLinkUnit;
@ -3568,7 +3568,7 @@ begin
if Done(Tool.AddDiff('CPPInline',fCPPInline,CompOpts.fCPPInline)) then exit;
if Done(Tool.AddDiff('CMacros',fCMacros,CompOpts.fCMacros)) then exit;
if Done(Tool.AddDiff('InitConst',fInitConst,CompOpts.fInitConst)) then exit;
if Done(Tool.AddDiff('PointerTypeCheck',fPointerTypeCheck,CompOpts.fPointerTypeCheck)) then exit;
if Done(Tool.AddDiff('TypedAddress',fTypedAddress,CompOpts.fTypedAddress)) then exit;
// code generation
if Tool<>nil then Tool.Path:='Code';

4
ide/frames/compiler_parsing_options.pas
View File

@ -155,7 +155,7 @@ begin
Checked[3] := CPPInline;
Checked[4] := CStyleMacros;
Checked[5] := InitConstructor;
Checked[6] := PointerTypeCheck;
Checked[6] := TypedAddress;
end;
end;
end;
@ -176,7 +176,7 @@ begin
CPPInline := Checked[3];
CStyleMacros := Checked[4];
InitConstructor := Checked[5];
PointerTypeCheck:= Checked[6];
TypedAddress := Checked[6];
end;
end;
end;