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

Avoid wrong typecast by checking explictly that hp1 is indeed an instruction

Browse Source
This commit is contained in:
Pierre Muller 2025-01-07 14:40:09 +00:00
parent e9a49204ab
commit f2f39d4aaa
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/riscv/aoptcpurv.pas
View File

@ -262,7 +262,7 @@ implementation
<FOp> %reg3,%reg2,%reg2 <FOp> %reg3,%reg2,%reg2
? ?
} }
if GetNextInstruction(p,hp1) and if GetNextInstruction(p,hp1) and (hp1.typ=ait_instruction) and
(((mvop=A_FSGNJ_S) and (taicpu(hp1).opcode in [A_FADD_S,A_FSUB_S,A_FMUL_S,A_FDIV_S,A_FSQRT_S, (((mvop=A_FSGNJ_S) and (taicpu(hp1).opcode in [A_FADD_S,A_FSUB_S,A_FMUL_S,A_FDIV_S,A_FSQRT_S,
A_FNEG_S,A_FMADD_S,A_FMSUB_S,A_FNMSUB_S,A_FNMADD_S,A_FMIN_S,A_FMAX_S,A_FCVT_D_S, A_FNEG_S,A_FMADD_S,A_FMSUB_S,A_FNMSUB_S,A_FNMADD_S,A_FMIN_S,A_FMAX_S,A_FCVT_D_S,
A_FEQ_S])) or A_FEQ_S])) or