forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

remove unused class

This commit is contained in:
Basile Burg 2016-11-04 15:20:58 +01:00
parent c95e8639cf
commit 37f606aa29
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 0 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
src/ce_gdb.pas
View File

@ -164,24 +164,6 @@ type
// 4 int ? 2 double ? 4 single ? ... // 4 int ? 2 double ? 4 single ? ...
end; end;
// Makes a category for the local variables in an object inspector
TInspectableLocals = class(TPersistent)
private
fLocals: TStringList;
fPropIndex: integer;
procedure readProp(Reader: TReader);
procedure writeProp(Writer: TWriter);
protected
procedure DefineProperties(Filer: TFiler); override;
published
property raw: TStringList read fLocals;
public
constructor create;
destructor destroy; override;
procedure clear;
procedure add(const name,value: string);
end;
// Stores the registers content, to be displayable in an object inspector. // Stores the registers content, to be displayable in an object inspector.
TInspectableCPU = class(TPersistent) TInspectableCPU = class(TPersistent)
private private
@ -876,53 +858,6 @@ begin
fRegisters[index] := value; fRegisters[index] := value;
end; end;
constructor TInspectableLocals.create;
begin
fLocals := TStringList.Create;
end;
destructor TInspectableLocals.destroy;
begin
fLocals.Free;
inherited;
end;
procedure TInspectableLocals.DefineProperties(Filer: TFiler);
var
i: integer;
begin
//TODO-cGDB: The object inspector doesn't use DefineProperties to discover custom properties
inherited;
for i := 0 to fLocals.Count-1 do
begin
fPropIndex := i;
filer.DefineProperty(fLocals.Names[i], @readProp, @writeProp, true);
end;
end;
procedure TInspectableLocals.readProp(Reader: TReader);
begin
end;
procedure TInspectableLocals.writeProp(Writer: TWriter);
begin
try
writer.WriteString(fLocals.ValueFromIndex[fPropIndex]);
except
writer.WriteString('<N/A>');
end;
end;
procedure TInspectableLocals.clear;
begin
fLocals.Clear;
end;
procedure TInspectableLocals.add(const name,value: string);
begin
fLocals.Values[name] := value;
end;
constructor TInspectableCPU.create(setGprEvent: TSetGprEvent; setSsrEvent: TSetSsrEvent; constructor TInspectableCPU.create(setGprEvent: TSetGprEvent; setSsrEvent: TSetSsrEvent;
setFlagEvent: TSetFlagEvent; setFprEvent: TSetFprEvent); setFlagEvent: TSetFlagEvent; setFprEvent: TSetFprEvent);
begin begin