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/llvm/ortho_llvm.ads | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/ortho/llvm')

diff --git a/src/ortho/llvm/ortho_llvm.ads b/src/ortho/llvm/ortho_llvm.ads
index 931977b..69a850f 100644
--- a/src/ortho/llvm/ortho_llvm.ads
+++ b/src/ortho/llvm/ortho_llvm.ads
@@ -313,8 +313,8 @@ package Ortho_LLVM 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