From 473c83961abe4e2fb52c8812e46bf19a41fe52cf Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 17 Jun 2020 21:50:25 +0200
Subject: src/ortho: add new_convert.

---
 src/ortho/mcode/ortho_code-exprs.ads | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/ortho/mcode/ortho_code-exprs.ads')

diff --git a/src/ortho/mcode/ortho_code-exprs.ads b/src/ortho/mcode/ortho_code-exprs.ads
index 0bb5ec2bb..b1d95e45e 100644
--- a/src/ortho/mcode/ortho_code-exprs.ads
+++ b/src/ortho/mcode/ortho_code-exprs.ads
@@ -75,6 +75,7 @@ package Ortho_Code.Exprs is
       --  ARG1 is expression.
       --  ARG2: type
       OE_Conv_Ptr,
+      OE_Conv_Ov,
       OE_Conv,
 
       --  Typed expression.
@@ -478,6 +479,7 @@ package Ortho_Code.Exprs is
    --  Allowed conversions are:
    --  FIXME: to write.
    function New_Convert_Ov (Val : O_Enode; Rtype : O_Tnode) return O_Enode;
+   function New_Convert (Val : O_Enode; Rtype : O_Tnode) return O_Enode;
 
    --  Get the address of LVALUE.
    --  ATYPE must be a type access whose designated type is the type of LVALUE.
-- 
cgit v1.2.3