From 8a3f67db595be25637b4edc65f18138b48ccdac6 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 12 Jun 2015 08:03:24 +0200 Subject: ortho: allow selected element from an union. Minor cleanups. --- src/ortho/ortho_nodes.common.ads | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/ortho/ortho_nodes.common.ads') diff --git a/src/ortho/ortho_nodes.common.ads b/src/ortho/ortho_nodes.common.ads index 178187482..f9caf32a7 100644 --- a/src/ortho/ortho_nodes.common.ads +++ b/src/ortho/ortho_nodes.common.ads @@ -284,8 +284,8 @@ package ORTHO_NODES is function New_Slice (Arr : O_Lnode; Res_Type : O_Tnode; Index : O_Enode) return O_Lnode; - -- Get an element of a record. - -- Type of REC must be a record type. + -- Get an element of a record or a union. + -- Type of REC must be a record or a union type. function New_Selected_Element (Rec : O_Lnode; El : O_Fnode) return O_Lnode; -- cgit v1.2.3