src/ortho: add new_convert.

8 files changed, 45 insertions, 6 deletions

diff --git a/src/ortho/gcc/ortho-lang-49.c b/src/ortho/gcc/ortho-lang-49.c
index 1c127fdb1..6be55dabe 100644
--- a/src/ortho/gcc/ortho-lang-49.c
+++ b/src/ortho/gcc/ortho-lang-49.c
@@ -946,7 +946,7 @@ new_compare_op (enum ON_op_kind kind, tree left, tree right, tree ntype)
 }
 
 tree
-new_convert_ov (tree val, tree rtype)
+new_convert (tree val, tree rtype)
 {
   tree val_type;
   enum tree_code val_code;
@@ -1009,6 +1009,12 @@ new_convert_ov (tree val, tree rtype)
 }
 
 tree
+new_convert_ov (tree val, tree rtype)
+{
+  return new_convert (val, rtype);
+}
+
+tree
 new_alloca (tree rtype, tree size)
 {
   tree res;
diff --git a/src/ortho/gcc/ortho-lang-5.c b/src/ortho/gcc/ortho-lang-5.c
index 6f478b8d8..140a4a370 100644
--- a/src/ortho/gcc/ortho-lang-5.c
+++ b/src/ortho/gcc/ortho-lang-5.c
@@ -933,7 +933,7 @@ new_compare_op (enum ON_op_kind kind, tree left, tree right, tree ntype)
 }
 
 tree
-new_convert_ov (tree val, tree rtype)
+new_convert (tree val, tree rtype)
 {
   tree val_type;
   enum tree_code val_code;
@@ -996,6 +996,12 @@ new_convert_ov (tree val, tree rtype)
 }
 
 tree
+new_convert_ov (tree val, tree rtype)
+{
+  return new_convert (val, rtype);
+}
+
+tree
 new_alloca (tree rtype, tree size)
 {
   tree res;
diff --git a/src/ortho/gcc/ortho-lang-6.c b/src/ortho/gcc/ortho-lang-6.c
index 2fd5be401..550006b66 100644
--- a/src/ortho/gcc/ortho-lang-6.c
+++ b/src/ortho/gcc/ortho-lang-6.c
@@ -933,7 +933,7 @@ new_compare_op (enum ON_op_kind kind, tree left, tree right, tree ntype)
 }
 
 tree
-new_convert_ov (tree val, tree rtype)
+new_convert (tree val, tree rtype)
 {
   tree val_type;
   enum tree_code val_code;
@@ -996,6 +996,12 @@ new_convert_ov (tree val, tree rtype)
 }
 
 tree
+new_convert_ov (tree val, tree rtype)
+{
+  return new_convert (val, rtype);
+}
+
+tree
 new_alloca (tree rtype, tree size)
 {
   tree res;
diff --git a/src/ortho/gcc/ortho-lang-7.c b/src/ortho/gcc/ortho-lang-7.c
index f78bf0460..395edb617 100644
--- a/src/ortho/gcc/ortho-lang-7.c
+++ b/src/ortho/gcc/ortho-lang-7.c
@@ -945,7 +945,7 @@ new_compare_op (enum ON_op_kind kind, tree left, tree right, tree ntype)
 }
 
 tree
-new_convert_ov (tree val, tree rtype)
+new_convert (tree val, tree rtype)
 {
   tree val_type;
   enum tree_code val_code;
@@ -1008,6 +1008,12 @@ new_convert_ov (tree val, tree rtype)
 }
 
 tree
+new_convert_ov (tree val, tree rtype)
+{
+  return new_convert (val, rtype);
+}
+
+tree
 new_alloca (tree rtype, tree size)
 {
   tree res;
diff --git a/src/ortho/gcc/ortho-lang-8.c b/src/ortho/gcc/ortho-lang-8.c
index 51b4a86f8..091565055 100644
--- a/src/ortho/gcc/ortho-lang-8.c
+++ b/src/ortho/gcc/ortho-lang-8.c
@@ -946,7 +946,7 @@ new_compare_op (enum ON_op_kind kind, tree left, tree right, tree ntype)
 }
 
 tree
-new_convert_ov (tree val, tree rtype)
+new_convert (tree val, tree rtype)
 {
   tree val_type;
   enum tree_code val_code;
@@ -1009,6 +1009,12 @@ new_convert_ov (tree val, tree rtype)
 }
 
 tree
+new_convert_ov (tree val, tree rtype)
+{
+  return new_convert (val, rtype);
+}
+
+tree
 new_alloca (tree rtype, tree size)
 {
   tree res;
diff --git a/src/ortho/gcc/ortho-lang-9.c b/src/ortho/gcc/ortho-lang-9.c
index 80e793125..38bed3caa 100644
--- a/src/ortho/gcc/ortho-lang-9.c
+++ b/src/ortho/gcc/ortho-lang-9.c
@@ -946,7 +946,7 @@ new_compare_op (enum ON_op_kind kind, tree left, tree right, tree ntype)
 }
 
 tree
-new_convert_ov (tree val, tree rtype)
+new_convert (tree val, tree rtype)
 {
   tree val_type;
   enum tree_code val_code;
@@ -1009,6 +1009,12 @@ new_convert_ov (tree val, tree rtype)
 }
 
 tree
+new_convert_ov (tree val, tree rtype)
+{
+  return new_convert (val, rtype);
+}
+
+tree
 new_alloca (tree rtype, tree size)
 {
   tree res;
diff --git a/src/ortho/gcc/ortho_gcc.ads b/src/ortho/gcc/ortho_gcc.ads
index d5cbf51c1..0c1ee81b6 100644
--- a/src/ortho/gcc/ortho_gcc.ads
+++ b/src/ortho/gcc/ortho_gcc.ads
@@ -313,6 +313,7 @@ package Ortho_Gcc 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.
@@ -610,6 +611,7 @@ private
    pragma Import (C, New_Compare_Op);
 
    pragma Import (C, New_Convert_Ov);
+   pragma Import (C, New_Convert);
    pragma Import (C, New_Alloca);
 
    pragma Import (C, New_Signed_Literal);
diff --git a/src/ortho/gcc/ortho_gcc.private.ads b/src/ortho/gcc/ortho_gcc.private.ads
index 3bae8526e..f8f6cfb3c 100644
--- a/src/ortho/gcc/ortho_gcc.private.ads
+++ b/src/ortho/gcc/ortho_gcc.private.ads
@@ -165,6 +165,7 @@ private
    pragma Import (C, New_Compare_Op);
 
    pragma Import (C, New_Convert_Ov);
+   pragma Import (C, New_Convert);
    pragma Import (C, New_Alloca);
 
    pragma Import (C, New_Signed_Literal);