diff options
| author | laksen <laksen@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-09-09 14:41:37 +0000 |
|---|---|---|
| committer | laksen <laksen@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-09-09 14:41:37 +0000 |
| commit | e20a765cf7422ac03bba787f947468132de12ae7 (patch) | |
| tree | 823d8f85c64ae60a8787548e107ce685384d8d1a | |
| parent | 86edcc3c7d59ed940e52a15b845caf297d484eaf (diff) | |
| download | fpc-e20a765cf7422ac03bba787f947468132de12ae7.tar.gz | |
A subscript can also trigger an exception.
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/laksen@39718 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | riscv_new/compiler/nutils.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/riscv_new/compiler/nutils.pas b/riscv_new/compiler/nutils.pas index 2ebd6f05dc..fa91b3bee4 100644 --- a/riscv_new/compiler/nutils.pas +++ b/riscv_new/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 |