diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-04 11:38:06 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-04 11:38:06 +0200 |
| commit | 819fad69b2dd553d635c8d713ec9994aea7de635 (patch) | |
| tree | d77eb384b7e3af0d0ac468083db50e6cb85fa864 /gcc/ada/gcc-interface/gigi.h | |
| parent | 48fbb62da172a73e7b585a272fada37f28443d27 (diff) | |
| download | gcc-819fad69b2dd553d635c8d713ec9994aea7de635.zip gcc-819fad69b2dd553d635c8d713ec9994aea7de635.tar.gz gcc-819fad69b2dd553d635c8d713ec9994aea7de635.tar.bz2 | |
gigi.h (fill_vms_descriptor): Add third parameter gnat_actual
2008-08-04 Doug Rupp <rupp@adacore.com>
* gigi.h (fill_vms_descriptor): Add third parameter gnat_actual
* trans.c (call_to_gnu): Call fill_vms_descriptor with new parameter.
* utils2.c (fill_vms_descriptor): Add third parameter for error sloc and
use it. Calculate pointer range overflow using 64bit types.
From-SVN: r138594
Diffstat (limited to 'gcc/ada/gcc-interface/gigi.h')
| -rw-r--r-- | gcc/ada/gcc-interface/gigi.h | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h index 915e44f..1b3fa24 100644 --- a/gcc/ada/gcc-interface/gigi.h +++ b/gcc/ada/gcc-interface/gigi.h @@ -853,8 +853,10 @@ extern tree build_allocator (tree type, tree init, tree result_type, Node_Id gnat_node, bool); /* Fill in a VMS descriptor for EXPR and return a constructor for it. - GNAT_FORMAL is how we find the descriptor record. */ -extern tree fill_vms_descriptor (tree expr, Entity_Id gnat_formal); + GNAT_FORMAL is how we find the descriptor record. GNAT_ACTUAL is how + we derive the source location on a C_E */ +extern tree fill_vms_descriptor (tree expr, Entity_Id gnat_formal, + Node_Id gnat_actual); /* Indicate that we need to make the address of EXPR_NODE and it therefore should not be allocated in a register. Return true if successful. */ |