diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-04-13 17:07:36 +0200 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@adacore.com> | 2021-04-13 17:11:15 +0200 |
| commit | 39fa0de5994559d4f672a5528ea09433cbe6ec80 (patch) | |
| tree | ccf7e930c39ee5cabf40f4b1c29a63e4798bf22e /gcc/ada/gcc-interface/misc.c | |
| parent | f9810422f6768b914aabfcbffe64f535bdd18452 (diff) | |
| download | gcc-39fa0de5994559d4f672a5528ea09433cbe6ec80.zip gcc-39fa0de5994559d4f672a5528ea09433cbe6ec80.tar.gz gcc-39fa0de5994559d4f672a5528ea09433cbe6ec80.tar.bz2 | |
Further increase the limit on the size of accepted Ada files
It turns out that the limit on the size of accepted Ada files had been
already lowered earlier, namely when location ranges had been introduced.
Now we do not make use of location ranges in Ada so we can recoup the loss.
gcc/ada/
* gcc-interface/misc.c (gnat_init): Set default range bits to 0.
* gcc-interface/trans.c (extract_encoding): Delete.
(decode_name): Likewise.
(File_Name_to_gnu): New function.
(gigi): Call it to translate file names. Replace assertion on
1-1 mapping between files and line maps with conditional error.
Diffstat (limited to 'gcc/ada/gcc-interface/misc.c')
| -rw-r--r-- | gcc/ada/gcc-interface/misc.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c index d0867e0..16bccb9 100644 --- a/gcc/ada/gcc-interface/misc.c +++ b/gcc/ada/gcc-interface/misc.c @@ -370,6 +370,9 @@ gnat_init (void) sbitsize_one_node = sbitsize_int (1); sbitsize_unit_node = sbitsize_int (BITS_PER_UNIT); + /* In Ada, we do not use location ranges. */ + line_table->default_range_bits = 0; + /* Register our internal error function. */ global_dc->internal_error = &internal_error_function; |