diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-06-17 21:50:25 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-06-17 21:50:25 +0200 |
commit | 473c83961abe4e2fb52c8812e46bf19a41fe52cf (patch) | |
tree | 130b71c9e47b60837257ab7b104adf99d44152b8 /src/ortho/gcc | |
parent | 6581cce8c6ea51b5386156fa4d21bd8f1865f851 (diff) | |
download | ghdl-473c83961abe4e2fb52c8812e46bf19a41fe52cf.tar.gz ghdl-473c83961abe4e2fb52c8812e46bf19a41fe52cf.tar.bz2 ghdl-473c83961abe4e2fb52c8812e46bf19a41fe52cf.zip |
src/ortho: add new_convert.
Diffstat (limited to 'src/ortho/gcc')
-rw-r--r-- | src/ortho/gcc/ortho-lang-49.c | 8 | ||||
-rw-r--r-- | src/ortho/gcc/ortho-lang-5.c | 8 | ||||
-rw-r--r-- | src/ortho/gcc/ortho-lang-6.c | 8 | ||||
-rw-r--r-- | src/ortho/gcc/ortho-lang-7.c | 8 | ||||
-rw-r--r-- | src/ortho/gcc/ortho-lang-8.c | 8 | ||||
-rw-r--r-- | src/ortho/gcc/ortho-lang-9.c | 8 | ||||
-rw-r--r-- | src/ortho/gcc/ortho_gcc.ads | 2 | ||||
-rw-r--r-- | src/ortho/gcc/ortho_gcc.private.ads | 1 |
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); |