diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-03 09:47:07 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-03 09:47:07 +0000 |
commit | 0ba3592b83b879af86127ae12b1af4402a909294 (patch) | |
tree | bf32fcc18f39f261c97a358abbe5ce7237af61a1 /gcc/ada/restrict.ads | |
parent | 9f1130cc81b12eb86e31275996b8a6bbe7118111 (diff) | |
download | gcc-0ba3592b83b879af86127ae12b1af4402a909294.tar.gz |
2011-08-03 Robert Dewar <dewar@adacore.com>
* sem_aggr.adb, sem_ch3.adb, lib.ads, gnatcmd.adb, prj-proc.adb,
make.adb, lib-writ.adb, prj-part.adb, prj-part.ads, prj-ext.adb,
fname-uf.adb, prj-ext.ads, prj.adb, prj.ads, sem_attr.adb, alfa.adb,
prj-makr.adb, errout.adb, makeutl.adb, makeutl.ads, restrict.ads,
sem_ch6.adb, g-pehage.adb, clean.adb, put_alfa.adb, lib-xref-alfa.adb,
prj-nmsc.adb, prj-nmsc.ads, sem_ch8.adb, prj-pars.ads, exp_aggr.adb,
prj-attr.ads, sem_ch13.adb, get_alfa.adb, prj-env.adb, prj-env.ads,
alfa_test.adb, prj-tree.adb, prj-tree.ads, einfo.ads: Minor reformatting
2011-08-03 Robert Dewar <dewar@adacore.com>
* repinfo.adb (List_Mechanism): Add handling of
Convention_Ada_Pass_By_XXX.
* sem_mech.adb (Set_Mechanism): Ditto.
* sem_prag.adb (Process_Convention): Add entries for
Convention_Ada_Pass_By_XXX.
* snames.adb-tmpl, snames.ads-tmpl: Ditto.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177252 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/restrict.ads')
-rw-r--r-- | gcc/ada/restrict.ads | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/restrict.ads b/gcc/ada/restrict.ads index 31cecd7305d..0c1c5b6cbfa 100644 --- a/gcc/ada/restrict.ads +++ b/gcc/ada/restrict.ads @@ -239,21 +239,21 @@ package Restrict is -- known, V is left at its default of -1 which indicates an unknown count. procedure Check_Restriction - (R : Restriction_Id; - N : Node_Id; - V : Uint := Uint_Minus_1); + (R : Restriction_Id; + N : Node_Id; + V : Uint := Uint_Minus_1); -- Wrapper on Check_Restriction with Msg_Issued, with the out-parameter -- being ignored here. procedure Check_Restriction_No_Dependence (U : Node_Id; Err : Node_Id); -- Called when a dependence on a unit is created (either implicitly, or by - -- an explicit WITH clause). U is a node for the unit involved, and Err - -- is the node to which an error will be attached if necessary. + -- an explicit WITH clause). U is a node for the unit involved, and Err is + -- the node to which an error will be attached if necessary. procedure Check_Elaboration_Code_Allowed (N : Node_Id); -- Tests to see if elaboration code is allowed by the current restrictions - -- settings. This function is called by Gigi when it needs to define - -- an elaboration routine. If elaboration code is not allowed, an error + -- settings. This function is called by Gigi when it needs to define an + -- elaboration routine. If elaboration code is not allowed, an error -- message is posted on the node given as argument. procedure Check_SPARK_Restriction |