paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 05:01:50 +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

6
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -14677,6 +14677,7 @@ begin
finally finally
UnSelectContext; UnSelectContext;
if FWatchValue <> nil then begin if FWatchValue <> nil then begin
repeat
if (FTypeInfo <> nil) and (FTypeInfo.Kind in [skSimple, skPointer, skInteger, skCardinal]) and if (FTypeInfo <> nil) and (FTypeInfo.Kind in [skSimple, skPointer, skInteger, skCardinal]) and
(FWatchValue.RepeatCount <= 0) (FWatchValue.RepeatCount <= 0)
then begin then begin
@ -14693,7 +14694,7 @@ 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;
end end
else begin else begin
@ -14702,7 +14703,7 @@ 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;
end; end;
end; end;
@ -14710,6 +14711,7 @@ begin
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;