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

FpDebug: fix I2O intrinsic / value to "out param" can't be passed as ref in other param.

Browse Source
This commit is contained in:
Martin 2024-08-15 22:43:10 +02:00
parent f54755cc79
commit c8f30b1459
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpdebug/fpdbgdwarffreepascal.pas
View File

@ -2604,7 +2604,7 @@ var
Arg: TFpValue;
ctx: TFpDbgLocationContext;
Addr, CodeAddr: TDBGPtr;
DataLoc: TFpDbgMemLocation;
DataLoc, DataLoc2: TFpDbgMemLocation;
instr: TX86AsmInstruction;
O1, O2: TInstructionOperand;
OpVal: Int64;
@ -2639,14 +2639,14 @@ begin
else SetError('Could not get memory address');
exit;
end;
ctx.ReadAddress(DataLoc, SizeVal(ctx.SizeOfAddress), DataLoc);
if not IsTargetNotNil(DataLoc) then begin
ctx.ReadAddress(DataLoc, SizeVal(ctx.SizeOfAddress), DataLoc2);
if not IsTargetNotNil(DataLoc2) then begin
if IsError(ctx.LastMemError) then SetError(ctx.LastMemError)
else SetError('Could not get memory address');
exit;
end;
CodeAddr := DataLoc.Address;
CodeAddr := DataLoc2.Address;
instr := TX86AsmInstruction(FDisAssembler.GetInstructionInfo(CodeAddr));
if instr.X86OpCode = OPsub then begin