paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 16:09:41 +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 SetSmartLinkUnit(const AValue: Boolean);
procedure SetStackChecks(const AValue: Boolean); procedure SetStackChecks(const AValue: Boolean);
procedure SetStackSize(const AValue: Integer); procedure SetStackSize(const AValue: Integer);
procedure SetPointerTypeCheck(const AValue: Boolean); procedure SetTypedAddress(const AValue: Boolean);
procedure SetStopAfterErrCount(const AValue: integer); procedure SetStopAfterErrCount(const AValue: integer);
procedure SetStripSymbols(const AValue: Boolean); procedure SetStripSymbols(const AValue: Boolean);
procedure SetSyntaxMode(const AValue: string); procedure SetSyntaxMode(const AValue: string);
@ -232,7 +232,7 @@ type
fCPPInline: Boolean; fCPPInline: Boolean;
fCMacros: Boolean; fCMacros: Boolean;
fInitConst: Boolean; fInitConst: Boolean;
fPointerTypeCheck: Boolean; fTypedAddress: Boolean;
// Code generation: // Code generation:
fSmartLinkUnit: Boolean; fSmartLinkUnit: Boolean;
fRelocatableUnit: Boolean; fRelocatableUnit: Boolean;
@ -397,7 +397,7 @@ type
property CPPInline: Boolean read fCPPInline write SetCPPInline; property CPPInline: Boolean read fCPPInline write SetCPPInline;
property CStyleMacros: Boolean read fCMacros write SetCMacros; property CStyleMacros: Boolean read fCMacros write SetCMacros;
property InitConstructor: Boolean read fInitConst write SetInitConst; property InitConstructor: Boolean read fInitConst write SetInitConst;
property PointerTypeCheck: Boolean read fPointerTypeCheck write SetPointerTypeCheck; property TypedAddress: Boolean read fTypedAddress write SetTypedAddress;
// code generation: // code generation:
property IOChecks: Boolean read fIOChecks write SetIOChecks; property IOChecks: Boolean read fIOChecks write SetIOChecks;
@ -844,10 +844,10 @@ begin
IncreaseChangeStamp; IncreaseChangeStamp;
end; end;
procedure TLazCompilerOptions.SetPointerTypeCheck(const AValue: Boolean); procedure TLazCompilerOptions.SetTypedAddress(const AValue: Boolean);
begin begin
if fPointerTypeCheck=AValue then exit; if fTypedAddress=AValue then exit;
fPointerTypeCheck:=AValue; fTypedAddress:=AValue;
IncreaseChangeStamp; IncreaseChangeStamp;
end; end;

12
ide/compileroptions.pp
View File

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