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

FpDebug: Rename TDbgSymbolForwarder to TFpSymbolForwarder

Browse Source 
git-svn-id: trunk@61777 -
This commit is contained in:
martin 2019-08-28 15:36:15 +00:00
parent 3469cab38f
commit 94eaca854f
3 changed files with 27 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgdwarfdataclasses.pas
View File

@ -436,7 +436,7 @@ type
{%region Base classes for handling Symbols in unit FPDbgDwarf} {%region Base classes for handling Symbols in unit FPDbgDwarf}
{ TDbgDwarfSymbolBase } { TDbgDwarfSymbolBase }
TDbgDwarfSymbolBase = class(TDbgSymbolForwarder) TDbgDwarfSymbolBase = class(TFpSymbolForwarder)
private private
FCU: TDwarfCompilationUnit; FCU: TDwarfCompilationUnit;
FInformationEntry: TDwarfInformationEntry; FInformationEntry: TDwarfInformationEntry;

50
components/fpdebug/fpdbginfo.pas
View File

@ -446,9 +446,9 @@ type
property LastError: TFpError read GetLastError; experimental; property LastError: TFpError read GetLastError; experimental;
end; end;
{ TDbgSymbolForwarder } { TFpSymbolForwarder }
TDbgSymbolForwarder = class(TFpSymbol) TFpSymbolForwarder = class(TFpSymbol)
private private
FForwardToSymbol: TFpSymbol; FForwardToSymbol: TFpSymbol;
protected protected
@ -1219,22 +1219,22 @@ begin
SetMemberVisibility(svPrivate); SetMemberVisibility(svPrivate);
end; end;
{ TDbgSymbolForwarder } { TFpSymbolForwarder }
procedure TDbgSymbolForwarder.SetForwardToSymbol(AValue: TFpSymbol); procedure TFpSymbolForwarder.SetForwardToSymbol(AValue: TFpSymbol);
begin begin
FForwardToSymbol := AValue; FForwardToSymbol := AValue;
EvaluatedFields := EvaluatedFields + [sfiForwardToSymbol]; EvaluatedFields := EvaluatedFields + [sfiForwardToSymbol];
end; end;
procedure TDbgSymbolForwarder.ForwardToSymbolNeeded; procedure TFpSymbolForwarder.ForwardToSymbolNeeded;
begin begin
SetForwardToSymbol(nil); SetForwardToSymbol(nil);
end; end;
function TDbgSymbolForwarder.GetForwardToSymbol: TFpSymbol; function TFpSymbolForwarder.GetForwardToSymbol: TFpSymbol;
begin begin
if TMethod(@ForwardToSymbolNeeded).Code = Pointer(@TDbgSymbolForwarder.ForwardToSymbolNeeded) then if TMethod(@ForwardToSymbolNeeded).Code = Pointer(@TFpSymbolForwarder.ForwardToSymbolNeeded) then
exit(nil); exit(nil);
if not(sfiForwardToSymbol in EvaluatedFields) then if not(sfiForwardToSymbol in EvaluatedFields) then
@ -1242,7 +1242,7 @@ begin
Result := FForwardToSymbol; Result := FForwardToSymbol;
end; end;
function TDbgSymbolForwarder.GetLastError: TFpError; function TFpSymbolForwarder.GetLastError: TFpError;
var var
p: TFpSymbol; p: TFpSymbol;
begin begin
@ -1254,7 +1254,7 @@ begin
Result := p.LastError; Result := p.LastError;
end; end;
procedure TDbgSymbolForwarder.KindNeeded; procedure TFpSymbolForwarder.KindNeeded;
var var
p: TFpSymbol; p: TFpSymbol;
begin begin
@ -1265,7 +1265,7 @@ begin
SetKind(skNone); // inherited KindNeeded; SetKind(skNone); // inherited KindNeeded;
end; end;
procedure TDbgSymbolForwarder.NameNeeded; procedure TFpSymbolForwarder.NameNeeded;
var var
p: TFpSymbol; p: TFpSymbol;
begin begin
@ -1276,7 +1276,7 @@ begin
SetName(''); // inherited NameNeeded; SetName(''); // inherited NameNeeded;
end; end;
procedure TDbgSymbolForwarder.SymbolTypeNeeded; procedure TFpSymbolForwarder.SymbolTypeNeeded;
var var
p: TFpSymbol; p: TFpSymbol;
begin begin
@ -1287,7 +1287,7 @@ begin
SetSymbolType(stNone); // inherited SymbolTypeNeeded; SetSymbolType(stNone); // inherited SymbolTypeNeeded;
end; end;
procedure TDbgSymbolForwarder.SizeNeeded; procedure TFpSymbolForwarder.SizeNeeded;
var var
p: TFpSymbol; p: TFpSymbol;
begin begin
@ -1298,7 +1298,7 @@ begin
SetSize(0); // inherited SizeNeeded; SetSize(0); // inherited SizeNeeded;
end; end;
procedure TDbgSymbolForwarder.TypeInfoNeeded; procedure TFpSymbolForwarder.TypeInfoNeeded;
var var
p: TFpSymbol; p: TFpSymbol;
begin begin
@ -1309,7 +1309,7 @@ begin
SetTypeInfo(nil); // inherited TypeInfoNeeded; SetTypeInfo(nil); // inherited TypeInfoNeeded;
end; end;
procedure TDbgSymbolForwarder.MemberVisibilityNeeded; procedure TFpSymbolForwarder.MemberVisibilityNeeded;
var var
p: TFpSymbol; p: TFpSymbol;
begin begin
@ -1320,7 +1320,7 @@ begin
SetMemberVisibility(svPrivate); // inherited MemberVisibilityNeeded; SetMemberVisibility(svPrivate); // inherited MemberVisibilityNeeded;
end; end;
function TDbgSymbolForwarder.GetFlags: TDbgSymbolFlags; function TFpSymbolForwarder.GetFlags: TDbgSymbolFlags;
var var
p: TFpSymbol; p: TFpSymbol;
begin begin
@ -1331,7 +1331,7 @@ begin
Result := []; // Result := inherited GetFlags; Result := []; // Result := inherited GetFlags;
end; end;
function TDbgSymbolForwarder.GetValueObject: TFpValue; function TFpSymbolForwarder.GetValueObject: TFpValue;
var var
p: TFpSymbol; p: TFpSymbol;
begin begin
@ -1342,7 +1342,7 @@ begin
Result := nil; // Result := inherited Value; Result := nil; // Result := inherited Value;
end; end;
function TDbgSymbolForwarder.GetHasOrdinalValue: Boolean; function TFpSymbolForwarder.GetHasOrdinalValue: Boolean;
var var
p: TFpSymbol; p: TFpSymbol;
begin begin
@ -1353,7 +1353,7 @@ begin
Result := False; // Result := inherited GetHasOrdinalValue; Result := False; // Result := inherited GetHasOrdinalValue;
end; end;
function TDbgSymbolForwarder.GetOrdinalValue: Int64; function TFpSymbolForwarder.GetOrdinalValue: Int64;
var var
p: TFpSymbol; p: TFpSymbol;
begin begin
@ -1364,7 +1364,7 @@ begin
Result := 0; // Result := inherited GetOrdinalValue; Result := 0; // Result := inherited GetOrdinalValue;
end; end;
function TDbgSymbolForwarder.GetValueBounds(AValueObj: TFpValue; out function TFpSymbolForwarder.GetValueBounds(AValueObj: TFpValue; out
ALowBound, AHighBound: Int64): Boolean; ALowBound, AHighBound: Int64): Boolean;
var var
p: TFpSymbol; p: TFpSymbol;
@ -1376,7 +1376,7 @@ begin
Result := inherited GetValueBounds(AValueObj, ALowBound, AHighBound); Result := inherited GetValueBounds(AValueObj, ALowBound, AHighBound);
end; end;
function TDbgSymbolForwarder.GetValueLowBound(AValueObj: TFpValue; out function TFpSymbolForwarder.GetValueLowBound(AValueObj: TFpValue; out
ALowBound: Int64): Boolean; ALowBound: Int64): Boolean;
var var
p: TFpSymbol; p: TFpSymbol;
@ -1388,7 +1388,7 @@ begin
Result := inherited GetValueLowBound(AValueObj, ALowBound); Result := inherited GetValueLowBound(AValueObj, ALowBound);
end; end;
function TDbgSymbolForwarder.GetValueHighBound(AValueObj: TFpValue; out function TFpSymbolForwarder.GetValueHighBound(AValueObj: TFpValue; out
AHighBound: Int64): Boolean; AHighBound: Int64): Boolean;
var var
p: TFpSymbol; p: TFpSymbol;
@ -1400,7 +1400,7 @@ begin
Result := inherited GetValueHighBound(AValueObj, AHighBound); Result := inherited GetValueHighBound(AValueObj, AHighBound);
end; end;
function TDbgSymbolForwarder.GetHasBounds: Boolean; function TFpSymbolForwarder.GetHasBounds: Boolean;
var var
p: TFpSymbol; p: TFpSymbol;
begin begin
@ -1411,7 +1411,7 @@ begin
Result := False; // Result := inherited GetHasBounds; Result := False; // Result := inherited GetHasBounds;
end; end;
function TDbgSymbolForwarder.GetNestedSymbol(AIndex: Int64): TFpSymbol; function TFpSymbolForwarder.GetNestedSymbol(AIndex: Int64): TFpSymbol;
var var
p: TFpSymbol; p: TFpSymbol;
begin begin
@ -1422,7 +1422,7 @@ begin
Result := nil; // Result := inherited GetMember(AIndex); Result := nil; // Result := inherited GetMember(AIndex);
end; end;
function TDbgSymbolForwarder.GetNestedSymbolByName(AIndex: String): TFpSymbol; function TFpSymbolForwarder.GetNestedSymbolByName(AIndex: String): TFpSymbol;
var var
p: TFpSymbol; p: TFpSymbol;
begin begin
@ -1433,7 +1433,7 @@ begin
Result := nil; // Result := inherited GetMemberByName(AIndex); Result := nil; // Result := inherited GetMemberByName(AIndex);
end; end;
function TDbgSymbolForwarder.GetNestedSymbolCount: Integer; function TFpSymbolForwarder.GetNestedSymbolCount: Integer;
var var
p: TFpSymbol; p: TFpSymbol;
begin begin

2
components/fpdebug/fppascalparser.pas
View File

@ -439,7 +439,7 @@ type
{ TPasParserSymbolArrayDeIndex } { TPasParserSymbolArrayDeIndex }
TPasParserSymbolArrayDeIndex = class(TDbgSymbolForwarder) // 1 index level off TPasParserSymbolArrayDeIndex = class(TFpSymbolForwarder) // 1 index level off
private private
FArray: TFpSymbol; FArray: TFpSymbol;
protected protected