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

Remove another wrong typecast when testing that a tai is an instruction

Browse Source 
git-svn-id: trunk@40131 -
This commit is contained in:
pierre 2018-11-01 07:01:02 +00:00
parent a34b1f36e0
commit 96460b70b2
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/m68k/aoptcpu.pas
View File

@ -139,7 +139,7 @@ unit aoptcpu;
result:=false;
if GetNextInstruction(p,next) and
(taicpu(next).typ = ait_instruction) and
(next.typ = ait_instruction) and
(taicpu(next).opcode = taicpu(p).opcode) and
(taicpu(p).opsize = taicpu(next).opsize) and
(taicpu(p).oper[1]^.typ = top_reg) and