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

LazDebuggerFp: fix hook for i2o intrinsic.

Browse Source
This commit is contained in:
Martin 2024-07-28 19:14:31 +02:00
parent 0b109f4e2d
commit 0a223f247c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/lazdebuggers/lazdebuggerfp/fpdebugdebuggerworkthreads.pas
View File

@ -1118,6 +1118,7 @@ end;
function TFpThreadWorkerEvaluate.DoFindIntrinsic(AnExpression: TFpPascalExpression; AStart: PChar;
ALen: Integer): TFpPascalExpressionPartIntrinsicBase;
begin
Result := nil;
if (ALen = 3) and (strlicomp(AStart, pchar('i2o'), 3) = 0) and
(FDebugger.DbgController.CurrentProcess.Disassembler is TX86AsmDecoder)
then