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

LazDebuggerGdbmi: Fix compile for non-win targets.

Browse Source
This commit is contained in:
Martin 2022-02-01 20:17:02 +01:00
parent f895353287
commit 6adac81859
1 changed files with 31 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -14677,39 +14677,41 @@ begin
finally finally
UnSelectContext; UnSelectContext;
if FWatchValue <> nil then begin if FWatchValue <> nil then begin
if (FTypeInfo <> nil) and (FTypeInfo.Kind in [skSimple, skPointer, skInteger, skCardinal]) and repeat
(FWatchValue.RepeatCount <= 0) if (FTypeInfo <> nil) and (FTypeInfo.Kind in [skSimple, skPointer, skInteger, skCardinal]) and
then begin (FWatchValue.RepeatCount <= 0)
NumFlags := []; then begin
n := 0; NumFlags := [];
if (FTypeInfo.Kind = skPointer) then begin n := 0;
NumFlags := [nvfAddrType]; if (FTypeInfo.Kind = skPointer) then begin
n := TargetInfo^.TargetPtrSize; NumFlags := [nvfAddrType];
end; n := TargetInfo^.TargetPtrSize;
FTextValue := Trim(FTextValue);
if (FTypeInfo.Kind = skInteger) or ((FTextValue <> '') and (FTextValue[1]='-')) then begin
if TryStrToInt64(FTextValue, Int64(NumVal)) then begin
FWatchValue.SetNumValue(NumVal, n, NumFlags);
FWatchValue.SetTypeName(FTypeInfo.TypeName);
FWatchValue.Validity := FValidity;
exit;
end; end;
end
else begin FTextValue := Trim(FTextValue);
Include(NumFlags, nvfUnsigned); if (FTypeInfo.Kind = skInteger) or ((FTextValue <> '') and (FTextValue[1]='-')) then begin
if TryStrToQWord(FTextValue, NumVal) then begin if TryStrToInt64(FTextValue, Int64(NumVal)) then begin
FWatchValue.SetNumValue(NumVal, n, NumFlags); FWatchValue.SetNumValue(NumVal, n, NumFlags);
FWatchValue.SetTypeName(FTypeInfo.TypeName); FWatchValue.SetTypeName(FTypeInfo.TypeName);
FWatchValue.Validity := FValidity; FWatchValue.Validity := FValidity;
exit; break;
end;
end
else begin
Include(NumFlags, nvfUnsigned);
if TryStrToQWord(FTextValue, NumVal) then begin
FWatchValue.SetNumValue(NumVal, n, NumFlags);
FWatchValue.SetTypeName(FTypeInfo.TypeName);
FWatchValue.Validity := FValidity;
break;
end;
end; end;
end; end;
end;
FWatchValue.Value := FTextValue; FWatchValue.Value := FTextValue;
FWatchValue.TypeInfo := TypeInfo; FWatchValue.TypeInfo := TypeInfo;
FWatchValue.Validity := FValidity; FWatchValue.Validity := FValidity;
until true;
end; end;
end; end;
end; end;