aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/atree.h
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2015-03-02 12:20:29 +0100
committerArnaud Charlet <charlet@gcc.gnu.org>2015-03-02 12:20:29 +0100
commit3830827c54e72b96400c9f9803b5518e8fb9f23d (patch)
treea95495c02cb514ca0b3c56effe563a65532db7f4 /gcc/ada/atree.h
parent024d33d837c172088236be33fd52b7a6ac8e4e9d (diff)
downloadgcc-3830827c54e72b96400c9f9803b5518e8fb9f23d.zip
gcc-3830827c54e72b96400c9f9803b5518e8fb9f23d.tar.gz
gcc-3830827c54e72b96400c9f9803b5518e8fb9f23d.tar.bz2
[multiple changes]
2015-03-02 Robert Dewar <dewar@adacore.com> * atree.ads, atree.adb (Uint24): New function (Set_Uint24): New procedure. * atree.h (Uint24): New macro for field access. * back_end.adb (Call_Back_End): For now, don't call back end if unnesting subprogs. * einfo.adb (Activation_Record_Component): New field (Subps_Index): New field. * einfo.ads (Activation_Record_Component): New field (Subps_Index): New field Minor reordering of comments into alpha order. * exp_unst.ads, exp_unst.adb: Continued development. 2015-03-02 Gary Dismukes <dismukes@adacore.com> * exp_disp.ads: Minor reformatting. 2015-03-02 Ed Schonberg <schonberg@adacore.com> * sem_ch8.adb (Chain_Use_Clause): Do not chain use clause from ancestor to list of use clauses active in descendant unit if we are within the private part of an intervening parent, to prevent circularities in use clause list. From-SVN: r221114
Diffstat (limited to 'gcc/ada/atree.h')
-rw-r--r--gcc/ada/atree.h3
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/atree.h b/gcc/ada/atree.h
index 7d603ba..170bd95 100644
--- a/gcc/ada/atree.h
+++ b/gcc/ada/atree.h
@@ -6,7 +6,7 @@
* *
* C Header File *
* *
- * Copyright (C) 1992-2013, Free Software Foundation, Inc. *
+ * Copyright (C) 1992-2015, Free Software Foundation, Inc. *
* *
* GNAT is free software; you can redistribute it and/or modify it under *
* terms of the GNU General Public License as published by the Free Soft- *
@@ -535,6 +535,7 @@ extern Node_Id Current_Error_Node;
#define Uint16(N) ((Field16 (N) == 0) ? Uint_0 : Field16 (N))
#define Uint17(N) ((Field17 (N) == 0) ? Uint_0 : Field17 (N))
#define Uint22(N) ((Field22 (N) == 0) ? Uint_0 : Field22 (N))
+#define Uint24(N) ((Field24 (N) == 0) ? Uint_0 : Field24 (N))
#define Ureal3(N) Field3 (N)
#define Ureal18(N) Field18 (N)