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

FpDebug: Ability to request a strings codepage

Browse Source
This commit is contained in:
Joost van der Sluis 2022-03-26 20:13:00 +01:00
parent 093c5caebb
commit 09d676c6ba
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/fpdebug/fpdbgdwarffreepascal.pas
View File

@ -236,13 +236,17 @@ type
private
FValue: String;
FValueDone: Boolean;
function GetDynamicCodePage(Addr: TFpDbgMemLocation; out Codepage: TSystemCodePage): Boolean;
FDynamicCodePage: TSystemCodePage;
function GetCodePage: TSystemCodePage;
function ObtainDynamicCodePage(Addr: TFpDbgMemLocation; out Codepage: TSystemCodePage): Boolean;
protected
function IsValidTypeCast: Boolean; override;
procedure Reset; override;
function GetFieldFlags: TFpValueFieldFlags; override;
function GetAsString: AnsiString; override;
function GetAsWideString: WideString; override;
public
property DynamicCodePage: TSystemCodePage read GetCodePage;
end;
{ TFpSymbolDwarfFreePascalDataProc }
@ -1340,6 +1344,12 @@ end;
{ TFpValueDwarfV3FreePascalString }
function TFpValueDwarfV3FreePascalString.GetCodePage: TSystemCodePage;
begin
GetAsString;
Result := FDynamicCodePage;
end;
function TFpValueDwarfV3FreePascalString.IsValidTypeCast: Boolean;
var
f: TFpValueFieldFlags;
@ -1494,8 +1504,11 @@ begin
Result := '';
SetLastError(Context.LastMemError);
end else begin
if GetDynamicCodePage(Addr, Codepage) then
if ObtainDynamicCodePage(Addr, Codepage) then
begin
SetCodePage(RResult, Codepage, False);
FDynamicCodePage:=Codepage;
end;
Result := RResult;
end;
end;
@ -1509,7 +1522,7 @@ begin
Result := GetAsString;
end;
function TFpValueDwarfV3FreePascalString.GetDynamicCodePage(Addr: TFpDbgMemLocation; out
function TFpValueDwarfV3FreePascalString.ObtainDynamicCodePage(Addr: TFpDbgMemLocation; out
Codepage: TSystemCodePage): Boolean;
var
CodepageOffset: SmallInt;