mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-10 09:39:25 +02:00
FPDebug: Value handling / enum
git-svn-id: trunk@43983 -
This commit is contained in:
martin
parent
d5b3aa1260
commit
97060b5ede
3
.gitattributes
vendored
3
.gitattributes
vendored
@ -1282,7 +1282,10 @@ components/fpdebug/test/dwarfviewer/dwarfviewer.lpr svneol=native#text/pascal
|
||||
components/fpdebug/test/dwarfviewer/unit1.lfm svneol=native#text/pascal
|
||||
components/fpdebug/test/dwarfviewer/unit1.pas svneol=native#text/pascal
|
||||
components/fpdebug/test/testdata/dwarfsetup1.lpr svneol=native#text/pascal
|
||||
components/fpdebug/test/testdata/dwarfsetupbasic.lpr svneol=native#text/plain
|
||||
components/fpdebug/test/testdwarfsetup1.pas svneol=native#text/pascal
|
||||
components/fpdebug/test/testdwarfsetupbasic.pas svneol=native#text/pascal
|
||||
components/fpdebug/test/testdwarfvarious.pas svneol=native#text/pascal
|
||||
components/fpdebug/test/testhelperclasses.pas svneol=native#text/pascal
|
||||
components/fpdebug/test/testpascalparser.pas svneol=native#text/pascal
|
||||
components/fpdebug/test/testtypeinfo.pas svneol=native#text/pascal
|
||||
|
||||
@ -688,6 +688,31 @@ type
|
||||
function GetDataAddress: TDbgPtr; override;
|
||||
end;
|
||||
|
||||
{ TDbgDwarfEnumSymbolValue }
|
||||
|
||||
TDbgDwarfEnumSymbolValue = class(TDbgDwarfNumericSymbolValue)
|
||||
private
|
||||
FMemberIndex: Integer;
|
||||
FMemberValueDone: Boolean;
|
||||
procedure InitMemberIndex;
|
||||
protected
|
||||
//function IsValidTypeCast: Boolean; override;
|
||||
function GetFieldFlags: TDbgSymbolValueFieldFlags; override;
|
||||
function GetAsString: AnsiString; override;
|
||||
// Has exactly 0 (if the ordinal value is out of range) or 1 member (the current value's enum)
|
||||
function GetMemberCount: Integer; override;
|
||||
function GetMember({%H-}AIndex: Integer): TDbgSymbolValue; override;
|
||||
end;
|
||||
|
||||
{ TDbgDwarfEnumMemberSymbolValue }
|
||||
|
||||
TDbgDwarfEnumMemberSymbolValue = class(TDbgDwarfSymbolValue)
|
||||
protected
|
||||
function GetFieldFlags: TDbgSymbolValueFieldFlags; override;
|
||||
function GetAsCardinal: QWord; override;
|
||||
function GetAsString: AnsiString; override;
|
||||
function IsValidTypeCast: Boolean; override;
|
||||
end;
|
||||
|
||||
{ TDbgDwarfStructSymbolValue }
|
||||
|
||||
@ -879,7 +904,8 @@ DECL = DW_AT_decl_column, DW_AT_decl_file, DW_AT_decl_line
|
||||
protected
|
||||
procedure Init; override;
|
||||
procedure MemberVisibilityNeeded; override;
|
||||
function GetTypedValueObject(ATypeCast: Boolean): TDbgDwarfSymbolValue; virtual; // returns refcount=1 for caller, no cached copy kept
|
||||
procedure SizeNeeded; override;
|
||||
function GetTypedValueObject({%H-}ATypeCast: Boolean): TDbgDwarfSymbolValue; virtual; // returns refcount=1 for caller, no cached copy kept
|
||||
public
|
||||
class function CreateTypeSubClass(AName: String; AnInformationEntry: TDwarfInformationEntry): TDbgDwarfTypeIdentifier;
|
||||
function TypeCastValue(AValue: TDbgSymbolValue): TDbgSymbolValue; override;
|
||||
@ -891,9 +917,8 @@ DECL = DW_AT_decl_column, DW_AT_decl_file, DW_AT_decl_line
|
||||
//function DoGetNestedTypeInfo: TDbgDwarfTypeIdentifier; // return nil
|
||||
protected
|
||||
procedure KindNeeded; override;
|
||||
procedure SizeNeeded; override;
|
||||
procedure TypeInfoNeeded; override;
|
||||
function GetTypedValueObject(ATypeCast: Boolean): TDbgDwarfSymbolValue; override;
|
||||
function GetTypedValueObject({%H-}ATypeCast: Boolean): TDbgDwarfSymbolValue; override;
|
||||
function GetHasBounds: Boolean; override;
|
||||
function GetOrdHighBound: Int64; override;
|
||||
function GetOrdLowBound: Int64; override;
|
||||
@ -976,7 +1001,9 @@ DECL = DW_AT_decl_column, DW_AT_decl_file, DW_AT_decl_line
|
||||
|
||||
{ TDbgDwarfIdentifierEnumElement }
|
||||
|
||||
TDbgDwarfIdentifierEnumElement = class(TDbgDwarfValueIdentifier)
|
||||
{ TDbgDwarfIdentifierEnumMember }
|
||||
|
||||
TDbgDwarfIdentifierEnumMember = class(TDbgDwarfValueIdentifier)
|
||||
FOrdinalValue: Int64;
|
||||
FOrdinalValueRead, FHasOrdinalValue: Boolean;
|
||||
procedure ReadOrdinalValue;
|
||||
@ -985,6 +1012,7 @@ DECL = DW_AT_decl_column, DW_AT_decl_file, DW_AT_decl_line
|
||||
function GetHasOrdinalValue: Boolean; override;
|
||||
function GetOrdinalValue: Int64; override;
|
||||
procedure Init; override;
|
||||
function GetValueObject: TDbgSymbolValue; override;
|
||||
end;
|
||||
|
||||
|
||||
@ -995,6 +1023,7 @@ DECL = DW_AT_decl_column, DW_AT_decl_file, DW_AT_decl_line
|
||||
FMembers: TFpDbgCircularRefCntObjList;
|
||||
procedure CreateMembers;
|
||||
protected
|
||||
function GetTypedValueObject({%H-}ATypeCast: Boolean): TDbgDwarfSymbolValue; override;
|
||||
procedure KindNeeded; override;
|
||||
function GetMember(AIndex: Integer): TDbgSymbol; override;
|
||||
function GetMemberByName(AIndex: String): TDbgSymbol; override;
|
||||
@ -1068,7 +1097,6 @@ DECL = DW_AT_decl_column, DW_AT_decl_file, DW_AT_decl_line
|
||||
protected
|
||||
procedure KindNeeded; override;
|
||||
procedure TypeInfoNeeded; override; // nil or inherited
|
||||
procedure SizeNeeded; override;
|
||||
function GetTypedValueObject(ATypeCast: Boolean): TDbgDwarfSymbolValue; override;
|
||||
|
||||
function GetMember(AIndex: Integer): TDbgSymbol; override;
|
||||
@ -1699,6 +1727,81 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TDbgDwarfEnumMemberSymbolValue }
|
||||
|
||||
function TDbgDwarfEnumMemberSymbolValue.GetFieldFlags: TDbgSymbolValueFieldFlags;
|
||||
begin
|
||||
Result := inherited GetFieldFlags;
|
||||
Result := Result + [svfOrdinal, svfIdentifier];
|
||||
end;
|
||||
|
||||
function TDbgDwarfEnumMemberSymbolValue.GetAsCardinal: QWord;
|
||||
begin
|
||||
Result := FOwner.OrdinalValue;
|
||||
end;
|
||||
|
||||
function TDbgDwarfEnumMemberSymbolValue.GetAsString: AnsiString;
|
||||
begin
|
||||
Result := FOwner.Name;
|
||||
end;
|
||||
|
||||
function TDbgDwarfEnumMemberSymbolValue.IsValidTypeCast: Boolean;
|
||||
begin
|
||||
assert(False, 'TDbgDwarfEnumMemberSymbolValue.IsValidTypeCast can not be returned for typecast');
|
||||
end;
|
||||
|
||||
{ TDbgDwarfEnumSymbolValue }
|
||||
|
||||
procedure TDbgDwarfEnumSymbolValue.InitMemberIndex;
|
||||
var
|
||||
v: QWord;
|
||||
i: Integer;
|
||||
begin
|
||||
if FMemberValueDone then exit;
|
||||
// FTypeCastTargetType (if not nil) must be same as FOwner. It may have wrappers like declaration.
|
||||
v := GetAsCardinal;
|
||||
i := FOwner.MemberCount - 1;
|
||||
while i >= 0 do begin
|
||||
if FOwner.Member[i].OrdinalValue = v then break;
|
||||
dec(i);
|
||||
end;
|
||||
FMemberIndex := i;
|
||||
FMemberValueDone := True;
|
||||
end;
|
||||
|
||||
function TDbgDwarfEnumSymbolValue.GetFieldFlags: TDbgSymbolValueFieldFlags;
|
||||
begin
|
||||
Result := inherited GetFieldFlags;
|
||||
Result := Result + [svfOrdinal, svfMembers, svfIdentifier];
|
||||
end;
|
||||
|
||||
function TDbgDwarfEnumSymbolValue.GetAsString: AnsiString;
|
||||
begin
|
||||
InitMemberIndex;
|
||||
if FMemberIndex >= 0 then
|
||||
Result := FOwner.Member[FMemberIndex].Name
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
||||
function TDbgDwarfEnumSymbolValue.GetMemberCount: Integer;
|
||||
begin
|
||||
InitMemberIndex;
|
||||
if FMemberIndex < 0 then
|
||||
Result := 0
|
||||
else
|
||||
Result := 1;
|
||||
end;
|
||||
|
||||
function TDbgDwarfEnumSymbolValue.GetMember(AIndex: Integer): TDbgSymbolValue;
|
||||
begin
|
||||
InitMemberIndex;
|
||||
if (FMemberIndex >= 0) and (AIndex = 0) then
|
||||
Result := FOwner.Member[FMemberIndex].Value
|
||||
else
|
||||
Result := nil;
|
||||
end;
|
||||
|
||||
{ TDbgDwarfPointerSymbolValue }
|
||||
|
||||
function TDbgDwarfPointerSymbolValue.GetFieldFlags: TDbgSymbolValueFieldFlags;
|
||||
@ -3827,7 +3930,6 @@ end;
|
||||
function TDwarfInformationEntry.HasAttrib(AnAttrib: Cardinal): Boolean;
|
||||
var
|
||||
i: Integer;
|
||||
AddrSize: Byte;
|
||||
begin
|
||||
Result := False;
|
||||
if not PrepareAbbrevData then exit;
|
||||
@ -3877,7 +3979,7 @@ begin
|
||||
|
||||
if CompareUtf8BothCase(@s1[1], @s2[1], EntryName) then begin
|
||||
// TODO: check DW_AT_start_scope;
|
||||
DebugLn([FPDBG_DWARF_SEARCH, 'GoNamedChild found ', dbgs(FScope, FCompUnit), DbgSName(Self)]);
|
||||
DebugLn([FPDBG_DWARF_SEARCH, 'GoNamedChild found ', dbgs(FScope, FCompUnit), ' Result=', DbgSName(Self), ' FOR ', AName]);
|
||||
Result := True;
|
||||
exit;
|
||||
end;
|
||||
@ -3913,7 +4015,7 @@ begin
|
||||
|
||||
if CompareUtf8BothCase(ANameUpper, AnameLower, EntryName) then begin
|
||||
// TODO: check DW_AT_start_scope;
|
||||
DebugLn([FPDBG_DWARF_SEARCH, 'GoNamedChildEx found ', dbgs(FScope, FCompUnit), DbgSName(Self)]);
|
||||
DebugLn([FPDBG_DWARF_SEARCH, 'GoNamedChildEX found ', dbgs(FScope, FCompUnit), ' Result=', DbgSName(Self), ' FOR ', AnameLower]);
|
||||
Result := True;
|
||||
exit;
|
||||
end;
|
||||
@ -4478,36 +4580,47 @@ end;
|
||||
|
||||
{ TDbgDwarfIdentifierEnumElement }
|
||||
|
||||
procedure TDbgDwarfIdentifierEnumElement.ReadOrdinalValue;
|
||||
procedure TDbgDwarfIdentifierEnumMember.ReadOrdinalValue;
|
||||
begin
|
||||
if FOrdinalValueRead then exit;
|
||||
FOrdinalValueRead := True;
|
||||
FHasOrdinalValue := FInformationEntry.ReadValue(DW_AT_const_value, FOrdinalValue);
|
||||
end;
|
||||
|
||||
procedure TDbgDwarfIdentifierEnumElement.KindNeeded;
|
||||
procedure TDbgDwarfIdentifierEnumMember.KindNeeded;
|
||||
begin
|
||||
SetKind(skEnumValue);
|
||||
end;
|
||||
|
||||
function TDbgDwarfIdentifierEnumElement.GetHasOrdinalValue: Boolean;
|
||||
function TDbgDwarfIdentifierEnumMember.GetHasOrdinalValue: Boolean;
|
||||
begin
|
||||
ReadOrdinalValue;
|
||||
Result := FHasOrdinalValue;
|
||||
end;
|
||||
|
||||
function TDbgDwarfIdentifierEnumElement.GetOrdinalValue: Int64;
|
||||
function TDbgDwarfIdentifierEnumMember.GetOrdinalValue: Int64;
|
||||
begin
|
||||
ReadOrdinalValue;
|
||||
Result := FOrdinalValue;
|
||||
end;
|
||||
|
||||
procedure TDbgDwarfIdentifierEnumElement.Init;
|
||||
procedure TDbgDwarfIdentifierEnumMember.Init;
|
||||
begin
|
||||
FOrdinalValueRead := False;
|
||||
inherited Init;
|
||||
end;
|
||||
|
||||
function TDbgDwarfIdentifierEnumMember.GetValueObject: TDbgSymbolValue;
|
||||
begin
|
||||
Result := FValueObject;
|
||||
if Result <> nil then exit;
|
||||
|
||||
FValueObject := TDbgDwarfEnumMemberSymbolValue.Create(Self);
|
||||
FValueObject.SetValueSymbol(self);
|
||||
|
||||
Result := FValueObject;
|
||||
end;
|
||||
|
||||
{ TDbgDwarfIdentifierSet }
|
||||
|
||||
procedure TDbgDwarfIdentifierSet.KindNeeded;
|
||||
@ -4543,6 +4656,11 @@ begin
|
||||
Info.ReleaseReference;
|
||||
end;
|
||||
|
||||
function TDbgDwarfIdentifierEnum.GetTypedValueObject(ATypeCast: Boolean): TDbgDwarfSymbolValue;
|
||||
begin
|
||||
Result := TDbgDwarfEnumSymbolValue.Create(Self, Size);
|
||||
end;
|
||||
|
||||
procedure TDbgDwarfIdentifierEnum.KindNeeded;
|
||||
begin
|
||||
SetKind(skEnum);
|
||||
@ -5285,16 +5403,6 @@ begin
|
||||
ti.ReleaseReference;
|
||||
end;
|
||||
|
||||
procedure TDbgDwarfIdentifierStructure.SizeNeeded;
|
||||
var
|
||||
ByteSize: Integer;
|
||||
begin
|
||||
if FInformationEntry.ReadValue(DW_AT_byte_size, ByteSize) then
|
||||
SetSize(ByteSize)
|
||||
else
|
||||
SetSize(0);
|
||||
end;
|
||||
|
||||
function TDbgDwarfIdentifierStructure.GetTypedValueObject(ATypeCast: Boolean): TDbgDwarfSymbolValue;
|
||||
begin
|
||||
if ATypeCast then
|
||||
@ -5353,16 +5461,6 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TDbgDwarfBaseIdentifierBase.SizeNeeded;
|
||||
var
|
||||
ByteSize: Integer;
|
||||
begin
|
||||
if FInformationEntry.ReadValue(DW_AT_byte_size, ByteSize) then
|
||||
SetSize(ByteSize)
|
||||
else
|
||||
inherited SizeNeeded;
|
||||
end;
|
||||
|
||||
procedure TDbgDwarfBaseIdentifierBase.TypeInfoNeeded;
|
||||
begin
|
||||
SetTypeInfo(nil);
|
||||
@ -5423,6 +5521,16 @@ begin
|
||||
inherited MemberVisibilityNeeded;
|
||||
end;
|
||||
|
||||
procedure TDbgDwarfTypeIdentifier.SizeNeeded;
|
||||
var
|
||||
ByteSize: Integer;
|
||||
begin
|
||||
if FInformationEntry.ReadValue(DW_AT_byte_size, ByteSize) then
|
||||
SetSize(ByteSize)
|
||||
else
|
||||
inherited SizeNeeded;
|
||||
end;
|
||||
|
||||
function TDbgDwarfTypeIdentifier.GetTypedValueObject(ATypeCast: Boolean): TDbgDwarfSymbolValue;
|
||||
begin
|
||||
Result := nil;
|
||||
@ -5665,7 +5773,7 @@ begin
|
||||
DW_TAG_base_type: Result := TDbgDwarfBaseIdentifierBase;
|
||||
DW_TAG_subrange_type: Result := TDbgDwarfIdentifierSubRange;
|
||||
DW_TAG_enumeration_type: Result := TDbgDwarfIdentifierEnum;
|
||||
DW_TAG_enumerator: Result := TDbgDwarfIdentifierEnumElement;
|
||||
DW_TAG_enumerator: Result := TDbgDwarfIdentifierEnumMember;
|
||||
DW_TAG_set_type: Result := TDbgDwarfIdentifierSet;
|
||||
DW_TAG_structure_type,
|
||||
DW_TAG_class_type: Result := TDbgDwarfIdentifierStructure;
|
||||
@ -6401,10 +6509,6 @@ begin
|
||||
while FLineInfo.StateMachine.NextLine do
|
||||
begin
|
||||
Line := FLineInfo.StateMachine.Line;
|
||||
if Line < 0 then begin
|
||||
DebugLn(FPDBG_DWARF_WARNINGS, ['NEGATIVE LINE ', Line]);
|
||||
Continue;
|
||||
end;
|
||||
|
||||
if (idx < 0) or (CurrentFileName <> FLineInfo.StateMachine.FileName) then begin
|
||||
idx := FLineNumberMap.IndexOf(FLineInfo.StateMachine.FileName);
|
||||
@ -7347,7 +7451,7 @@ begin
|
||||
end;
|
||||
|
||||
while InfoEntry.HasValidScope do begin
|
||||
debugln(FPDBG_DWARF_SEARCH, ['TDbgDwarf.FindIdentifier Searching ', dbgs(InfoEntry.FScope, CU)]);
|
||||
//debugln(FPDBG_DWARF_SEARCH, ['TDbgDwarf.FindIdentifier Searching ', dbgs(InfoEntry.FScope, CU)]);
|
||||
StartScopeIdx := InfoEntry.ScopeIndex;
|
||||
|
||||
//if InfoEntry.Abbrev = nil then
|
||||
@ -7365,7 +7469,6 @@ begin
|
||||
then begin
|
||||
if (CompareUtf8BothCase(p1, p2, InfoName)) then begin
|
||||
Result := TDbgDwarfIdentifier.CreateSubClass(AName, InfoEntry);
|
||||
DebugLn(FPDBG_DWARF_SEARCH, ['TDbgDwarf.FindIdentifier found ', dbgs(InfoEntry.FScope, CU), DbgSName(Result)]);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
@ -7382,8 +7485,7 @@ begin
|
||||
Result := SelfParam.MemberByName[AName];
|
||||
assert(Result <> nil, 'FindSymbol: SelfParam.MemberByName[AName]');
|
||||
Result.AddReference;
|
||||
if Result<> nil then debugln(['TDbgDwarfInfoAddressContext.FindSymbol SELF !!!!!!!!!!!!!'])
|
||||
else debugln(['TDbgDwarfInfoAddressContext.FindSymbol ????????????????']);
|
||||
if Result= nil then debugln(['TDbgDwarfInfoAddressContext.FindSymbol NOT IN SELF !!!!!!!!!!!!!']);
|
||||
end;
|
||||
end;
|
||||
if Result = nil then
|
||||
@ -7392,8 +7494,6 @@ else debugln(['TDbgDwarfInfoAddressContext.FindSymbol ????????????????']);
|
||||
// TODO: nested
|
||||
if (StartScopeIdx = SubRoutine.InformationEntry.ScopeIndex) then // searching in subroutine
|
||||
TDbgDwarfIdentifier(Result).ParentTypeInfo := SubRoutine;
|
||||
|
||||
DebugLn(FPDBG_DWARF_SEARCH, ['TDbgDwarf.FindIdentifier found ', dbgs(InfoEntry.FScope, CU), DbgSName(Result)]);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
@ -7421,8 +7521,7 @@ else debugln(['TDbgDwarfInfoAddressContext.FindSymbol ????????????????']);
|
||||
Result := SelfParam.MemberByName[AName];
|
||||
assert(Result <> nil, 'FindSymbol: SelfParam.MemberByName[AName]');
|
||||
Result.AddReference;
|
||||
if Result<> nil then debugln(['TDbgDwarfInfoAddressContext.FindSymbol SELF !!!!!!!!!!!!!'])
|
||||
else debugln(['TDbgDwarfInfoAddressContext.FindSymbol ????????????????']);
|
||||
if Result<> nil then debugln(['TDbgDwarfInfoAddressContext.FindSymbol NOT IN SELF !!!!!!!!!!!!!']);
|
||||
end
|
||||
else debugln(['TDbgDwarfInfoAddressContext.FindSymbol XXXXXXXXXXXXX no self']);
|
||||
;
|
||||
@ -7430,7 +7529,6 @@ else debugln(['TDbgDwarfInfoAddressContext.FindSymbol XXXXXXXXXXXXX no self']);
|
||||
Result := TDbgDwarfIdentifier.CreateSubClass(AName, InfoEntryParent);
|
||||
InfoEntryParent.ReleaseReference;
|
||||
InfoEntryTmp.ReleaseReference;
|
||||
DebugLn(FPDBG_DWARF_SEARCH, ['TDbgDwarf.FindIdentifier found ', dbgs(InfoEntryParent.FScope, CU), DbgSName(Result)]);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
@ -7465,7 +7563,6 @@ else debugln(['TDbgDwarfInfoAddressContext.FindSymbol XXXXXXXXXXXXX no self']);
|
||||
if (s <> '') and (CompareUtf8BothCase(p1, p2, @s[1])) then begin
|
||||
Result.ReleaseReference;
|
||||
Result := TDbgDwarfIdentifier.CreateSubClass(AName, InfoEntry);
|
||||
DebugLn(FPDBG_DWARF_SEARCH, ['TDbgDwarf.FindIdentifier found unit ', dbgs(InfoEntry.FScope, CU2), DbgSName(Result)]);
|
||||
break;
|
||||
end;
|
||||
|
||||
@ -7475,7 +7572,6 @@ else debugln(['TDbgDwarfInfoAddressContext.FindSymbol XXXXXXXXXXXXX no self']);
|
||||
// only variables are marked "external", but types not / so we may need all top level
|
||||
Result.ReleaseReference;
|
||||
Result := TDbgDwarfIdentifier.CreateSubClass(AName, InfoEntry);
|
||||
DebugLn(FPDBG_DWARF_SEARCH, ['TDbgDwarf.FindIdentifier found (other unit) ', dbgs(InfoEntry.FScope, CU2), DbgSName(Result)]);
|
||||
// DW_AT_visibility ?
|
||||
if InfoEntry.ReadValue(DW_AT_external, ExtVal) then
|
||||
if ExtVal <> 0 then
|
||||
@ -7487,6 +7583,9 @@ else debugln(['TDbgDwarfInfoAddressContext.FindSymbol XXXXXXXXXXXXX no self']);
|
||||
end;
|
||||
|
||||
finally
|
||||
if (Result = nil) or (InfoEntry = nil)
|
||||
then DebugLn(FPDBG_DWARF_SEARCH, ['TDbgDwarf.FindIdentifier NOT found Name=', AName])
|
||||
else DebugLn(FPDBG_DWARF_SEARCH, ['TDbgDwarf.FindIdentifier found Scope=', dbgs(InfoEntry.FScope, TDbgDwarfIdentifier(Result).FCU), ' Result=', DbgSName(Result), ' ', Result.Name]);
|
||||
ReleaseRefAndNil(InfoEntry);
|
||||
end;
|
||||
end;
|
||||
@ -7865,7 +7964,7 @@ p := AData;
|
||||
case Form of
|
||||
DW_FORM_addr : begin
|
||||
Value := FCU.ReadAddressAtPointer(AData);
|
||||
ValuePtr := Pointer(PtrUInt(Value));
|
||||
ValuePtr := {%H-}Pointer(PtrUInt(Value));
|
||||
ValueSize := FCU.FAddressSize;
|
||||
DbgOut(FPDBG_DWARF_VERBOSE, ['$'+IntToHex(Value, FCU.FAddressSize * 2)]);
|
||||
Inc(AData, FCU.FAddressSize);
|
||||
@ -7924,13 +8023,13 @@ p := AData;
|
||||
DW_FORM_sdata : begin
|
||||
p := AData;
|
||||
Value := ULEB128toOrdinal(AData);
|
||||
ValueSize := PtrUInt(AData) - PtrUInt(p);
|
||||
ValueSize := {%H-}PtrUInt(AData) - {%H-}PtrUInt(p);
|
||||
DbgOut(FPDBG_DWARF_VERBOSE, ['$'+IntToHex(Value, ValueSize * 2)]);
|
||||
end;
|
||||
DW_FORM_udata : begin
|
||||
p := AData;
|
||||
Value := ULEB128toOrdinal(AData);
|
||||
ValueSize := PtrUInt(AData) - PtrUInt(p);
|
||||
ValueSize := {%H-}PtrUInt(AData) - {%H-}PtrUInt(p);
|
||||
DbgOut(FPDBG_DWARF_VERBOSE, ['$'+IntToHex(Value, ValueSize * 2)]);
|
||||
end;
|
||||
DW_FORM_flag : begin
|
||||
@ -7966,12 +8065,12 @@ p := AData;
|
||||
DW_FORM_ref_udata: begin
|
||||
p := AData;
|
||||
Value := ULEB128toOrdinal(AData);
|
||||
ValueSize := PtrUInt(AData) - PtrUInt(p);
|
||||
ValueSize := {%H-}PtrUInt(AData) - {%H-}PtrUInt(p);
|
||||
DbgOut(FPDBG_DWARF_VERBOSE, ['$'+IntToHex(Value, ValueSize * 2)]);
|
||||
end;
|
||||
DW_FORM_ref_addr : begin
|
||||
Value := FCU.ReadAddressAtPointer(AData);
|
||||
ValuePtr := Pointer(PtrUInt(Value));
|
||||
ValuePtr := {%H-}Pointer(PtrUInt(Value));
|
||||
ValueSize := FCU.FAddressSize;
|
||||
DbgOut(FPDBG_DWARF_VERBOSE, ['$'+IntToHex(Value, FCU.FAddressSize * 2)]);
|
||||
Inc(AData, FCU.FAddressSize);
|
||||
@ -7979,7 +8078,7 @@ p := AData;
|
||||
DW_FORM_string : begin
|
||||
ValuePtr := AData;
|
||||
DumpStr(AData);
|
||||
ValueSize := PtrUInt(AData) - PtrUInt(ValuePtr);
|
||||
ValueSize := {%H-}PtrUInt(AData) - {%H-}PtrUInt(ValuePtr);
|
||||
end;
|
||||
DW_FORM_strp : begin
|
||||
Value := FCU.ReadAddressAtPointer(AData);
|
||||
@ -8521,7 +8620,6 @@ var
|
||||
var
|
||||
p, next: Pointer;
|
||||
pb: PByte absolute p;
|
||||
pw: PWord absolute p;
|
||||
pi: PInteger absolute p;
|
||||
pc: PCardinal absolute p;
|
||||
pq: PQWord absolute p;
|
||||
@ -8535,7 +8633,7 @@ begin
|
||||
p := AData;
|
||||
while p < Adata + ASize do
|
||||
begin
|
||||
DebugLn(FPDBG_DWARF_VERBOSE, ['[', PtrUInt(p) - PtrUInt(AData), ']']);
|
||||
DebugLn(FPDBG_DWARF_VERBOSE, ['[', {%H-}PtrUInt(p) - {%H-}PtrUInt(AData), ']']);
|
||||
|
||||
Is64bit := pi^ = -1;
|
||||
if Is64bit
|
||||
|
||||
@ -130,7 +130,9 @@ type
|
||||
svfInteger, svfCardinal,
|
||||
svfString, svfWideString,
|
||||
svfBoolean,
|
||||
svfIdentifier, // returned via AsString: a named value (enum, set-member)
|
||||
svfMembers,
|
||||
//svfParent, // TODO: for members, get the parent (object/record-fields, enum/set-members
|
||||
svfOrdinal // AsCardinal ruturns an ordinal value, but the value is not represented as cardinal (e.g. bool, enum)
|
||||
// if size > 8, then ordinal (if present) is based on a part only
|
||||
);
|
||||
|
||||
@ -91,7 +91,7 @@ type
|
||||
procedure SetError(AMsg: String = '');
|
||||
procedure SetError(APart: TFpPascalExpressionPart; AMsg: String = '');
|
||||
protected
|
||||
function DebugText(AIndent: String; AWithResults: Boolean): String; virtual; // Self desc only
|
||||
function DebugText(AIndent: String; {%H-}AWithResults: Boolean): String; virtual; // Self desc only
|
||||
function DebugDump(AIndent: String; AWithResults: Boolean): String; virtual;
|
||||
protected
|
||||
procedure Init; virtual;
|
||||
@ -544,7 +544,7 @@ begin
|
||||
Result := DbgSName(AVal);
|
||||
end;
|
||||
|
||||
function DbgsSymbol(AVal: TDbgSymbol; AIndent: String): String;
|
||||
function DbgsSymbol(AVal: TDbgSymbol; {%H-}AIndent: String): String;
|
||||
begin
|
||||
Result := DbgSName(AVal);
|
||||
end;
|
||||
@ -1599,11 +1599,11 @@ end;
|
||||
function TFpPascalExpressionPart.DebugDump(AIndent: String; AWithResults: Boolean): String;
|
||||
begin
|
||||
Result := DebugText(AIndent, AWithResults);
|
||||
if AWithResults and (ResultValue <> nil) then
|
||||
if (ResultValue is TPasParserSymbolValue) then
|
||||
Result := Result + TPasParserSymbolValue(ResultValue).DebugText(AIndent+' // ')
|
||||
if AWithResults and (FResultValue <> nil) then
|
||||
if (FResultValue is TPasParserSymbolValue) then
|
||||
Result := Result + TPasParserSymbolValue(FResultValue).DebugText(AIndent+' // ')
|
||||
else
|
||||
Result := Result + AIndent+' // ResultValue = ' + DbgSName(ResultValue) + LineEnding;
|
||||
Result := Result + AIndent+' // FResultValue = ' + DbgSName(FResultValue) + LineEnding;
|
||||
end;
|
||||
|
||||
constructor TFpPascalExpressionPart.Create(AExpression: TFpPascalExpression; AStartChar: PChar;
|
||||
|
||||
51
components/fpdebug/test/testdata/dwarfsetupbasic.lpr
vendored
Normal file
51
components/fpdebug/test/testdata/dwarfsetupbasic.lpr
vendored
Normal file
@ -0,0 +1,51 @@
|
||||
program DwarfSetupBasic;
|
||||
{$mode objfpc}{$H+}
|
||||
{$IF FPC_FULLVERSION>=20701}
|
||||
{$OPTIMIZATION NOREMOVEEMPTYPROCS}
|
||||
{$OPTIMIZATION NOORDERFIELDS}
|
||||
{$ENDIF}
|
||||
{$OPTIMIZATION OFF}
|
||||
|
||||
// TODO: add integer, cardinal, ...
|
||||
type
|
||||
TEnum0 = (e0a);
|
||||
TEnum1 = (e1a, e1b, e1c);
|
||||
TEnum2 = (e2a, e2b, e2c, e2d, e2e, e2f, e2g, e2h, e2i);
|
||||
TEnum3 = (e3a, e3b, e3c, e3d, e3e, e3f, e3g, e3h,
|
||||
e3i, e3j, e3k, e3l, e3m, e3n, e3o, e3p,
|
||||
e3q);
|
||||
TEnumX = (eXa, eXb := 10, eXc := 3);
|
||||
|
||||
TSet0 = Set of TEnum0;
|
||||
TSet1 = Set of TEnum1;
|
||||
TSet2 = Set of TEnum2;
|
||||
TSet3 = Set of TEnum3;
|
||||
TSetX1 = Set of (s1a, s1b, s1c);
|
||||
|
||||
var // Globals
|
||||
VarEnum0: TEnum0;
|
||||
VarEnum1: TEnum1;
|
||||
VarEnum2: TEnum2;
|
||||
VarEnum3: TEnum3;
|
||||
VarEnumX: TEnumX;
|
||||
|
||||
VarSet0: TSet0;
|
||||
VarSet1: TSet1;
|
||||
VarSet2: TSet2;
|
||||
VarSet3: TSet3;
|
||||
VarSetX1: TSetX1;
|
||||
|
||||
|
||||
begin
|
||||
VarEnum0 := e0a;
|
||||
VarEnum1 := e1a;
|
||||
VarEnum2 := e2a;
|
||||
VarEnum3 := e3a;
|
||||
VarEnumX := eXa;
|
||||
|
||||
VarSet0 := [];
|
||||
VarSet1 := [];
|
||||
VarSet2 := [];
|
||||
VarSet3 := [];
|
||||
VarSetX1 := [];
|
||||
end.
|
||||
634
components/fpdebug/test/testdwarfsetupbasic.pas
Normal file
634
components/fpdebug/test/testdwarfsetupbasic.pas
Normal file
@ -0,0 +1,634 @@
|
||||
unit TestDwarfSetupBasic;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
{$IF FPC_FULLVERSION>=20701}
|
||||
{$OPTIMIZATION NOREMOVEEMPTYPROCS}
|
||||
{$OPTIMIZATION NOORDERFIELDS}
|
||||
{$ENDIF}
|
||||
{$OPTIMIZATION OFF}
|
||||
{$A2}
|
||||
|
||||
(*
|
||||
Data generated from testdata\dwarfsetupbasic.lpr
|
||||
*)
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
FpDbgDwarfConst,
|
||||
TestHelperClasses;
|
||||
|
||||
const
|
||||
TTestSetupBasicProcMainAddr = $00400000;
|
||||
|
||||
type
|
||||
|
||||
{%region Types defined in the DWARF }
|
||||
TEnum0 = (e0a);
|
||||
TEnum1 = (e1a, e1b, e1c);
|
||||
TEnum2 = (e2a, e2b, e2c, e2d, e2e, e2f, e2g, e2h, e2i);
|
||||
TEnum3 = (e3a, e3b, e3c, e3d, e3e, e3f, e3g, e3h,
|
||||
e3i, e3j, e3k, e3l, e3m, e3n, e3o, e3p,
|
||||
e3q);
|
||||
TEnumX = (eXa, eXb := 10, eXc := 3);
|
||||
|
||||
TSet0 = Set of TEnum0;
|
||||
TSet1 = Set of TEnum1;
|
||||
TSet2 = Set of TEnum2;
|
||||
TSet3 = Set of TEnum3;
|
||||
TSetX1 = Set of (s1a, s1b, s1c);
|
||||
|
||||
{%endregion}
|
||||
|
||||
type
|
||||
{ TTestDwarfSetupBasic }
|
||||
|
||||
TTestLoaderSetupBasic = class(TTestDummyImageLoader)
|
||||
public
|
||||
constructor Create; override;
|
||||
procedure PoissonTestFrame;
|
||||
public
|
||||
SectionDbgInfo: TTestDummySectionInfoEntries;
|
||||
|
||||
Unitdwarfsetupbasic_lpr_0, VarVARENUM0_1, VarVARENUM1_2, VarVARENUM2_3, VarVARENUM3_4, VarVARENUMX_5, VarVARSET0_6, VarVARSET1_7, VarVARSET2_8, VarVARSET3_9, VarVARSETX1_10, Progmain_11, TypeDeclTENUM0_12, TypeTENUM0_13, TypeE0A_14, Type_15, TypeDeclTENUM1_16, TypeTENUM1_17, TypeE1A_18, TypeE1B_19, TypeE1C_20, Type_21, TypeDeclTENUM2_22, TypeTENUM2_23, TypeE2A_24, TypeE2B_25, TypeE2C_26, TypeE2D_27, TypeE2E_28, TypeE2F_29, TypeE2G_30, TypeE2H_31, TypeE2I_32, Type_33, TypeDeclTENUM3_34, TypeTENUM3_35, TypeE3A_36, TypeE3B_37, TypeE3C_38, TypeE3D_39, TypeE3E_40, TypeE3F_41, TypeE3G_42, TypeE3H_43, TypeE3I_44, TypeE3J_45, TypeE3K_46, TypeE3L_47, TypeE3M_48, TypeE3N_49, TypeE3O_50, TypeE3P_51, TypeE3Q_52, Type_53, TypeDeclTENUMX_54, TypeTENUMX_55, TypeEXA_56, TypeEXB_57, TypeEXC_58, Type_59, TypeDeclTSET0_60, TypeTSET0_61, Type_62, Type_63, TypeDeclTSET1_64, TypeTSET1_65, Type_66, Type_67, TypeDeclTSET2_68, TypeTSET2_69, Type_70, Type_71, TypeDeclTSET3_72, TypeTSET3_73, Type_74, Type_75, TypeDeclTSETX1_76, TypeTSETX1_77, Type_78, Type_79, Type_80, TypeS1A_81, TypeS1B_82, TypeS1C_83, Type_84
|
||||
: TTestDwarfInfoEntry;
|
||||
|
||||
// global vars
|
||||
GlobalVar: record
|
||||
PAD_Before: QWord; // padding will be filled with bad data
|
||||
|
||||
VarEnum0, PAD_VarEnum0: TEnum0;
|
||||
VarEnum1, PAD_VarEnum1: TEnum1;
|
||||
VarEnum2, PAD_VarEnum2: TEnum2;
|
||||
VarEnum3, PAD_VarEnum3: TEnum3;
|
||||
VarEnumX, PAD_VarEnumX: TEnumX;
|
||||
|
||||
VarSet0, PAD_VarSet0: TSet0;
|
||||
VarSet1, PAD_VarSet1: TSet1;
|
||||
VarSet2, PAD_VarSet2: TSet2;
|
||||
VarSet3, PAD_VarSet3: TSet3;
|
||||
VarSetX1, PAD_VarSetX1: TSetX1;
|
||||
|
||||
PAD_After: QWord;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
{ TTestLoaderSetup1 }
|
||||
|
||||
constructor TTestLoaderSetupBasic.Create;
|
||||
//var
|
||||
// StackOffs: LongInt;
|
||||
begin
|
||||
inherited Create;
|
||||
PoissonTestFrame;
|
||||
|
||||
SectionDbgInfo := TestImgReader.TestSection['.debug_info'] as TTestDummySectionInfoEntries;
|
||||
Unitdwarfsetupbasic_lpr_0 := SectionDbgInfo.GetFirstInfoEntryObj;
|
||||
|
||||
// Generated with fpc 2.6.2 32 bit win
|
||||
|
||||
Unitdwarfsetupbasic_lpr_0.Tag := DW_TAG_compile_unit;
|
||||
Unitdwarfsetupbasic_lpr_0.Children := 1;
|
||||
Unitdwarfsetupbasic_lpr_0.Add(DW_AT_name, DW_FORM_string, 'dwarfsetupbasic.lpr'+#0);
|
||||
Unitdwarfsetupbasic_lpr_0.Add(DW_AT_producer, DW_FORM_string, 'Free Pascal 2.6.2 2013/02/16'+#0);
|
||||
Unitdwarfsetupbasic_lpr_0.Add(DW_AT_comp_dir, DW_FORM_string, 'B:/lazarus_latest/components/fpdebug/test/testdata/'+#0);
|
||||
Unitdwarfsetupbasic_lpr_0.Add(DW_AT_language, DW_FORM_data1, [$09]);
|
||||
Unitdwarfsetupbasic_lpr_0.Add(DW_AT_identifier_case, DW_FORM_data1, [$03]);
|
||||
Unitdwarfsetupbasic_lpr_0.Add(DW_AT_stmt_list, DW_FORM_data4, [$00, $00, $00, $00]);
|
||||
Unitdwarfsetupbasic_lpr_0.AddAddr(DW_AT_low_pc, DW_FORM_addr, $00400000);
|
||||
Unitdwarfsetupbasic_lpr_0.AddAddr(DW_AT_high_pc, DW_FORM_addr, $004FFFFF);
|
||||
|
||||
VarVARENUM0_1 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
VarVARENUM0_1.Tag := DW_TAG_variable;
|
||||
VarVARENUM0_1.Children := 0;
|
||||
VarVARENUM0_1.Add(DW_AT_name, DW_FORM_string, 'VARENUM0'+#0);
|
||||
VarVARENUM0_1.Add(DW_AT_location, DW_FORM_block1, BytesLen1([DW_OP_addr, AddrB(@GlobalVar.VarENUM0)])); // $03, $00, $90, $40, $00
|
||||
VarVARENUM0_1.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTENUM0_12); // $55, $01, $00, $00
|
||||
|
||||
VarVARENUM1_2 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
VarVARENUM1_2.Tag := DW_TAG_variable;
|
||||
VarVARENUM1_2.Children := 0;
|
||||
VarVARENUM1_2.Add(DW_AT_name, DW_FORM_string, 'VARENUM1'+#0);
|
||||
VarVARENUM1_2.Add(DW_AT_location, DW_FORM_block1, BytesLen1([DW_OP_addr, AddrB(@GlobalVar.VarENUM1)])); // $03, $10, $90, $40, $00
|
||||
VarVARENUM1_2.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTENUM1_16); // $79, $01, $00, $00
|
||||
|
||||
VarVARENUM2_3 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
VarVARENUM2_3.Tag := DW_TAG_variable;
|
||||
VarVARENUM2_3.Children := 0;
|
||||
VarVARENUM2_3.Add(DW_AT_name, DW_FORM_string, 'VARENUM2'+#0);
|
||||
VarVARENUM2_3.Add(DW_AT_location, DW_FORM_block1, BytesLen1([DW_OP_addr, AddrB(@GlobalVar.VarENUM2)])); // $03, $20, $90, $40, $00
|
||||
VarVARENUM2_3.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTENUM2_22); // $AF, $01, $00, $00
|
||||
|
||||
VarVARENUM3_4 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
VarVARENUM3_4.Tag := DW_TAG_variable;
|
||||
VarVARENUM3_4.Children := 0;
|
||||
VarVARENUM3_4.Add(DW_AT_name, DW_FORM_string, 'VARENUM3'+#0);
|
||||
VarVARENUM3_4.Add(DW_AT_location, DW_FORM_block1, BytesLen1([DW_OP_addr, AddrB(@GlobalVar.VarENUM3)])); // $03, $30, $90, $40, $00
|
||||
VarVARENUM3_4.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTENUM3_34); // $1B, $02, $00, $00
|
||||
|
||||
VarVARENUMX_5 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
VarVARENUMX_5.Tag := DW_TAG_variable;
|
||||
VarVARENUMX_5.Children := 0;
|
||||
VarVARENUMX_5.Add(DW_AT_name, DW_FORM_string, 'VARENUMX'+#0);
|
||||
VarVARENUMX_5.Add(DW_AT_location, DW_FORM_block1, BytesLen1([DW_OP_addr, AddrB(@GlobalVar.VarENUMX)])); // $03, $40, $90, $40, $00
|
||||
VarVARENUMX_5.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTENUMX_54); // $CF, $02, $00, $00
|
||||
|
||||
VarVARSET0_6 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
VarVARSET0_6.Tag := DW_TAG_variable;
|
||||
VarVARSET0_6.Children := 0;
|
||||
VarVARSET0_6.Add(DW_AT_name, DW_FORM_string, 'VARSET0'+#0);
|
||||
VarVARSET0_6.Add(DW_AT_location, DW_FORM_block1, BytesLen1([DW_OP_addr, AddrB(@GlobalVar.VarSET0)])); // $03, $50, $90, $40, $00
|
||||
VarVARSET0_6.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTSET0_60); // $05, $03, $00, $00
|
||||
|
||||
VarVARSET1_7 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
VarVARSET1_7.Tag := DW_TAG_variable;
|
||||
VarVARSET1_7.Children := 0;
|
||||
VarVARSET1_7.Add(DW_AT_name, DW_FORM_string, 'VARSET1'+#0);
|
||||
VarVARSET1_7.Add(DW_AT_location, DW_FORM_block1, BytesLen1([DW_OP_addr, AddrB(@GlobalVar.VarSET1)])); // $03, $60, $90, $40, $00
|
||||
VarVARSET1_7.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTSET1_64); // $29, $03, $00, $00
|
||||
|
||||
VarVARSET2_8 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
VarVARSET2_8.Tag := DW_TAG_variable;
|
||||
VarVARSET2_8.Children := 0;
|
||||
VarVARSET2_8.Add(DW_AT_name, DW_FORM_string, 'VARSET2'+#0);
|
||||
VarVARSET2_8.Add(DW_AT_location, DW_FORM_block1, BytesLen1([DW_OP_addr, AddrB(@GlobalVar.VarSET2)])); // $03, $70, $90, $40, $00
|
||||
VarVARSET2_8.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTSET2_68); // $4D, $03, $00, $00
|
||||
|
||||
VarVARSET3_9 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
VarVARSET3_9.Tag := DW_TAG_variable;
|
||||
VarVARSET3_9.Children := 0;
|
||||
VarVARSET3_9.Add(DW_AT_name, DW_FORM_string, 'VARSET3'+#0);
|
||||
VarVARSET3_9.Add(DW_AT_location, DW_FORM_block1, BytesLen1([DW_OP_addr, AddrB(@GlobalVar.VarSET3)])); // $03, $80, $90, $40, $00
|
||||
VarVARSET3_9.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTSET3_72); // $71, $03, $00, $00
|
||||
|
||||
VarVARSETX1_10 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
VarVARSETX1_10.Tag := DW_TAG_variable;
|
||||
VarVARSETX1_10.Children := 0;
|
||||
VarVARSETX1_10.Add(DW_AT_name, DW_FORM_string, 'VARSETX1'+#0);
|
||||
VarVARSETX1_10.Add(DW_AT_location, DW_FORM_block1, BytesLen1([DW_OP_addr, AddrB(@GlobalVar.VarSETX1)])); // $03, $90, $90, $40, $00
|
||||
VarVARSETX1_10.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTSETX1_76); // $95, $03, $00, $00
|
||||
|
||||
Progmain_11 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Progmain_11.Tag := DW_TAG_subprogram;
|
||||
Progmain_11.Children := 0;
|
||||
Progmain_11.Add(DW_AT_name, DW_FORM_string, 'main'+#0);
|
||||
Progmain_11.Add(DW_AT_prototyped, DW_FORM_flag, [$01]);
|
||||
Progmain_11.Add(DW_AT_calling_convention, DW_FORM_data1, [$41]);
|
||||
Progmain_11.Add(DW_AT_external, DW_FORM_flag, [$01]);
|
||||
Progmain_11.AddAddr(DW_AT_low_pc, DW_FORM_addr, $00400000);
|
||||
Progmain_11.AddAddr(DW_AT_high_pc, DW_FORM_addr, $00400FFF);
|
||||
|
||||
TypeDeclTENUM0_12 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeDeclTENUM0_12.Tag := DW_TAG_typedef;
|
||||
TypeDeclTENUM0_12.Children := 0;
|
||||
TypeDeclTENUM0_12.Add(DW_AT_name, DW_FORM_string, 'TENUM0'+#0);
|
||||
TypeDeclTENUM0_12.AddRef(DW_AT_type, DW_FORM_ref4, @TypeTENUM0_13); // $61, $01, $00, $00
|
||||
|
||||
TypeTENUM0_13 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeTENUM0_13.Tag := DW_TAG_enumeration_type;
|
||||
TypeTENUM0_13.Children := 1;
|
||||
TypeTENUM0_13.Add(DW_AT_name, DW_FORM_string, 'TENUM0'+#0);
|
||||
TypeTENUM0_13.Add(DW_AT_byte_size, DW_FORM_data1, [$04]);
|
||||
|
||||
TypeE0A_14 := TypeTENUM0_13.GetNewChild;
|
||||
TypeE0A_14.Tag := DW_TAG_enumerator;
|
||||
TypeE0A_14.Children := 0;
|
||||
TypeE0A_14.Add(DW_AT_name, DW_FORM_string, 'E0A'+#0);
|
||||
TypeE0A_14.Add(DW_AT_const_value, DW_FORM_data4, [$00, $00, $00, $00]);
|
||||
|
||||
Type_15 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Type_15.Tag := DW_TAG_reference_type;
|
||||
Type_15.Children := 0;
|
||||
Type_15.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTENUM0_12); // $55, $01, $00, $00
|
||||
|
||||
TypeDeclTENUM1_16 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeDeclTENUM1_16.Tag := DW_TAG_typedef;
|
||||
TypeDeclTENUM1_16.Children := 0;
|
||||
TypeDeclTENUM1_16.Add(DW_AT_name, DW_FORM_string, 'TENUM1'+#0);
|
||||
TypeDeclTENUM1_16.AddRef(DW_AT_type, DW_FORM_ref4, @TypeTENUM1_17); // $85, $01, $00, $00
|
||||
|
||||
TypeTENUM1_17 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeTENUM1_17.Tag := DW_TAG_enumeration_type;
|
||||
TypeTENUM1_17.Children := 1;
|
||||
TypeTENUM1_17.Add(DW_AT_name, DW_FORM_string, 'TENUM1'+#0);
|
||||
TypeTENUM1_17.Add(DW_AT_byte_size, DW_FORM_data1, [$04]);
|
||||
|
||||
TypeE1A_18 := TypeTENUM1_17.GetNewChild;
|
||||
TypeE1A_18.Tag := DW_TAG_enumerator;
|
||||
TypeE1A_18.Children := 0;
|
||||
TypeE1A_18.Add(DW_AT_name, DW_FORM_string, 'E1A'+#0);
|
||||
TypeE1A_18.Add(DW_AT_const_value, DW_FORM_data4, [$00, $00, $00, $00]);
|
||||
|
||||
TypeE1B_19 := TypeTENUM1_17.GetNewChild;
|
||||
TypeE1B_19.Tag := DW_TAG_enumerator;
|
||||
TypeE1B_19.Children := 0;
|
||||
TypeE1B_19.Add(DW_AT_name, DW_FORM_string, 'E1B'+#0);
|
||||
TypeE1B_19.Add(DW_AT_const_value, DW_FORM_data4, [$01, $00, $00, $00]);
|
||||
|
||||
TypeE1C_20 := TypeTENUM1_17.GetNewChild;
|
||||
TypeE1C_20.Tag := DW_TAG_enumerator;
|
||||
TypeE1C_20.Children := 0;
|
||||
TypeE1C_20.Add(DW_AT_name, DW_FORM_string, 'E1C'+#0);
|
||||
TypeE1C_20.Add(DW_AT_const_value, DW_FORM_data4, [$02, $00, $00, $00]);
|
||||
|
||||
Type_21 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Type_21.Tag := DW_TAG_reference_type;
|
||||
Type_21.Children := 0;
|
||||
Type_21.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTENUM1_16); // $79, $01, $00, $00
|
||||
|
||||
TypeDeclTENUM2_22 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeDeclTENUM2_22.Tag := DW_TAG_typedef;
|
||||
TypeDeclTENUM2_22.Children := 0;
|
||||
TypeDeclTENUM2_22.Add(DW_AT_name, DW_FORM_string, 'TENUM2'+#0);
|
||||
TypeDeclTENUM2_22.AddRef(DW_AT_type, DW_FORM_ref4, @TypeTENUM2_23); // $BB, $01, $00, $00
|
||||
|
||||
TypeTENUM2_23 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeTENUM2_23.Tag := DW_TAG_enumeration_type;
|
||||
TypeTENUM2_23.Children := 1;
|
||||
TypeTENUM2_23.Add(DW_AT_name, DW_FORM_string, 'TENUM2'+#0);
|
||||
TypeTENUM2_23.Add(DW_AT_byte_size, DW_FORM_data1, [$04]);
|
||||
|
||||
TypeE2A_24 := TypeTENUM2_23.GetNewChild;
|
||||
TypeE2A_24.Tag := DW_TAG_enumerator;
|
||||
TypeE2A_24.Children := 0;
|
||||
TypeE2A_24.Add(DW_AT_name, DW_FORM_string, 'E2A'+#0);
|
||||
TypeE2A_24.Add(DW_AT_const_value, DW_FORM_data4, [$00, $00, $00, $00]);
|
||||
|
||||
TypeE2B_25 := TypeTENUM2_23.GetNewChild;
|
||||
TypeE2B_25.Tag := DW_TAG_enumerator;
|
||||
TypeE2B_25.Children := 0;
|
||||
TypeE2B_25.Add(DW_AT_name, DW_FORM_string, 'E2B'+#0);
|
||||
TypeE2B_25.Add(DW_AT_const_value, DW_FORM_data4, [$01, $00, $00, $00]);
|
||||
|
||||
TypeE2C_26 := TypeTENUM2_23.GetNewChild;
|
||||
TypeE2C_26.Tag := DW_TAG_enumerator;
|
||||
TypeE2C_26.Children := 0;
|
||||
TypeE2C_26.Add(DW_AT_name, DW_FORM_string, 'E2C'+#0);
|
||||
TypeE2C_26.Add(DW_AT_const_value, DW_FORM_data4, [$02, $00, $00, $00]);
|
||||
|
||||
TypeE2D_27 := TypeTENUM2_23.GetNewChild;
|
||||
TypeE2D_27.Tag := DW_TAG_enumerator;
|
||||
TypeE2D_27.Children := 0;
|
||||
TypeE2D_27.Add(DW_AT_name, DW_FORM_string, 'E2D'+#0);
|
||||
TypeE2D_27.Add(DW_AT_const_value, DW_FORM_data4, [$03, $00, $00, $00]);
|
||||
|
||||
TypeE2E_28 := TypeTENUM2_23.GetNewChild;
|
||||
TypeE2E_28.Tag := DW_TAG_enumerator;
|
||||
TypeE2E_28.Children := 0;
|
||||
TypeE2E_28.Add(DW_AT_name, DW_FORM_string, 'E2E'+#0);
|
||||
TypeE2E_28.Add(DW_AT_const_value, DW_FORM_data4, [$04, $00, $00, $00]);
|
||||
|
||||
TypeE2F_29 := TypeTENUM2_23.GetNewChild;
|
||||
TypeE2F_29.Tag := DW_TAG_enumerator;
|
||||
TypeE2F_29.Children := 0;
|
||||
TypeE2F_29.Add(DW_AT_name, DW_FORM_string, 'E2F'+#0);
|
||||
TypeE2F_29.Add(DW_AT_const_value, DW_FORM_data4, [$05, $00, $00, $00]);
|
||||
|
||||
TypeE2G_30 := TypeTENUM2_23.GetNewChild;
|
||||
TypeE2G_30.Tag := DW_TAG_enumerator;
|
||||
TypeE2G_30.Children := 0;
|
||||
TypeE2G_30.Add(DW_AT_name, DW_FORM_string, 'E2G'+#0);
|
||||
TypeE2G_30.Add(DW_AT_const_value, DW_FORM_data4, [$06, $00, $00, $00]);
|
||||
|
||||
TypeE2H_31 := TypeTENUM2_23.GetNewChild;
|
||||
TypeE2H_31.Tag := DW_TAG_enumerator;
|
||||
TypeE2H_31.Children := 0;
|
||||
TypeE2H_31.Add(DW_AT_name, DW_FORM_string, 'E2H'+#0);
|
||||
TypeE2H_31.Add(DW_AT_const_value, DW_FORM_data4, [$07, $00, $00, $00]);
|
||||
|
||||
TypeE2I_32 := TypeTENUM2_23.GetNewChild;
|
||||
TypeE2I_32.Tag := DW_TAG_enumerator;
|
||||
TypeE2I_32.Children := 0;
|
||||
TypeE2I_32.Add(DW_AT_name, DW_FORM_string, 'E2I'+#0);
|
||||
TypeE2I_32.Add(DW_AT_const_value, DW_FORM_data4, [$08, $00, $00, $00]);
|
||||
|
||||
Type_33 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Type_33.Tag := DW_TAG_reference_type;
|
||||
Type_33.Children := 0;
|
||||
Type_33.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTENUM2_22); // $AF, $01, $00, $00
|
||||
|
||||
TypeDeclTENUM3_34 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeDeclTENUM3_34.Tag := DW_TAG_typedef;
|
||||
TypeDeclTENUM3_34.Children := 0;
|
||||
TypeDeclTENUM3_34.Add(DW_AT_name, DW_FORM_string, 'TENUM3'+#0);
|
||||
TypeDeclTENUM3_34.AddRef(DW_AT_type, DW_FORM_ref4, @TypeTENUM3_35); // $27, $02, $00, $00
|
||||
|
||||
TypeTENUM3_35 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeTENUM3_35.Tag := DW_TAG_enumeration_type;
|
||||
TypeTENUM3_35.Children := 1;
|
||||
TypeTENUM3_35.Add(DW_AT_name, DW_FORM_string, 'TENUM3'+#0);
|
||||
TypeTENUM3_35.Add(DW_AT_byte_size, DW_FORM_data1, [$04]);
|
||||
|
||||
TypeE3A_36 := TypeTENUM3_35.GetNewChild;
|
||||
TypeE3A_36.Tag := DW_TAG_enumerator;
|
||||
TypeE3A_36.Children := 0;
|
||||
TypeE3A_36.Add(DW_AT_name, DW_FORM_string, 'E3A'+#0);
|
||||
TypeE3A_36.Add(DW_AT_const_value, DW_FORM_data4, [$00, $00, $00, $00]);
|
||||
|
||||
TypeE3B_37 := TypeTENUM3_35.GetNewChild;
|
||||
TypeE3B_37.Tag := DW_TAG_enumerator;
|
||||
TypeE3B_37.Children := 0;
|
||||
TypeE3B_37.Add(DW_AT_name, DW_FORM_string, 'E3B'+#0);
|
||||
TypeE3B_37.Add(DW_AT_const_value, DW_FORM_data4, [$01, $00, $00, $00]);
|
||||
|
||||
TypeE3C_38 := TypeTENUM3_35.GetNewChild;
|
||||
TypeE3C_38.Tag := DW_TAG_enumerator;
|
||||
TypeE3C_38.Children := 0;
|
||||
TypeE3C_38.Add(DW_AT_name, DW_FORM_string, 'E3C'+#0);
|
||||
TypeE3C_38.Add(DW_AT_const_value, DW_FORM_data4, [$02, $00, $00, $00]);
|
||||
|
||||
TypeE3D_39 := TypeTENUM3_35.GetNewChild;
|
||||
TypeE3D_39.Tag := DW_TAG_enumerator;
|
||||
TypeE3D_39.Children := 0;
|
||||
TypeE3D_39.Add(DW_AT_name, DW_FORM_string, 'E3D'+#0);
|
||||
TypeE3D_39.Add(DW_AT_const_value, DW_FORM_data4, [$03, $00, $00, $00]);
|
||||
|
||||
TypeE3E_40 := TypeTENUM3_35.GetNewChild;
|
||||
TypeE3E_40.Tag := DW_TAG_enumerator;
|
||||
TypeE3E_40.Children := 0;
|
||||
TypeE3E_40.Add(DW_AT_name, DW_FORM_string, 'E3E'+#0);
|
||||
TypeE3E_40.Add(DW_AT_const_value, DW_FORM_data4, [$04, $00, $00, $00]);
|
||||
|
||||
TypeE3F_41 := TypeTENUM3_35.GetNewChild;
|
||||
TypeE3F_41.Tag := DW_TAG_enumerator;
|
||||
TypeE3F_41.Children := 0;
|
||||
TypeE3F_41.Add(DW_AT_name, DW_FORM_string, 'E3F'+#0);
|
||||
TypeE3F_41.Add(DW_AT_const_value, DW_FORM_data4, [$05, $00, $00, $00]);
|
||||
|
||||
TypeE3G_42 := TypeTENUM3_35.GetNewChild;
|
||||
TypeE3G_42.Tag := DW_TAG_enumerator;
|
||||
TypeE3G_42.Children := 0;
|
||||
TypeE3G_42.Add(DW_AT_name, DW_FORM_string, 'E3G'+#0);
|
||||
TypeE3G_42.Add(DW_AT_const_value, DW_FORM_data4, [$06, $00, $00, $00]);
|
||||
|
||||
TypeE3H_43 := TypeTENUM3_35.GetNewChild;
|
||||
TypeE3H_43.Tag := DW_TAG_enumerator;
|
||||
TypeE3H_43.Children := 0;
|
||||
TypeE3H_43.Add(DW_AT_name, DW_FORM_string, 'E3H'+#0);
|
||||
TypeE3H_43.Add(DW_AT_const_value, DW_FORM_data4, [$07, $00, $00, $00]);
|
||||
|
||||
TypeE3I_44 := TypeTENUM3_35.GetNewChild;
|
||||
TypeE3I_44.Tag := DW_TAG_enumerator;
|
||||
TypeE3I_44.Children := 0;
|
||||
TypeE3I_44.Add(DW_AT_name, DW_FORM_string, 'E3I'+#0);
|
||||
TypeE3I_44.Add(DW_AT_const_value, DW_FORM_data4, [$08, $00, $00, $00]);
|
||||
|
||||
TypeE3J_45 := TypeTENUM3_35.GetNewChild;
|
||||
TypeE3J_45.Tag := DW_TAG_enumerator;
|
||||
TypeE3J_45.Children := 0;
|
||||
TypeE3J_45.Add(DW_AT_name, DW_FORM_string, 'E3J'+#0);
|
||||
TypeE3J_45.Add(DW_AT_const_value, DW_FORM_data4, [$09, $00, $00, $00]);
|
||||
|
||||
TypeE3K_46 := TypeTENUM3_35.GetNewChild;
|
||||
TypeE3K_46.Tag := DW_TAG_enumerator;
|
||||
TypeE3K_46.Children := 0;
|
||||
TypeE3K_46.Add(DW_AT_name, DW_FORM_string, 'E3K'+#0);
|
||||
TypeE3K_46.Add(DW_AT_const_value, DW_FORM_data4, [$0A, $00, $00, $00]);
|
||||
|
||||
TypeE3L_47 := TypeTENUM3_35.GetNewChild;
|
||||
TypeE3L_47.Tag := DW_TAG_enumerator;
|
||||
TypeE3L_47.Children := 0;
|
||||
TypeE3L_47.Add(DW_AT_name, DW_FORM_string, 'E3L'+#0);
|
||||
TypeE3L_47.Add(DW_AT_const_value, DW_FORM_data4, [$0B, $00, $00, $00]);
|
||||
|
||||
TypeE3M_48 := TypeTENUM3_35.GetNewChild;
|
||||
TypeE3M_48.Tag := DW_TAG_enumerator;
|
||||
TypeE3M_48.Children := 0;
|
||||
TypeE3M_48.Add(DW_AT_name, DW_FORM_string, 'E3M'+#0);
|
||||
TypeE3M_48.Add(DW_AT_const_value, DW_FORM_data4, [$0C, $00, $00, $00]);
|
||||
|
||||
TypeE3N_49 := TypeTENUM3_35.GetNewChild;
|
||||
TypeE3N_49.Tag := DW_TAG_enumerator;
|
||||
TypeE3N_49.Children := 0;
|
||||
TypeE3N_49.Add(DW_AT_name, DW_FORM_string, 'E3N'+#0);
|
||||
TypeE3N_49.Add(DW_AT_const_value, DW_FORM_data4, [$0D, $00, $00, $00]);
|
||||
|
||||
TypeE3O_50 := TypeTENUM3_35.GetNewChild;
|
||||
TypeE3O_50.Tag := DW_TAG_enumerator;
|
||||
TypeE3O_50.Children := 0;
|
||||
TypeE3O_50.Add(DW_AT_name, DW_FORM_string, 'E3O'+#0);
|
||||
TypeE3O_50.Add(DW_AT_const_value, DW_FORM_data4, [$0E, $00, $00, $00]);
|
||||
|
||||
TypeE3P_51 := TypeTENUM3_35.GetNewChild;
|
||||
TypeE3P_51.Tag := DW_TAG_enumerator;
|
||||
TypeE3P_51.Children := 0;
|
||||
TypeE3P_51.Add(DW_AT_name, DW_FORM_string, 'E3P'+#0);
|
||||
TypeE3P_51.Add(DW_AT_const_value, DW_FORM_data4, [$0F, $00, $00, $00]);
|
||||
|
||||
TypeE3Q_52 := TypeTENUM3_35.GetNewChild;
|
||||
TypeE3Q_52.Tag := DW_TAG_enumerator;
|
||||
TypeE3Q_52.Children := 0;
|
||||
TypeE3Q_52.Add(DW_AT_name, DW_FORM_string, 'E3Q'+#0);
|
||||
TypeE3Q_52.Add(DW_AT_const_value, DW_FORM_data4, [$10, $00, $00, $00]);
|
||||
|
||||
Type_53 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Type_53.Tag := DW_TAG_reference_type;
|
||||
Type_53.Children := 0;
|
||||
Type_53.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTENUM3_34); // $1B, $02, $00, $00
|
||||
|
||||
TypeDeclTENUMX_54 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeDeclTENUMX_54.Tag := DW_TAG_typedef;
|
||||
TypeDeclTENUMX_54.Children := 0;
|
||||
TypeDeclTENUMX_54.Add(DW_AT_name, DW_FORM_string, 'TENUMX'+#0);
|
||||
TypeDeclTENUMX_54.AddRef(DW_AT_type, DW_FORM_ref4, @TypeTENUMX_55); // $DB, $02, $00, $00
|
||||
|
||||
TypeTENUMX_55 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeTENUMX_55.Tag := DW_TAG_enumeration_type;
|
||||
TypeTENUMX_55.Children := 1;
|
||||
TypeTENUMX_55.Add(DW_AT_name, DW_FORM_string, 'TENUMX'+#0);
|
||||
TypeTENUMX_55.Add(DW_AT_byte_size, DW_FORM_data1, [$04]);
|
||||
|
||||
TypeEXA_56 := TypeTENUMX_55.GetNewChild;
|
||||
TypeEXA_56.Tag := DW_TAG_enumerator;
|
||||
TypeEXA_56.Children := 0;
|
||||
TypeEXA_56.Add(DW_AT_name, DW_FORM_string, 'EXA'+#0);
|
||||
TypeEXA_56.Add(DW_AT_const_value, DW_FORM_data4, [$00, $00, $00, $00]);
|
||||
|
||||
TypeEXB_57 := TypeTENUMX_55.GetNewChild;
|
||||
TypeEXB_57.Tag := DW_TAG_enumerator;
|
||||
TypeEXB_57.Children := 0;
|
||||
TypeEXB_57.Add(DW_AT_name, DW_FORM_string, 'EXB'+#0);
|
||||
TypeEXB_57.Add(DW_AT_const_value, DW_FORM_data4, [$0A, $00, $00, $00]);
|
||||
|
||||
TypeEXC_58 := TypeTENUMX_55.GetNewChild;
|
||||
TypeEXC_58.Tag := DW_TAG_enumerator;
|
||||
TypeEXC_58.Children := 0;
|
||||
TypeEXC_58.Add(DW_AT_name, DW_FORM_string, 'EXC'+#0);
|
||||
TypeEXC_58.Add(DW_AT_const_value, DW_FORM_data4, [$03, $00, $00, $00]);
|
||||
|
||||
Type_59 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Type_59.Tag := DW_TAG_reference_type;
|
||||
Type_59.Children := 0;
|
||||
Type_59.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTENUMX_54); // $CF, $02, $00, $00
|
||||
|
||||
TypeDeclTSET0_60 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeDeclTSET0_60.Tag := DW_TAG_typedef;
|
||||
TypeDeclTSET0_60.Children := 0;
|
||||
TypeDeclTSET0_60.Add(DW_AT_name, DW_FORM_string, 'TSET0'+#0);
|
||||
TypeDeclTSET0_60.AddRef(DW_AT_type, DW_FORM_ref4, @TypeTSET0_61); // $10, $03, $00, $00
|
||||
|
||||
TypeTSET0_61 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeTSET0_61.Tag := DW_TAG_set_type;
|
||||
TypeTSET0_61.Children := 0;
|
||||
TypeTSET0_61.Add(DW_AT_name, DW_FORM_string, 'TSET0'+#0);
|
||||
TypeTSET0_61.Add(DW_AT_byte_size, DW_FORM_data2, [$04, $00, $1D]);
|
||||
TypeTSET0_61.AddRef(DW_AT_type, DW_FORM_ref4, @Type_62); // $1D, $03, $00, $00
|
||||
|
||||
Type_62 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Type_62.Tag := DW_TAG_subrange_type;
|
||||
Type_62.Children := 0;
|
||||
Type_62.AddULEB(DW_AT_lower_bound, DW_FORM_sdata, 0);
|
||||
Type_62.AddULEB(DW_AT_upper_bound, DW_FORM_sdata, 0);
|
||||
Type_62.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTENUM0_12); // $55, $01, $00, $00
|
||||
|
||||
Type_63 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Type_63.Tag := DW_TAG_reference_type;
|
||||
Type_63.Children := 0;
|
||||
Type_63.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTSET0_60); // $05, $03, $00, $00
|
||||
|
||||
TypeDeclTSET1_64 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeDeclTSET1_64.Tag := DW_TAG_typedef;
|
||||
TypeDeclTSET1_64.Children := 0;
|
||||
TypeDeclTSET1_64.Add(DW_AT_name, DW_FORM_string, 'TSET1'+#0);
|
||||
TypeDeclTSET1_64.AddRef(DW_AT_type, DW_FORM_ref4, @TypeTSET1_65); // $34, $03, $00, $00
|
||||
|
||||
TypeTSET1_65 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeTSET1_65.Tag := DW_TAG_set_type;
|
||||
TypeTSET1_65.Children := 0;
|
||||
TypeTSET1_65.Add(DW_AT_name, DW_FORM_string, 'TSET1'+#0);
|
||||
TypeTSET1_65.Add(DW_AT_byte_size, DW_FORM_data2, [$04, $00, $41]);
|
||||
TypeTSET1_65.AddRef(DW_AT_type, DW_FORM_ref4, @Type_66); // $41, $03, $00, $00
|
||||
|
||||
Type_66 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Type_66.Tag := DW_TAG_subrange_type;
|
||||
Type_66.Children := 0;
|
||||
Type_66.AddULEB(DW_AT_lower_bound, DW_FORM_sdata, 0);
|
||||
Type_66.AddULEB(DW_AT_upper_bound, DW_FORM_sdata, 2);
|
||||
Type_66.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTENUM1_16); // $79, $01, $00, $00
|
||||
|
||||
Type_67 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Type_67.Tag := DW_TAG_reference_type;
|
||||
Type_67.Children := 0;
|
||||
Type_67.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTSET1_64); // $29, $03, $00, $00
|
||||
|
||||
TypeDeclTSET2_68 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeDeclTSET2_68.Tag := DW_TAG_typedef;
|
||||
TypeDeclTSET2_68.Children := 0;
|
||||
TypeDeclTSET2_68.Add(DW_AT_name, DW_FORM_string, 'TSET2'+#0);
|
||||
TypeDeclTSET2_68.AddRef(DW_AT_type, DW_FORM_ref4, @TypeTSET2_69); // $58, $03, $00, $00
|
||||
|
||||
TypeTSET2_69 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeTSET2_69.Tag := DW_TAG_set_type;
|
||||
TypeTSET2_69.Children := 0;
|
||||
TypeTSET2_69.Add(DW_AT_name, DW_FORM_string, 'TSET2'+#0);
|
||||
TypeTSET2_69.Add(DW_AT_byte_size, DW_FORM_data2, [$04, $00, $65]);
|
||||
TypeTSET2_69.AddRef(DW_AT_type, DW_FORM_ref4, @Type_70); // $65, $03, $00, $00
|
||||
|
||||
Type_70 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Type_70.Tag := DW_TAG_subrange_type;
|
||||
Type_70.Children := 0;
|
||||
Type_70.AddULEB(DW_AT_lower_bound, DW_FORM_sdata, 0);
|
||||
Type_70.AddULEB(DW_AT_upper_bound, DW_FORM_sdata, 8);
|
||||
Type_70.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTENUM2_22); // $AF, $01, $00, $00
|
||||
|
||||
Type_71 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Type_71.Tag := DW_TAG_reference_type;
|
||||
Type_71.Children := 0;
|
||||
Type_71.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTSET2_68); // $4D, $03, $00, $00
|
||||
|
||||
TypeDeclTSET3_72 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeDeclTSET3_72.Tag := DW_TAG_typedef;
|
||||
TypeDeclTSET3_72.Children := 0;
|
||||
TypeDeclTSET3_72.Add(DW_AT_name, DW_FORM_string, 'TSET3'+#0);
|
||||
TypeDeclTSET3_72.AddRef(DW_AT_type, DW_FORM_ref4, @TypeTSET3_73); // $7C, $03, $00, $00
|
||||
|
||||
TypeTSET3_73 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeTSET3_73.Tag := DW_TAG_set_type;
|
||||
TypeTSET3_73.Children := 0;
|
||||
TypeTSET3_73.Add(DW_AT_name, DW_FORM_string, 'TSET3'+#0);
|
||||
TypeTSET3_73.Add(DW_AT_byte_size, DW_FORM_data2, [$04, $00, $89]);
|
||||
TypeTSET3_73.AddRef(DW_AT_type, DW_FORM_ref4, @Type_74); // $89, $03, $00, $00
|
||||
|
||||
Type_74 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Type_74.Tag := DW_TAG_subrange_type;
|
||||
Type_74.Children := 0;
|
||||
Type_74.AddULEB(DW_AT_lower_bound, DW_FORM_sdata, 0);
|
||||
Type_74.AddULEB(DW_AT_upper_bound, DW_FORM_sdata, 16);
|
||||
Type_74.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTENUM3_34); // $1B, $02, $00, $00
|
||||
|
||||
Type_75 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Type_75.Tag := DW_TAG_reference_type;
|
||||
Type_75.Children := 0;
|
||||
Type_75.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTSET3_72); // $71, $03, $00, $00
|
||||
|
||||
TypeDeclTSETX1_76 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeDeclTSETX1_76.Tag := DW_TAG_typedef;
|
||||
TypeDeclTSETX1_76.Children := 0;
|
||||
TypeDeclTSETX1_76.Add(DW_AT_name, DW_FORM_string, 'TSETX1'+#0);
|
||||
TypeDeclTSETX1_76.AddRef(DW_AT_type, DW_FORM_ref4, @TypeTSETX1_77); // $A1, $03, $00, $00
|
||||
|
||||
TypeTSETX1_77 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
TypeTSETX1_77.Tag := DW_TAG_set_type;
|
||||
TypeTSETX1_77.Children := 0;
|
||||
TypeTSETX1_77.Add(DW_AT_name, DW_FORM_string, 'TSETX1'+#0);
|
||||
TypeTSETX1_77.Add(DW_AT_byte_size, DW_FORM_data2, [$04, $00, $AF]);
|
||||
TypeTSETX1_77.AddRef(DW_AT_type, DW_FORM_ref4, @Type_78); // $AF, $03, $00, $00
|
||||
|
||||
Type_78 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Type_78.Tag := DW_TAG_subrange_type;
|
||||
Type_78.Children := 0;
|
||||
Type_78.AddULEB(DW_AT_lower_bound, DW_FORM_sdata, 0);
|
||||
Type_78.AddULEB(DW_AT_upper_bound, DW_FORM_sdata, 2);
|
||||
Type_78.AddRef(DW_AT_type, DW_FORM_ref4, @Type_80); // $BB, $03, $00, $00
|
||||
|
||||
Type_79 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Type_79.Tag := DW_TAG_reference_type;
|
||||
Type_79.Children := 0;
|
||||
Type_79.AddRef(DW_AT_type, DW_FORM_ref4, @TypeDeclTSETX1_76); // $95, $03, $00, $00
|
||||
|
||||
Type_80 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Type_80.Tag := DW_TAG_enumeration_type;
|
||||
Type_80.Children := 1;
|
||||
Type_80.Add(DW_AT_byte_size, DW_FORM_data1, [$04]);
|
||||
|
||||
TypeS1A_81 := Type_80.GetNewChild;
|
||||
TypeS1A_81.Tag := DW_TAG_enumerator;
|
||||
TypeS1A_81.Children := 0;
|
||||
TypeS1A_81.Add(DW_AT_name, DW_FORM_string, 'S1A'+#0);
|
||||
TypeS1A_81.Add(DW_AT_const_value, DW_FORM_data4, [$00, $00, $00, $00]);
|
||||
|
||||
TypeS1B_82 := Type_80.GetNewChild;
|
||||
TypeS1B_82.Tag := DW_TAG_enumerator;
|
||||
TypeS1B_82.Children := 0;
|
||||
TypeS1B_82.Add(DW_AT_name, DW_FORM_string, 'S1B'+#0);
|
||||
TypeS1B_82.Add(DW_AT_const_value, DW_FORM_data4, [$01, $00, $00, $00]);
|
||||
|
||||
TypeS1C_83 := Type_80.GetNewChild;
|
||||
TypeS1C_83.Tag := DW_TAG_enumerator;
|
||||
TypeS1C_83.Children := 0;
|
||||
TypeS1C_83.Add(DW_AT_name, DW_FORM_string, 'S1C'+#0);
|
||||
TypeS1C_83.Add(DW_AT_const_value, DW_FORM_data4, [$02, $00, $00, $00]);
|
||||
|
||||
Type_84 := Unitdwarfsetupbasic_lpr_0.GetNewChild;
|
||||
Type_84.Tag := DW_TAG_reference_type;
|
||||
Type_84.Children := 0;
|
||||
Type_84.AddRef(DW_AT_type, DW_FORM_ref4, @Type_80); // $BB, $03, $00, $00
|
||||
|
||||
//
|
||||
SectionDbgInfo.CreateSectionData;
|
||||
SectionDbgInfo.AbbrevSection.CreateSectionData;
|
||||
end;
|
||||
|
||||
procedure TTestLoaderSetupBasic.PoissonTestFrame;
|
||||
begin
|
||||
// Ensure any out of bound reads get bad data
|
||||
FillByte(GlobalVar, SizeOf(GlobalVar), $D5);
|
||||
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
42
components/fpdebug/test/testdwarfvarious.pas
Normal file
42
components/fpdebug/test/testdwarfvarious.pas
Normal file
@ -0,0 +1,42 @@
|
||||
unit TestDwarfVarious;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
FpDbgDwarf, FpDbgUtil, LazLoggerBase, LazUTF8, sysutils, fpcunit, testregistry;
|
||||
|
||||
type
|
||||
|
||||
{ TestDwarfVarious }
|
||||
|
||||
TTestDwarfVarious = class(TTestCase)
|
||||
published
|
||||
procedure TestCompareUtf8BothCase;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
procedure TTestDwarfVarious.TestCompareUtf8BothCase;
|
||||
var
|
||||
s1, s2,s3: String;
|
||||
begin
|
||||
s2 := UTF8UpperCase( '_vptr$TOBJECT');
|
||||
s3 := UTF8LowerCase( '_vptr$TOBJECT');
|
||||
|
||||
s1 := '_vptr$TOBJECT';
|
||||
AssertTrue( CompareUtf8BothCase(@s2[1],@s3[1],@s1[1]) );
|
||||
s1 := '_Vptr$TOBJECT';
|
||||
AssertTrue( CompareUtf8BothCase(@s2[1],@s3[1],@s1[1]) );
|
||||
s1 := '_vPtR$TOBJECT';
|
||||
AssertTrue( CompareUtf8BothCase(@s2[1],@s3[1],@s1[1]) );
|
||||
s1 := '_Vvptr$TOBJECT';
|
||||
AssertFalse( CompareUtf8BothCase(@s2[1],@s3[1],@s1[1]) );
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
RegisterTest(TTestDwarfVarious);
|
||||
end.
|
||||
|
||||
@ -61,6 +61,7 @@ type
|
||||
constructor Create; override;
|
||||
property TestImgReader: TTestDummyFileSource read FImgReader;
|
||||
end;
|
||||
TTestDummyImageLoaderClass = class of TTestDummyImageLoader;
|
||||
|
||||
{ TTestDummySectionAbbrevs }
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user