Forráskód Böngészése

A subscript can also trigger an exception.

git-svn-id: branches/laksen/riscv_new@39718 -
Jeppe Johansen 6 éve
szülő
commit
f828d8700c
1 módosított fájl, 1 hozzáadás és 1 törlés
  1. 1 1
      compiler/nutils.pas

+ 1 - 1
compiler/nutils.pas

@@ -1344,7 +1344,7 @@ implementation
              in_shr_assign_x_y,in_rol_assign_x_y,in_ror_assign_x_y,in_neg_assign_x,in_not_assign_x])
           ) or
           ((mhs_exceptions in pmhs_flags(arg)^) and
-           ((n.nodetype in [derefn,vecn]) or
+           ((n.nodetype in [derefn,vecn,subscriptn]) or
             ((n.nodetype in [addn,subn,muln,divn,slashn,unaryminusn]) and (n.localswitches*[cs_check_overflow,cs_check_range]<>[]))
            )
           ) then