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

FpDebug: change "open array" params to "const"

Browse Source 
git-svn-id: trunk@59931 -
This commit is contained in:
martin 2018-12-29 00:35:22 +00:00
parent 870af3d3e8
commit 8524c41d52
2 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/fpdebug/fpdbgdwarf.pas
View File

@ -411,9 +411,9 @@ type
function GetAsCardinal: QWord; override;
function GetDataAddress: TFpDbgMemLocation; override;
function GetMember(AIndex: Int64): TFpDbgValue; override;
function GetMemberEx(AIndex: array of Int64): TFpDbgValue; override;
function GetMemberEx(const AIndex: array of Int64): TFpDbgValue; override;
function GetMemberCount: Integer; override;
function GetMemberCountEx(AIndex: array of Int64): Integer; override;
function GetMemberCountEx(const AIndex: array of Int64): Integer; override;
function GetIndexType(AIndex: Integer): TFpDbgSymbol; override;
function GetIndexTypeCount: Integer; override;
function IsValidTypeCast: Boolean; override;
@ -835,7 +835,7 @@ DECL = DW_AT_decl_column, DW_AT_decl_file, DW_AT_decl_line
function GetMember(AIndex: Int64): TFpDbgSymbol; override;
function GetMemberByName({%H-}AIndex: String): TFpDbgSymbol; override;
function GetMemberCount: Integer; override;
function GetMemberAddress(AValObject: TFpDwarfValue; AIndex: Array of Int64): TFpDbgMemLocation;
function GetMemberAddress(AValObject: TFpDwarfValue; const AIndex: Array of Int64): TFpDbgMemLocation;
public
destructor Destroy; override;
end;
@ -2639,7 +2639,8 @@ begin
Result := GetMemberEx([AIndex]);
end;
function TFpDwarfValueArray.GetMemberEx(AIndex: array of Int64): TFpDbgValue;
function TFpDwarfValueArray.GetMemberEx(const AIndex: array of Int64
): TFpDbgValue;
var
Addr: TFpDbgMemLocation;
i: Integer;
@ -2715,7 +2716,8 @@ begin
end;
end;
function TFpDwarfValueArray.GetMemberCountEx(AIndex: array of Int64): Integer;
function TFpDwarfValueArray.GetMemberCountEx(const AIndex: array of Int64
): Integer;
var
t: TFpDbgSymbol;
begin
@ -4415,7 +4417,7 @@ begin
end;
function TFpDwarfSymbolTypeArray.GetMemberAddress(AValObject: TFpDwarfValue;
AIndex: array of Int64): TFpDbgMemLocation;
const AIndex: array of Int64): TFpDbgMemLocation;
var
Idx, Offs, Factor: Int64;
LowBound, HighBound: int64;

8
components/fpdebug/fpdbginfo.pas
View File

@ -152,8 +152,8 @@ type
function GetMemberCount: Integer; virtual;
function GetIndexType({%H-}AIndex: Integer): TFpDbgSymbol; virtual;
function GetIndexTypeCount: Integer; virtual;
function GetMemberCountEx({%H-}AIndex: array of Int64): Integer; virtual;
function GetMemberEx({%H-}AIndex: Array of Int64): TFpDbgValue; virtual;
function GetMemberCountEx(const AIndex: array of Int64): Integer; virtual;
function GetMemberEx(const AIndex: Array of Int64): TFpDbgValue; virtual;
function GetDbgSymbol: TFpDbgSymbol; virtual;
function GetTypeInfo: TFpDbgSymbol; virtual;
@ -671,12 +671,12 @@ begin
Result := 0;
end;
function TFpDbgValue.GetMemberEx(AIndex: array of Int64): TFpDbgValue;
function TFpDbgValue.GetMemberEx(const AIndex: array of Int64): TFpDbgValue;
begin
Result := nil;
end;
function TFpDbgValue.GetMemberCountEx(AIndex: array of Int64): Integer;
function TFpDbgValue.GetMemberCountEx(const AIndex: array of Int64): Integer;
begin
Result := 0;
end;