diff options
Diffstat (limited to 'gcc/ada/gcc-interface/utils2.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils2.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c index 0671308..8088d53 100644 --- a/gcc/ada/gcc-interface/utils2.c +++ b/gcc/ada/gcc-interface/utils2.c @@ -1590,8 +1590,8 @@ build_call_raise_range (int msg, Node_Id gnat_node, build_index_type (size_int (len))); call = build_call_nary (TREE_TYPE (TREE_TYPE (fndecl)), - build_unary_op (ADDR_EXPR, NULL_TREE, fndecl), - 6, + build_unary_op (ADDR_EXPR, NULL_TREE, fndecl), + 6, build1 (ADDR_EXPR, build_pointer_type (unsigned_char_type_node), filename), @@ -1644,8 +1644,8 @@ build_call_raise_column (int msg, Node_Id gnat_node) build_index_type (size_int (len))); call = build_call_nary (TREE_TYPE (TREE_TYPE (fndecl)), - build_unary_op (ADDR_EXPR, NULL_TREE, fndecl), - 3, + build_unary_op (ADDR_EXPR, NULL_TREE, fndecl), + 3, build1 (ADDR_EXPR, build_pointer_type (unsigned_char_type_node), filename), |