@@ -15,8 +15,8 @@ fun is_dynamic_subtyped_entity(name) =
15
15
| DefiningName => name.p_basic_decl()
16
16
| Name => name.p_referenced_decl();
17
17
decl is (ComponentDef | DiscriminantSpec | ObjectDecl | ParamSpec)
18
- when decl.f_type_expr is (SubtypeIndication | Name )(
19
- p_is_static_subtype (): false
18
+ when decl.f_type_expr is (SubtypeIndication)(
19
+ p_is_statically_constrained (): false
20
20
)
21
21
}
22
22
@@ -27,7 +27,7 @@ fun array_index_has_kp(expr, array_decl, child_n) =
27
27
|" ``child_n``.
28
28
match expr.f_suffix[child_n]?.f_r_expr
29
29
| e when is_static_int_attr(e) =>
30
- if array_decl.f_type_expr.p_is_static_subtype ()
30
+ if array_decl.f_type_expr.p_is_statically_constrained ()
31
31
then array_index_has_kp(expr, array_decl, child_n + 1)
32
32
| null => false
33
33
| * => array_index_has_kp(expr, array_decl, child_n + 1)
@@ -61,6 +61,6 @@ fun kp_19501(node) =
61
61
is_dynamic_subtyped_entity(node.f_dest)
62
62
| QualExpr(f_suffix: ParenExpr(f_expr: operand)) =>
63
63
is_static_int_attr(operand) and
64
- node.f_prefix is (SubtypeIndication | Name)(
65
- p_is_static_subtype (): false
64
+ node.f_prefix is (Name)(
65
+ p_name_designated_type (): BaseTypeDecl(p_is_statically_constrained(): false)
66
66
)
0 commit comments