diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2007-08-16 14:21:07 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-08-16 14:21:07 +0200 |
| commit | dae2b8eaa891aa280bb99103045bde802af66086 (patch) | |
| tree | 0989d9ca5b50bc66dbae68eaaf4a0c7ab927a05e /gcc/ada/utils.c | |
| parent | ace980d5d8b6443b4e0d8d5b9cdcd34083c5e09b (diff) | |
| download | gcc-dae2b8eaa891aa280bb99103045bde802af66086.zip gcc-dae2b8eaa891aa280bb99103045bde802af66086.tar.gz gcc-dae2b8eaa891aa280bb99103045bde802af66086.tar.bz2 | |
sem_res.adb (Comes_From_Predefined_Lib_Unit): New.
2007-08-16 Hristian Kirtchev <kirtchev@adacore.com>
Bob Duff <duff@adacore.com>
Nicolas Setton <setton@adacore.com>
* sem_res.adb (Comes_From_Predefined_Lib_Unit): New.
(Resolve): Alphabetize local variables. Add new variable From_Lib. When
the statement which is being resolved comes from a predefined library
unit, all non-predefined library interpretations are skipped.
(Resolve_Op_Concat): If string concatenation was folded in the parser,
but the "&" is user defined, give an error, because the folding would
be wrong.
* sinfo.ads, sinfo.adb (Is_Folded_In_Parser): New flag to indicate that
the parser has folded a long sequence of concatenations of string
literals.
* trans.c (Handled_Sequence_Of_Statements_to_gnu): Mark "JMPBUF_SAVE"
and "JMP_BUF" variables as artificial.
(N_String_Literal): Do not use alloca for very long string literals. Use
xmalloc/free instead. Otherwise the stack might overflow.
* utils.c (init_gigi_decls): Mark "JMPBUF_T" type as created by the
compiler.
From-SVN: r127550
Diffstat (limited to 'gcc/ada/utils.c')
| -rw-r--r-- | gcc/ada/utils.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index d26395f..86e80f1 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -592,7 +592,7 @@ init_gigi_decls (tree long_long_float_type, tree exception_type) = build_array_type (gnat_type_for_mode (Pmode, 0), build_index_type (build_int_cst (NULL_TREE, 5))); create_type_decl (get_identifier ("JMPBUF_T"), jmpbuf_type, NULL, - false, true, Empty); + true, true, Empty); jmpbuf_ptr_type = build_pointer_type (jmpbuf_type); /* Functions to get and set the jumpbuf pointer for the current thread. */ |