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

IDE: fixed compiler optios TrashVariables and VerifyObjMethodCall, bug #30584

Browse Source 
git-svn-id: branches/fixes_1_6@52938 -
This commit is contained in:
mattias 2016-09-09 06:08:37 +00:00
parent ae9d3b9797
commit 9e91bef147
4 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/ideintf/ideoptionsintf.pas
View File

@ -183,9 +183,9 @@ type
function Check: Boolean; virtual;
function GetTitle: String; virtual; abstract;
procedure Setup(ADialog: TAbstractOptionsEditorDialog); virtual; abstract;
procedure ReadSettings(AOptions: TAbstractIDEOptions); virtual; abstract;
procedure WriteSettings(AOptions: TAbstractIDEOptions); virtual; abstract;
procedure RestoreSettings({%H-}AOptions: TAbstractIDEOptions); virtual;
procedure ReadSettings(AOptions: TAbstractIDEOptions); virtual; abstract; // options to gui
procedure WriteSettings(AOptions: TAbstractIDEOptions); virtual; abstract; // gui to options
procedure RestoreSettings({%H-}AOptions: TAbstractIDEOptions); virtual;// user cancelled dialog -> restore any changes
class function SupportedOptionsClass: TAbstractIDEOptionsClass; virtual; abstract;
class function DefaultCollapseChildNodes: Boolean; virtual;
function FindOptionControl(AClass: TControlClass): TControl;

5
ide/compileroptions.pp
View File

@ -3245,6 +3245,7 @@ begin
fStackChecks := false;
fHeapSize := 0;
fStackSize := 0;
fVerifyObjMethodCall := false;
fTargetOS := '';
fTargetCPU := '';
fTargetProc := '';
@ -3258,6 +3259,7 @@ begin
fDebugInfoType := dsAuto;
fUseLineInfoUnit := true;
fUseHeaptrc := false;
fTrashVariables := false;
fUseValgrind := false;
fGenGProfCode := false;
fStripSymbols := false;
@ -3355,6 +3357,7 @@ begin
FEmulatedFloatOpcodes := CompOpts.fEmulatedFloatOpcodes;
fHeapSize := CompOpts.fHeapSize;
fStackSize := CompOpts.fStackSize;
fVerifyObjMethodCall := CompOpts.VerifyObjMethodCall;
fEmulatedFloatOpcodes := CompOpts.fEmulatedFloatOpcodes;
fTargetOS := CompOpts.fTargetOS;
fTargetCPU := CompOpts.fTargetCPU;
@ -3369,6 +3372,7 @@ begin
FDebugInfoType := CompOpts.FDebugInfoType;
fUseLineInfoUnit := CompOpts.fUseLineInfoUnit;
fUseHeaptrc := CompOpts.fUseHeaptrc;
fTrashVariables := CompOpts.fTrashVariables;
fUseValgrind := CompOpts.fUseValgrind;
fGenGProfCode := CompOpts.fGenGProfCode;
fStripSymbols := CompOpts.fStripSymbols;
@ -3503,6 +3507,7 @@ begin
if Done(Tool.AddDiff('EmulatedFloatOpcodes',FEmulatedFloatOpcodes,CompOpts.FEmulatedFloatOpcodes)) then exit;
if Done(Tool.AddDiff('HeapSize',fHeapSize,CompOpts.fHeapSize)) then exit;
if Done(Tool.AddDiff('StackSize',fStackSize,CompOpts.fStackSize)) then exit;
if Done(Tool.AddDiff('VerifyObjMethodCall',fVerifyObjMethodCall,CompOpts.fVerifyObjMethodCall)) then exit;
if Done(Tool.AddDiff('EmulatedFloatOpcodes',fEmulatedFloatOpcodes,CompOpts.fEmulatedFloatOpcodes)) then exit;
if Done(Tool.AddDiff('TargetOS',fTargetOS,CompOpts.fTargetOS)) then exit;
if Done(Tool.AddDiff('TargetCPU',fTargetCPU,CompOpts.fTargetCPU)) then exit;

5
ide/frames/compiler_debugging_options.pas
View File

@ -5,7 +5,8 @@ unit compiler_debugging_options;
interface
uses
StdCtrls, IDEOptionsIntf, CompilerOptions, CompOptsIntf, LazarusIDEStrConsts;
StdCtrls, IDEOptionsIntf, CompilerOptions, CompOptsIntf, LazLoggerBase,
LazarusIDEStrConsts;
type
@ -87,6 +88,8 @@ end;
procedure TCompilerDebuggingOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
debugln(['TCompilerDebuggingOptionsFrame.Setup ']);
writeln('TCompilerDebuggingOptionsFrame.Setup ');
grpChecks.Caption := dlgCOChecksAndAssertion;
chkChecksIO.Caption := 'I/O (-Ci)';
chkChecksRange.Caption := dlgCORange + ' (-Cr)';

1
ide/project.pp
View File

@ -6948,6 +6948,7 @@ function TProjectBuildModes.CreateExtraModes(aCurMode: TProjectBuildMode): TProj
OverflowChecks:=IsDebug;
StackChecks:=IsDebug;
IncludeAssertionCode:=IsDebug;
VerifyObjMethodCall:=IsDebug;
// Debug flags
GenerateDebugInfo:=IsDebug;
UseExternalDbgSyms:=IsDebug;