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

Minimalist change to avoid Invalid Typecast error on class when compiled with '-CriotR -O2' for i386-go32v2 target

Browse Source 
git-svn-id: trunk@43565 -
This commit is contained in:
pierre 2019-11-23 22:44:30 +00:00
parent f7d6192905
commit c882828fd0
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/i386/aoptcpu.pas
View File

@ -94,6 +94,8 @@ unit aoptcpu;
p := tai(p.next); p := tai(p.next);
Result:=true; Result:=true;
end; end;
if not (p is taicpu) then
exit;
case taicpu(p).opcode Of case taicpu(p).opcode Of
A_IMUL: A_IMUL:
Result:=PrePeepholeOptIMUL(p); Result:=PrePeepholeOptIMUL(p);