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

Remove Override Call-Convention, implementation was missing anyway

Browse Source 
git-svn-id: trunk@31830 -
This commit is contained in:
martin 2011-07-30 16:44:04 +00:00
parent fb3b94ed21
commit b580436123
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/gdbmidebugger.pp
View File

@ -99,8 +99,6 @@ type
dfForceBreak // Debugger supports insertion of not yet known brekpoints dfForceBreak // Debugger supports insertion of not yet known brekpoints
); );
TGDBMIRTLCallingConvention = (ccDefault, ccRegCall, ccStdCall);
// Target info // Target info
TGDBMITargetInfo = record TGDBMITargetInfo = record
TargetPID: Integer; TargetPID: Integer;
@ -121,7 +119,6 @@ type
FConsoleTty: String; FConsoleTty: String;
{$ENDIF} {$ENDIF}
FGDBOptions: String; FGDBOptions: String;
FOverrideRTLCallingConvention: TGDBMIRTLCallingConvention;
FTimeoutForEval: Integer; FTimeoutForEval: Integer;
FWarnOnTimeOut: Boolean; FWarnOnTimeOut: Boolean;
procedure SetTimeoutForEval(const AValue: Integer); procedure SetTimeoutForEval(const AValue: Integer);
@ -130,7 +127,6 @@ type
constructor Create; override; constructor Create; override;
procedure Assign(Source: TPersistent); override; procedure Assign(Source: TPersistent); override;
published published
property OverrideRTLCallingConvention: TGDBMIRTLCallingConvention read FOverrideRTLCallingConvention write FOverrideRTLCallingConvention;
property Debugger_Startup_Options: String read FGDBOptions write FGDBOptions; property Debugger_Startup_Options: String read FGDBOptions write FGDBOptions;
{$IFDEF UNIX} {$IFDEF UNIX}
property ConsoleTty: String read FConsoleTty write FConsoleTty; property ConsoleTty: String read FConsoleTty write FConsoleTty;
@ -5306,7 +5302,6 @@ end;
constructor TGDBMIDebuggerProperties.Create; constructor TGDBMIDebuggerProperties.Create;
begin begin
FOverrideRTLCallingConvention := ccDefault;
{$IFDEF UNIX} {$IFDEF UNIX}
FConsoleTty := ''; FConsoleTty := '';
{$ENDIF} {$ENDIF}
@ -5323,7 +5318,6 @@ procedure TGDBMIDebuggerProperties.Assign(Source: TPersistent);
begin begin
inherited Assign(Source); inherited Assign(Source);
FGDBOptions := TGDBMIDebuggerProperties(Source).FGDBOptions; FGDBOptions := TGDBMIDebuggerProperties(Source).FGDBOptions;
FOverrideRTLCallingConvention := TGDBMIDebuggerProperties(Source).FOverrideRTLCallingConvention;
{$IFDEF UNIX} {$IFDEF UNIX}
FConsoleTty := TGDBMIDebuggerProperties(Source).FConsoleTty; FConsoleTty := TGDBMIDebuggerProperties(Source).FConsoleTty;
{$ENDIF} {$ENDIF}