diff options
| author | Olivier Hainque <hainque@adacore.com> | 2005-12-09 18:17:51 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-12-09 18:17:51 +0100 |
| commit | d1586072d0357bf1e46dfe82f91cae3f28cbecd7 (patch) | |
| tree | 6fb302ccd8f67f6f9f83ab43088041df9bc19d03 /gcc/ada/gigi.h | |
| parent | 52739835a1902dfe18f439c64a30e15374619e29 (diff) | |
| download | gcc-d1586072d0357bf1e46dfe82f91cae3f28cbecd7.zip gcc-d1586072d0357bf1e46dfe82f91cae3f28cbecd7.tar.gz gcc-d1586072d0357bf1e46dfe82f91cae3f28cbecd7.tar.bz2 | |
trans.c (tree_transform, emit_check): Adjust calls to build_call_raise, passing the now expected GNAT_NODE argument.
2005-12-05 Olivier Hainque <hainque@adacore.com>
Eric Botcazou <ebotcazou@adacore.com>
* trans.c (tree_transform, emit_check): Adjust calls to
build_call_raise, passing the now expected GNAT_NODE argument.
* gigi.h (build_call_raise): Add a GNAT_NODE argument to convey better
source line information than what the current global locus indicates
when appropriate.
* utils2.c (build_simple_component_ref): Return 0 if the offset of the
field has overflowed.
(build_call_raise): Add a GNAT_NODE argument to convey better source
line information than what the current global locus indicates when
appropriate.
(build_component_ref): Adjust call to build_call_raise.
From-SVN: r108290
Diffstat (limited to 'gcc/ada/gigi.h')
| -rw-r--r-- | gcc/ada/gigi.h | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/gigi.h b/gcc/ada/gigi.h index 6dd10ff..2552e56 100644 --- a/gcc/ada/gigi.h +++ b/gcc/ada/gigi.h @@ -710,8 +710,12 @@ extern tree build_call_2_expr (tree fundecl, tree arg1, tree arg2); extern tree build_call_0_expr (tree fundecl); /* Call a function that raises an exception and pass the line number and file - name, if requested. MSG says which exception function to call. */ -extern tree build_call_raise (int msg); + name, if requested. MSG says which exception function to call. + + GNAT_NODE is the gnat node conveying the source location for which the + error should be signaled, or Empty in which case the error is signaled on + the current ref_file_name/input_line. */ +extern tree build_call_raise (int msg, Node_Id gnat_node); /* Return a CONSTRUCTOR of TYPE whose list is LIST. This is not the same as build_constructor in the language-independent tree.c. */ |