mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-02 23:43:40 +02:00
37 lines
585 B
ObjectPascal
37 lines
585 B
ObjectPascal
unit fpDbgSymTable;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
DbgIntfBaseTypes,
|
|
fgl, Classes;
|
|
|
|
type
|
|
|
|
{ TfpSymbolList }
|
|
|
|
TfpSymbolList= class(specialize TFPGMap<String, TDBGPtr>)
|
|
private
|
|
FHighAddr: TDBGPtr;
|
|
FLowAddr: TDBGPtr;
|
|
public
|
|
procedure SetAddressBounds(ALowAddr, AHighAddr: TDBGPtr);
|
|
property LowAddr: TDBGPtr read FLowAddr;
|
|
property HighAddr: TDBGPtr read FHighAddr;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TfpSymbolList }
|
|
|
|
procedure TfpSymbolList.SetAddressBounds(ALowAddr, AHighAddr: TDBGPtr);
|
|
begin
|
|
FLowAddr := ALowAddr;
|
|
FHighAddr := AHighAddr;
|
|
end;
|
|
|
|
end.
|
|
|