paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 13:08:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

Check that tai returned by GetNextInstruction is really a taicpu object before using an explicit typecast

Browse Source
This commit is contained in:
Pierre Muller 2023-11-06 17:03:05 +00:00
parent d1a12846ba
commit d53af12a6d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/x86/aoptx86.pas
View File

@ -4535,7 +4535,7 @@ unit aoptx86;
end
else if (taicpu(hp2).oper[0]^.typ = top_ref) and
GetNextInstruction(hp2, hp4) and
(taicpu(hp4).opcode = A_MOV) then
(hp4 is taicpu) and (taicpu(hp4).opcode = A_MOV) then
{ Optimise the following first:
movl [mem1],reg1
movl [mem1],reg2