[multiple changes]
2011-11-21 Arnaud Charlet <charlet@adacore.com> * s-taprop-irix.adb, s-taprop-solaris.adb (Create_Task): Use Unrestricted_Access to deal with fact that we properly detect the error if Access is used. * gcc-interface/Make-lang.in: Update dependencies. 2011-11-21 Yannick Moy <moy@adacore.com> * exp_prag.adb (Expand_Pragma_Check): Place error on first character of expression. * sem_res.adb (Resolve_Short_Circuit): Place error on first character of expression. 2011-11-21 Yannick Moy <moy@adacore.com> * exp_util.adb (Remove_Side_Effects): Do nothing in Alfa mode. 2011-11-21 Hristian Kirtchev <kirtchev@adacore.com> * exp_attr.adb (Expand_N_Attribute_Reference, case Max_Size_In_Storage_Elements): Account for the size of the hidden list header which precedes controlled objects allocated on the heap. * rtsfind.ads: Add RE_Header_Size_With_Padding to the runtime tables. * sinfo.adb (Header_Size_Added): New routine. (Set_Header_Size_Added): New routine. * sinfo.ads: Add flag Controlled_Header_Added along with associated comment. (Header_Size_Added): New inlined routine. (Set_Header_Size_Added): New inlined routine. * s-stposu.adb (Allocate_Any_Controlled): Use Header_Size_With_Padding to calculate the proper size of the header. (Deallocate_Any_Controlled): Use Header_Size_With_Padding to calculate the proper size of the header. (Header_Size_With_Padding): New routine. (Nearest_Multiple_Rounded_Up): Removed along with its uses. * s-stposu.ads (Header_Size_With_Padding): New routine. 2011-11-21 Ed Schonberg <schonberg@adacore.com> * aspects.adb: Aspect specifications are allowed on renaming declarations * par-ch6.adb (P_Subprogram): Parse aspect specifications in a subprogram renaming declaration From-SVN: r181576
This commit is contained in:
Arnaud Charlet
parent
d2d4b3556d
commit
ca20a08e26
15 changed files with 354 additions and 236 deletions
|
|
@ -1,3 +1,51 @@
|
|||
2011-11-21 Arnaud Charlet <charlet@adacore.com>
|
||||
|
||||
* s-taprop-irix.adb, s-taprop-solaris.adb (Create_Task): Use
|
||||
Unrestricted_Access to deal with fact that we properly detect the
|
||||
error if Access is used.
|
||||
* gcc-interface/Make-lang.in: Update dependencies.
|
||||
|
||||
2011-11-21 Yannick Moy <moy@adacore.com>
|
||||
|
||||
* exp_prag.adb (Expand_Pragma_Check): Place error on first character
|
||||
of expression.
|
||||
* sem_res.adb (Resolve_Short_Circuit): Place error on first
|
||||
character of expression.
|
||||
|
||||
2011-11-21 Yannick Moy <moy@adacore.com>
|
||||
|
||||
* exp_util.adb (Remove_Side_Effects): Do nothing in Alfa mode.
|
||||
|
||||
2011-11-21 Hristian Kirtchev <kirtchev@adacore.com>
|
||||
|
||||
* exp_attr.adb (Expand_N_Attribute_Reference, case
|
||||
Max_Size_In_Storage_Elements): Account for the size of the
|
||||
hidden list header which precedes controlled objects allocated
|
||||
on the heap.
|
||||
* rtsfind.ads: Add RE_Header_Size_With_Padding to the runtime
|
||||
tables.
|
||||
* sinfo.adb (Header_Size_Added): New routine.
|
||||
(Set_Header_Size_Added): New routine.
|
||||
* sinfo.ads: Add flag Controlled_Header_Added along with
|
||||
associated comment.
|
||||
(Header_Size_Added): New inlined routine.
|
||||
(Set_Header_Size_Added): New inlined routine.
|
||||
* s-stposu.adb (Allocate_Any_Controlled): Use
|
||||
Header_Size_With_Padding to calculate the proper
|
||||
size of the header.
|
||||
(Deallocate_Any_Controlled): Use
|
||||
Header_Size_With_Padding to calculate the proper size
|
||||
of the header. (Header_Size_With_Padding): New routine.
|
||||
(Nearest_Multiple_Rounded_Up): Removed along with its uses.
|
||||
* s-stposu.ads (Header_Size_With_Padding): New routine.
|
||||
|
||||
2011-11-21 Ed Schonberg <schonberg@adacore.com>
|
||||
|
||||
* aspects.adb: Aspect specifications are allowed on renaming
|
||||
declarations
|
||||
* par-ch6.adb (P_Subprogram): Parse aspect specifications in a
|
||||
subprogram renaming declaration
|
||||
|
||||
2011-11-21 Tristan Gingold <gingold@adacore.com>
|
||||
|
||||
* env.c: Remove unused declaration.
|
||||
|
|
|
|||
|
|
@ -180,6 +180,7 @@ package body Aspects is
|
|||
N_Component_Declaration => True,
|
||||
N_Entry_Declaration => True,
|
||||
N_Exception_Declaration => True,
|
||||
N_Exception_Renaming_Declaration => True,
|
||||
N_Formal_Abstract_Subprogram_Declaration => True,
|
||||
N_Formal_Concrete_Subprogram_Declaration => True,
|
||||
N_Formal_Object_Declaration => True,
|
||||
|
|
@ -188,11 +189,14 @@ package body Aspects is
|
|||
N_Full_Type_Declaration => True,
|
||||
N_Function_Instantiation => True,
|
||||
N_Generic_Package_Declaration => True,
|
||||
N_Generic_Renaming_Declaration => True,
|
||||
N_Generic_Subprogram_Declaration => True,
|
||||
N_Object_Declaration => True,
|
||||
N_Object_Renaming_Declaration => True,
|
||||
N_Package_Declaration => True,
|
||||
N_Package_Instantiation => True,
|
||||
N_Package_Specification => True,
|
||||
N_Package_Renaming_Declaration => True,
|
||||
N_Private_Extension_Declaration => True,
|
||||
N_Private_Type_Declaration => True,
|
||||
N_Procedure_Instantiation => True,
|
||||
|
|
@ -202,6 +206,7 @@ package body Aspects is
|
|||
N_Single_Task_Declaration => True,
|
||||
N_Subprogram_Body => True,
|
||||
N_Subprogram_Declaration => True,
|
||||
N_Subprogram_Renaming_Declaration => True,
|
||||
N_Subtype_Declaration => True,
|
||||
N_Task_Body => True,
|
||||
N_Task_Type_Declaration => True,
|
||||
|
|
|
|||
|
|
@ -2989,6 +2989,52 @@ package body Exp_Attr is
|
|||
Analyze_And_Resolve (N, Typ);
|
||||
end Mantissa;
|
||||
|
||||
----------------------------------
|
||||
-- Max_Size_In_Storage_Elements --
|
||||
----------------------------------
|
||||
|
||||
when Attribute_Max_Size_In_Storage_Elements =>
|
||||
Apply_Universal_Integer_Attribute_Checks (N);
|
||||
|
||||
-- Heap-allocated controlled objects contain two extra pointers which
|
||||
-- are not part of the actual type. Transform the attribute reference
|
||||
-- into a runtime expression to add the size of the hidden header.
|
||||
|
||||
-- Do not perform this expansion on .NET/JVM targets because the
|
||||
-- two pointers are already present in the type.
|
||||
|
||||
if VM_Target = No_VM
|
||||
and then Nkind (N) = N_Attribute_Reference
|
||||
and then Needs_Finalization (Ptyp)
|
||||
and then not Header_Size_Added (N)
|
||||
then
|
||||
Set_Header_Size_Added (N);
|
||||
|
||||
-- Generate:
|
||||
-- P'Max_Size_In_Storage_Elements +
|
||||
-- Universal_Integer
|
||||
-- (Header_Size_With_Padding (Ptyp'Alignment))
|
||||
|
||||
Rewrite (N,
|
||||
Make_Op_Add (Loc,
|
||||
Left_Opnd => Relocate_Node (N),
|
||||
Right_Opnd =>
|
||||
Convert_To (Universal_Integer,
|
||||
Make_Function_Call (Loc,
|
||||
Name =>
|
||||
New_Reference_To
|
||||
(RTE (RE_Header_Size_With_Padding), Loc),
|
||||
|
||||
Parameter_Associations => New_List (
|
||||
Make_Attribute_Reference (Loc,
|
||||
Prefix =>
|
||||
New_Reference_To (Ptyp, Loc),
|
||||
Attribute_Name => Name_Alignment))))));
|
||||
|
||||
Analyze (N);
|
||||
return;
|
||||
end if;
|
||||
|
||||
--------------------
|
||||
-- Mechanism_Code --
|
||||
--------------------
|
||||
|
|
@ -5572,8 +5618,7 @@ package body Exp_Attr is
|
|||
-- that the result is in range.
|
||||
|
||||
when Attribute_Aft |
|
||||
Attribute_Max_Alignment_For_Allocation |
|
||||
Attribute_Max_Size_In_Storage_Elements =>
|
||||
Attribute_Max_Alignment_For_Allocation =>
|
||||
Apply_Universal_Integer_Attribute_Checks (N);
|
||||
|
||||
-- The following attributes should not appear at this stage, since they
|
||||
|
|
|
|||
|
|
@ -270,7 +270,7 @@ package body Exp_Prag is
|
|||
|
||||
procedure Expand_Pragma_Check (N : Node_Id) is
|
||||
Cond : constant Node_Id := Arg2 (N);
|
||||
Loc : constant Source_Ptr := Sloc (Cond);
|
||||
Loc : constant Source_Ptr := Sloc (First_Node (Cond));
|
||||
Nam : constant Name_Id := Chars (Arg1 (N));
|
||||
Msg : Node_Id;
|
||||
|
||||
|
|
|
|||
|
|
@ -6420,9 +6420,12 @@ package body Exp_Util is
|
|||
-- Start of processing for Remove_Side_Effects
|
||||
|
||||
begin
|
||||
-- Handle cases in which there is nothing to do
|
||||
-- Handle cases in which there is nothing to do. In particular,
|
||||
-- side-effects are not removed in Alfa mode for formal verification.
|
||||
-- Instead, formal verification is performed only on those expressions
|
||||
-- provably side-effect free.
|
||||
|
||||
if not Expander_Active then
|
||||
if not Full_Expander_Active then
|
||||
return;
|
||||
|
||||
-- Cannot generate temporaries if the invocation to remove side effects
|
||||
|
|
@ -6622,15 +6625,6 @@ package body Exp_Util is
|
|||
-- Otherwise we generate a reference to the value
|
||||
|
||||
else
|
||||
-- An expression which is in Alfa mode is considered side effect free
|
||||
-- if the resulting value is captured by a variable or a constant.
|
||||
|
||||
if Alfa_Mode
|
||||
and then Nkind (Parent (Exp)) = N_Object_Declaration
|
||||
then
|
||||
return;
|
||||
end if;
|
||||
|
||||
-- Special processing for function calls that return a limited type.
|
||||
-- We need to build a declaration that will enable build-in-place
|
||||
-- expansion of the call. This is not done if the context is already
|
||||
|
|
@ -6665,39 +6659,25 @@ package body Exp_Util is
|
|||
Def_Id := Make_Temporary (Loc, 'R', Exp);
|
||||
Set_Etype (Def_Id, Exp_Type);
|
||||
|
||||
-- The regular expansion of functions with side effects involves the
|
||||
-- generation of an access type to capture the return value found on
|
||||
-- the secondary stack. Since Alfa (and why) cannot process access
|
||||
-- types, use a different approach which ignores the secondary stack
|
||||
-- and "copies" the returned object.
|
||||
Res :=
|
||||
Make_Explicit_Dereference (Loc,
|
||||
Prefix => New_Reference_To (Def_Id, Loc));
|
||||
|
||||
if Alfa_Mode then
|
||||
Res := New_Reference_To (Def_Id, Loc);
|
||||
Ref_Type := Exp_Type;
|
||||
-- Generate:
|
||||
-- type Ann is access all <Exp_Type>;
|
||||
|
||||
-- Regular expansion utilizing an access type and 'reference
|
||||
Ref_Type := Make_Temporary (Loc, 'A');
|
||||
|
||||
else
|
||||
Res :=
|
||||
Make_Explicit_Dereference (Loc,
|
||||
Prefix => New_Reference_To (Def_Id, Loc));
|
||||
Ptr_Typ_Decl :=
|
||||
Make_Full_Type_Declaration (Loc,
|
||||
Defining_Identifier => Ref_Type,
|
||||
Type_Definition =>
|
||||
Make_Access_To_Object_Definition (Loc,
|
||||
All_Present => True,
|
||||
Subtype_Indication =>
|
||||
New_Reference_To (Exp_Type, Loc)));
|
||||
|
||||
-- Generate:
|
||||
-- type Ann is access all <Exp_Type>;
|
||||
|
||||
Ref_Type := Make_Temporary (Loc, 'A');
|
||||
|
||||
Ptr_Typ_Decl :=
|
||||
Make_Full_Type_Declaration (Loc,
|
||||
Defining_Identifier => Ref_Type,
|
||||
Type_Definition =>
|
||||
Make_Access_To_Object_Definition (Loc,
|
||||
All_Present => True,
|
||||
Subtype_Indication =>
|
||||
New_Reference_To (Exp_Type, Loc)));
|
||||
|
||||
Insert_Action (Exp, Ptr_Typ_Decl);
|
||||
end if;
|
||||
Insert_Action (Exp, Ptr_Typ_Decl);
|
||||
|
||||
E := Exp;
|
||||
if Nkind (E) = N_Explicit_Dereference then
|
||||
|
|
|
|||
|
|
@ -1545,10 +1545,10 @@ ada/checks.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
|||
ada/inline.ads ada/interfac.ads ada/itypes.ads ada/lib.ads ada/lib.adb \
|
||||
ada/lib-list.adb ada/lib-load.ads ada/lib-sort.adb ada/lib-util.ads \
|
||||
ada/lib-xref.ads ada/namet.ads ada/namet.adb ada/nlists.ads \
|
||||
ada/nlists.adb ada/nmake.ads ada/nmake.adb ada/opt.ads ada/output.ads \
|
||||
ada/par_sco.ads ada/put_alfa.ads ada/restrict.ads ada/restrict.adb \
|
||||
ada/rident.ads ada/rtsfind.ads ada/rtsfind.adb ada/scans.ads \
|
||||
ada/sem.ads ada/sem.adb ada/sem_attr.ads ada/sem_aux.ads \
|
||||
ada/nlists.adb ada/nmake.ads ada/nmake.adb ada/opt.ads ada/opt.adb \
|
||||
ada/output.ads ada/par_sco.ads ada/put_alfa.ads ada/restrict.ads \
|
||||
ada/restrict.adb ada/rident.ads ada/rtsfind.ads ada/rtsfind.adb \
|
||||
ada/scans.ads ada/sem.ads ada/sem.adb ada/sem_attr.ads ada/sem_aux.ads \
|
||||
ada/sem_aux.adb ada/sem_cat.ads ada/sem_ch10.ads ada/sem_ch11.ads \
|
||||
ada/sem_ch12.ads ada/sem_ch13.ads ada/sem_ch2.ads ada/sem_ch3.ads \
|
||||
ada/sem_ch4.ads ada/sem_ch5.ads ada/sem_ch6.ads ada/sem_ch7.ads \
|
||||
|
|
@ -2396,29 +2396,31 @@ ada/exp_imgv.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
|||
ada/a-uncdea.ads ada/alloc.ads ada/aspects.ads ada/atree.ads \
|
||||
ada/atree.adb ada/casing.ads ada/checks.ads ada/checks.adb \
|
||||
ada/csets.ads ada/debug.ads ada/einfo.ads ada/einfo.adb ada/elists.ads \
|
||||
ada/err_vars.ads ada/errout.ads ada/erroutc.ads ada/eval_fat.ads \
|
||||
ada/exp_ch11.ads ada/exp_ch2.ads ada/exp_ch4.ads ada/exp_dist.ads \
|
||||
ada/exp_imgv.ads ada/exp_imgv.adb ada/exp_pakd.ads ada/exp_tss.ads \
|
||||
ada/exp_util.ads ada/fname.ads ada/fname-uf.ads ada/freeze.ads \
|
||||
ada/get_targ.ads ada/gnat.ads ada/g-hesorg.ads ada/g-htable.ads \
|
||||
ada/hostparm.ads ada/interfac.ads ada/lib.ads ada/lib.adb \
|
||||
ada/lib-list.adb ada/lib-load.ads ada/lib-sort.adb ada/namet.ads \
|
||||
ada/namet.adb ada/nlists.ads ada/nlists.adb ada/nmake.ads ada/nmake.adb \
|
||||
ada/opt.ads ada/output.ads ada/restrict.ads ada/rident.ads \
|
||||
ada/rtsfind.ads ada/rtsfind.adb ada/sem.ads ada/sem_aux.ads \
|
||||
ada/err_vars.ads ada/errout.ads ada/errout.adb ada/erroutc.ads \
|
||||
ada/erroutc.adb ada/eval_fat.ads ada/exp_ch11.ads ada/exp_ch2.ads \
|
||||
ada/exp_ch4.ads ada/exp_dist.ads ada/exp_imgv.ads ada/exp_imgv.adb \
|
||||
ada/exp_pakd.ads ada/exp_tss.ads ada/exp_util.ads ada/fname.ads \
|
||||
ada/fname-uf.ads ada/freeze.ads ada/get_targ.ads ada/gnat.ads \
|
||||
ada/g-hesorg.ads ada/g-htable.ads ada/gnatvsn.ads ada/hostparm.ads \
|
||||
ada/interfac.ads ada/lib.ads ada/lib.adb ada/lib-list.adb \
|
||||
ada/lib-load.ads ada/lib-sort.adb ada/namet.ads ada/namet.adb \
|
||||
ada/nlists.ads ada/nlists.adb ada/nmake.ads ada/nmake.adb ada/opt.ads \
|
||||
ada/output.ads ada/restrict.ads ada/rident.ads ada/rtsfind.ads \
|
||||
ada/rtsfind.adb ada/scans.ads ada/sem.ads ada/sem_aux.ads \
|
||||
ada/sem_aux.adb ada/sem_ch3.ads ada/sem_ch7.ads ada/sem_ch8.ads \
|
||||
ada/sem_dist.ads ada/sem_eval.ads ada/sem_res.ads ada/sem_util.ads \
|
||||
ada/sem_warn.ads ada/sinfo.ads ada/sinfo.adb ada/sinput.ads \
|
||||
ada/snames.ads ada/sprint.ads ada/stand.ads ada/stringt.ads \
|
||||
ada/stringt.adb ada/system.ads ada/s-exctab.ads ada/s-htable.ads \
|
||||
ada/s-imenne.ads ada/s-memory.ads ada/s-os_lib.ads ada/s-parame.ads \
|
||||
ada/s-rident.ads ada/s-secsta.ads ada/s-soflin.ads ada/s-stache.ads \
|
||||
ada/s-stalib.ads ada/s-stoele.ads ada/s-stoele.adb ada/s-string.ads \
|
||||
ada/s-traent.ads ada/s-unstyp.ads ada/s-wchcon.ads ada/table.ads \
|
||||
ada/table.adb ada/targparm.ads ada/tbuild.ads ada/tbuild.adb \
|
||||
ada/tree_io.ads ada/ttypes.ads ada/types.ads ada/uintp.ads \
|
||||
ada/uintp.adb ada/uname.ads ada/unchconv.ads ada/unchdeal.ads \
|
||||
ada/urealp.ads ada/urealp.adb ada/validsw.ads ada/widechar.ads
|
||||
ada/stringt.adb ada/stylesw.ads ada/system.ads ada/s-exctab.ads \
|
||||
ada/s-htable.ads ada/s-imenne.ads ada/s-memory.ads ada/s-os_lib.ads \
|
||||
ada/s-parame.ads ada/s-rident.ads ada/s-secsta.ads ada/s-soflin.ads \
|
||||
ada/s-stache.ads ada/s-stalib.ads ada/s-stoele.ads ada/s-stoele.adb \
|
||||
ada/s-string.ads ada/s-traent.ads ada/s-unstyp.ads ada/s-wchcon.ads \
|
||||
ada/table.ads ada/table.adb ada/targparm.ads ada/tbuild.ads \
|
||||
ada/tbuild.adb ada/tree_io.ads ada/ttypes.ads ada/types.ads \
|
||||
ada/uintp.ads ada/uintp.adb ada/uname.ads ada/unchconv.ads \
|
||||
ada/unchdeal.ads ada/urealp.ads ada/urealp.adb ada/validsw.ads \
|
||||
ada/widechar.ads
|
||||
|
||||
ada/exp_intr.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
||||
ada/a-uncdea.ads ada/alloc.ads ada/aspects.ads ada/atree.ads \
|
||||
|
|
@ -2544,18 +2546,19 @@ ada/exp_smem.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
|||
ada/hostparm.ads ada/inline.ads ada/interfac.ads ada/lib.ads \
|
||||
ada/lib-load.ads ada/namet.ads ada/namet.adb ada/nlists.ads \
|
||||
ada/nlists.adb ada/nmake.ads ada/nmake.adb ada/opt.ads ada/output.ads \
|
||||
ada/rtsfind.ads ada/sem.ads ada/sem.adb ada/sem_attr.ads \
|
||||
ada/sem_aux.ads ada/sem_aux.adb ada/sem_ch10.ads ada/sem_ch11.ads \
|
||||
ada/sem_ch12.ads ada/sem_ch13.ads ada/sem_ch2.ads ada/sem_ch3.ads \
|
||||
ada/sem_ch4.ads ada/sem_ch5.ads ada/sem_ch6.ads ada/sem_ch7.ads \
|
||||
ada/sem_ch8.ads ada/sem_ch9.ads ada/sem_prag.ads ada/sem_util.ads \
|
||||
ada/sinfo.ads ada/sinfo.adb ada/sinput.ads ada/snames.ads ada/stand.ads \
|
||||
ada/stringt.ads ada/stringt.adb ada/system.ads ada/s-exctab.ads \
|
||||
ada/s-htable.ads ada/s-imenne.ads ada/s-memory.ads ada/s-os_lib.ads \
|
||||
ada/s-parame.ads ada/s-secsta.ads ada/s-stalib.ads ada/s-stoele.ads \
|
||||
ada/s-stoele.adb ada/s-string.ads ada/s-traent.ads ada/s-unstyp.ads \
|
||||
ada/s-wchcon.ads ada/table.ads ada/table.adb ada/tbuild.ads \
|
||||
ada/tree_io.ads ada/types.ads ada/uintp.ads ada/uintp.adb ada/uname.ads \
|
||||
ada/restrict.ads ada/rident.ads ada/rtsfind.ads ada/sem.ads ada/sem.adb \
|
||||
ada/sem_attr.ads ada/sem_aux.ads ada/sem_aux.adb ada/sem_ch10.ads \
|
||||
ada/sem_ch11.ads ada/sem_ch12.ads ada/sem_ch13.ads ada/sem_ch2.ads \
|
||||
ada/sem_ch3.ads ada/sem_ch4.ads ada/sem_ch5.ads ada/sem_ch6.ads \
|
||||
ada/sem_ch7.ads ada/sem_ch8.ads ada/sem_ch9.ads ada/sem_prag.ads \
|
||||
ada/sem_util.ads ada/sinfo.ads ada/sinfo.adb ada/sinput.ads \
|
||||
ada/snames.ads ada/stand.ads ada/stringt.ads ada/stringt.adb \
|
||||
ada/system.ads ada/s-exctab.ads ada/s-htable.ads ada/s-imenne.ads \
|
||||
ada/s-memory.ads ada/s-os_lib.ads ada/s-parame.ads ada/s-rident.ads \
|
||||
ada/s-secsta.ads ada/s-stalib.ads ada/s-stoele.ads ada/s-stoele.adb \
|
||||
ada/s-string.ads ada/s-traent.ads ada/s-unstyp.ads ada/s-wchcon.ads \
|
||||
ada/table.ads ada/table.adb ada/tbuild.ads ada/tree_io.ads \
|
||||
ada/types.ads ada/uintp.ads ada/uintp.adb ada/uname.ads \
|
||||
ada/unchconv.ads ada/unchdeal.ads ada/urealp.ads ada/widechar.ads
|
||||
|
||||
ada/exp_strm.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
||||
|
|
@ -2666,21 +2669,22 @@ ada/expander.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
|||
ada/gnat.ads ada/g-htable.ads ada/gnatvsn.ads ada/hlo.ads \
|
||||
ada/hostparm.ads ada/inline.ads ada/interfac.ads ada/lib.ads \
|
||||
ada/lib-load.ads ada/namet.ads ada/namet.adb ada/nlists.ads \
|
||||
ada/nlists.adb ada/nmake.ads ada/opt.ads ada/output.ads ada/rident.ads \
|
||||
ada/rtsfind.ads ada/scans.ads ada/sem.ads ada/sem.adb ada/sem_attr.ads \
|
||||
ada/sem_aux.ads ada/sem_ch10.ads ada/sem_ch11.ads ada/sem_ch12.ads \
|
||||
ada/sem_ch13.ads ada/sem_ch2.ads ada/sem_ch3.ads ada/sem_ch4.ads \
|
||||
ada/sem_ch5.ads ada/sem_ch6.ads ada/sem_ch7.ads ada/sem_ch8.ads \
|
||||
ada/sem_ch9.ads ada/sem_prag.ads ada/sem_util.ads ada/sinfo.ads \
|
||||
ada/sinfo.adb ada/sinput.ads ada/snames.ads ada/stand.ads \
|
||||
ada/stylesw.ads ada/system.ads ada/s-exctab.ads ada/s-htable.ads \
|
||||
ada/s-imenne.ads ada/s-memory.ads ada/s-os_lib.ads ada/s-parame.ads \
|
||||
ada/s-rident.ads ada/s-secsta.ads ada/s-soflin.ads ada/s-stache.ads \
|
||||
ada/s-stalib.ads ada/s-stoele.ads ada/s-stoele.adb ada/s-string.ads \
|
||||
ada/s-traent.ads ada/s-unstyp.ads ada/s-wchcon.ads ada/table.ads \
|
||||
ada/table.adb ada/targparm.ads ada/tree_io.ads ada/types.ads \
|
||||
ada/uintp.ads ada/uintp.adb ada/uname.ads ada/unchconv.ads \
|
||||
ada/unchdeal.ads ada/urealp.ads ada/widechar.ads
|
||||
ada/nlists.adb ada/nmake.ads ada/opt.ads ada/output.ads \
|
||||
ada/restrict.ads ada/rident.ads ada/rtsfind.ads ada/scans.ads \
|
||||
ada/sem.ads ada/sem.adb ada/sem_attr.ads ada/sem_aux.ads \
|
||||
ada/sem_ch10.ads ada/sem_ch11.ads ada/sem_ch12.ads ada/sem_ch13.ads \
|
||||
ada/sem_ch2.ads ada/sem_ch3.ads ada/sem_ch4.ads ada/sem_ch5.ads \
|
||||
ada/sem_ch6.ads ada/sem_ch7.ads ada/sem_ch8.ads ada/sem_ch9.ads \
|
||||
ada/sem_prag.ads ada/sem_util.ads ada/sinfo.ads ada/sinfo.adb \
|
||||
ada/sinput.ads ada/snames.ads ada/stand.ads ada/stylesw.ads \
|
||||
ada/system.ads ada/s-exctab.ads ada/s-htable.ads ada/s-imenne.ads \
|
||||
ada/s-memory.ads ada/s-os_lib.ads ada/s-parame.ads ada/s-rident.ads \
|
||||
ada/s-secsta.ads ada/s-soflin.ads ada/s-stache.ads ada/s-stalib.ads \
|
||||
ada/s-stoele.ads ada/s-stoele.adb ada/s-string.ads ada/s-traent.ads \
|
||||
ada/s-unstyp.ads ada/s-wchcon.ads ada/table.ads ada/table.adb \
|
||||
ada/targparm.ads ada/tree_io.ads ada/types.ads ada/uintp.ads \
|
||||
ada/uintp.adb ada/uname.ads ada/unchconv.ads ada/unchdeal.ads \
|
||||
ada/urealp.ads ada/widechar.ads
|
||||
|
||||
ada/fmap.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
||||
ada/a-uncdea.ads ada/alloc.ads ada/debug.ads ada/fmap.ads ada/fmap.adb \
|
||||
|
|
@ -2936,21 +2940,22 @@ ada/inline.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
|||
ada/hostparm.ads ada/inline.ads ada/inline.adb ada/interfac.ads \
|
||||
ada/lib.ads ada/lib.adb ada/lib-list.adb ada/lib-load.ads \
|
||||
ada/lib-sort.adb ada/namet.ads ada/namet.adb ada/nlists.ads \
|
||||
ada/nlists.adb ada/nmake.ads ada/opt.ads ada/output.ads ada/rident.ads \
|
||||
ada/scans.ads ada/sem.ads ada/sem.adb ada/sem_attr.ads ada/sem_aux.ads \
|
||||
ada/sem_aux.adb ada/sem_ch10.ads ada/sem_ch11.ads ada/sem_ch12.ads \
|
||||
ada/sem_ch13.ads ada/sem_ch2.ads ada/sem_ch3.ads ada/sem_ch4.ads \
|
||||
ada/sem_ch5.ads ada/sem_ch6.ads ada/sem_ch7.ads ada/sem_ch8.ads \
|
||||
ada/sem_ch9.ads ada/sem_prag.ads ada/sem_util.ads ada/sinfo.ads \
|
||||
ada/sinfo.adb ada/sinput.ads ada/snames.ads ada/stand.ads \
|
||||
ada/stringt.ads ada/stylesw.ads ada/system.ads ada/s-exctab.ads \
|
||||
ada/s-htable.ads ada/s-imenne.ads ada/s-memory.ads ada/s-os_lib.ads \
|
||||
ada/s-parame.ads ada/s-rident.ads ada/s-secsta.ads ada/s-soflin.ads \
|
||||
ada/s-stache.ads ada/s-stalib.ads ada/s-stoele.ads ada/s-stoele.adb \
|
||||
ada/s-string.ads ada/s-traent.ads ada/s-unstyp.ads ada/s-wchcon.ads \
|
||||
ada/table.ads ada/table.adb ada/targparm.ads ada/tree_io.ads \
|
||||
ada/types.ads ada/uintp.ads ada/uintp.adb ada/uname.ads \
|
||||
ada/unchconv.ads ada/unchdeal.ads ada/urealp.ads ada/widechar.ads
|
||||
ada/nlists.adb ada/nmake.ads ada/opt.ads ada/output.ads \
|
||||
ada/restrict.ads ada/rident.ads ada/scans.ads ada/sem.ads ada/sem.adb \
|
||||
ada/sem_attr.ads ada/sem_aux.ads ada/sem_aux.adb ada/sem_ch10.ads \
|
||||
ada/sem_ch11.ads ada/sem_ch12.ads ada/sem_ch13.ads ada/sem_ch2.ads \
|
||||
ada/sem_ch3.ads ada/sem_ch4.ads ada/sem_ch5.ads ada/sem_ch6.ads \
|
||||
ada/sem_ch7.ads ada/sem_ch8.ads ada/sem_ch9.ads ada/sem_prag.ads \
|
||||
ada/sem_util.ads ada/sinfo.ads ada/sinfo.adb ada/sinput.ads \
|
||||
ada/snames.ads ada/stand.ads ada/stringt.ads ada/stylesw.ads \
|
||||
ada/system.ads ada/s-exctab.ads ada/s-htable.ads ada/s-imenne.ads \
|
||||
ada/s-memory.ads ada/s-os_lib.ads ada/s-parame.ads ada/s-rident.ads \
|
||||
ada/s-secsta.ads ada/s-soflin.ads ada/s-stache.ads ada/s-stalib.ads \
|
||||
ada/s-stoele.ads ada/s-stoele.adb ada/s-string.ads ada/s-traent.ads \
|
||||
ada/s-unstyp.ads ada/s-wchcon.ads ada/table.ads ada/table.adb \
|
||||
ada/targparm.ads ada/tree_io.ads ada/types.ads ada/uintp.ads \
|
||||
ada/uintp.adb ada/uname.ads ada/unchconv.ads ada/unchdeal.ads \
|
||||
ada/urealp.ads ada/widechar.ads
|
||||
|
||||
ada/interfac.o : ada/interfac.ads ada/system.ads
|
||||
|
||||
|
|
@ -2963,19 +2968,19 @@ ada/itypes.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
|||
ada/hostparm.ads ada/inline.ads ada/interfac.ads ada/itypes.ads \
|
||||
ada/itypes.adb ada/lib.ads ada/lib-load.ads ada/namet.ads ada/namet.adb \
|
||||
ada/nlists.ads ada/nlists.adb ada/nmake.ads ada/opt.ads ada/output.ads \
|
||||
ada/rident.ads ada/sem.ads ada/sem.adb ada/sem_attr.ads \
|
||||
ada/sem_ch10.ads ada/sem_ch11.ads ada/sem_ch12.ads ada/sem_ch13.ads \
|
||||
ada/sem_ch2.ads ada/sem_ch3.ads ada/sem_ch4.ads ada/sem_ch5.ads \
|
||||
ada/sem_ch6.ads ada/sem_ch7.ads ada/sem_ch8.ads ada/sem_ch9.ads \
|
||||
ada/sem_prag.ads ada/sem_util.ads ada/sinfo.ads ada/sinfo.adb \
|
||||
ada/sinput.ads ada/snames.ads ada/stand.ads ada/system.ads \
|
||||
ada/s-exctab.ads ada/s-htable.ads ada/s-imenne.ads ada/s-memory.ads \
|
||||
ada/s-os_lib.ads ada/s-parame.ads ada/s-rident.ads ada/s-secsta.ads \
|
||||
ada/s-stalib.ads ada/s-stoele.ads ada/s-stoele.adb ada/s-string.ads \
|
||||
ada/s-traent.ads ada/s-unstyp.ads ada/s-wchcon.ads ada/table.ads \
|
||||
ada/table.adb ada/targparm.ads ada/tree_io.ads ada/types.ads \
|
||||
ada/uintp.ads ada/uintp.adb ada/uname.ads ada/unchconv.ads \
|
||||
ada/unchdeal.ads ada/urealp.ads ada/widechar.ads
|
||||
ada/restrict.ads ada/rident.ads ada/sem.ads ada/sem.adb \
|
||||
ada/sem_attr.ads ada/sem_ch10.ads ada/sem_ch11.ads ada/sem_ch12.ads \
|
||||
ada/sem_ch13.ads ada/sem_ch2.ads ada/sem_ch3.ads ada/sem_ch4.ads \
|
||||
ada/sem_ch5.ads ada/sem_ch6.ads ada/sem_ch7.ads ada/sem_ch8.ads \
|
||||
ada/sem_ch9.ads ada/sem_prag.ads ada/sem_util.ads ada/sinfo.ads \
|
||||
ada/sinfo.adb ada/sinput.ads ada/snames.ads ada/stand.ads \
|
||||
ada/system.ads ada/s-exctab.ads ada/s-htable.ads ada/s-imenne.ads \
|
||||
ada/s-memory.ads ada/s-os_lib.ads ada/s-parame.ads ada/s-rident.ads \
|
||||
ada/s-secsta.ads ada/s-stalib.ads ada/s-stoele.ads ada/s-stoele.adb \
|
||||
ada/s-string.ads ada/s-traent.ads ada/s-unstyp.ads ada/s-wchcon.ads \
|
||||
ada/table.ads ada/table.adb ada/targparm.ads ada/tree_io.ads \
|
||||
ada/types.ads ada/uintp.ads ada/uintp.adb ada/uname.ads \
|
||||
ada/unchconv.ads ada/unchdeal.ads ada/urealp.ads ada/widechar.ads
|
||||
|
||||
ada/krunch.o : ada/ada.ads ada/a-unccon.ads ada/hostparm.ads \
|
||||
ada/krunch.ads ada/krunch.adb ada/system.ads ada/s-exctab.ads \
|
||||
|
|
@ -3689,24 +3694,24 @@ ada/sem.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads ada/a-uncdea.ads \
|
|||
ada/lib.ads ada/lib.adb ada/lib-list.adb ada/lib-load.ads \
|
||||
ada/lib-sort.adb ada/lib-util.ads ada/lib-xref.ads ada/namet.ads \
|
||||
ada/namet.adb ada/nlists.ads ada/nlists.adb ada/nmake.ads ada/opt.ads \
|
||||
ada/output.ads ada/put_alfa.ads ada/restrict.ads ada/rident.ads \
|
||||
ada/rtsfind.ads ada/scans.ads ada/sem.ads ada/sem.adb ada/sem_attr.ads \
|
||||
ada/sem_aux.ads ada/sem_ch10.ads ada/sem_ch11.ads ada/sem_ch12.ads \
|
||||
ada/sem_ch13.ads ada/sem_ch13.adb ada/sem_ch2.ads ada/sem_ch2.adb \
|
||||
ada/sem_ch3.ads ada/sem_ch4.ads ada/sem_ch5.ads ada/sem_ch6.ads \
|
||||
ada/sem_ch7.ads ada/sem_ch8.ads ada/sem_ch9.ads ada/sem_eval.ads \
|
||||
ada/sem_prag.ads ada/sem_res.ads ada/sem_type.ads ada/sem_util.ads \
|
||||
ada/sem_warn.ads ada/sinfo.ads ada/sinfo.adb ada/sinput.ads \
|
||||
ada/snames.ads ada/stand.ads ada/stringt.ads ada/stylesw.ads \
|
||||
ada/system.ads ada/s-carun8.ads ada/s-exctab.ads ada/s-htable.ads \
|
||||
ada/s-imenne.ads ada/s-memory.ads ada/s-os_lib.ads ada/s-parame.ads \
|
||||
ada/s-rident.ads ada/s-secsta.ads ada/s-soflin.ads ada/s-stache.ads \
|
||||
ada/s-stalib.ads ada/s-stoele.ads ada/s-stoele.adb ada/s-string.ads \
|
||||
ada/s-traent.ads ada/s-unstyp.ads ada/s-wchcon.ads ada/table.ads \
|
||||
ada/table.adb ada/targparm.ads ada/tbuild.ads ada/tree_io.ads \
|
||||
ada/ttypes.ads ada/types.ads ada/types.adb ada/uintp.ads ada/uintp.adb \
|
||||
ada/uname.ads ada/unchconv.ads ada/unchdeal.ads ada/urealp.ads \
|
||||
ada/warnsw.ads ada/widechar.ads
|
||||
ada/output.ads ada/put_alfa.ads ada/restrict.ads ada/restrict.adb \
|
||||
ada/rident.ads ada/rtsfind.ads ada/scans.ads ada/sem.ads ada/sem.adb \
|
||||
ada/sem_attr.ads ada/sem_aux.ads ada/sem_ch10.ads ada/sem_ch11.ads \
|
||||
ada/sem_ch12.ads ada/sem_ch13.ads ada/sem_ch13.adb ada/sem_ch2.ads \
|
||||
ada/sem_ch2.adb ada/sem_ch3.ads ada/sem_ch4.ads ada/sem_ch5.ads \
|
||||
ada/sem_ch6.ads ada/sem_ch7.ads ada/sem_ch8.ads ada/sem_ch9.ads \
|
||||
ada/sem_eval.ads ada/sem_prag.ads ada/sem_res.ads ada/sem_type.ads \
|
||||
ada/sem_util.ads ada/sem_warn.ads ada/sinfo.ads ada/sinfo.adb \
|
||||
ada/sinput.ads ada/snames.ads ada/stand.ads ada/stringt.ads \
|
||||
ada/stylesw.ads ada/system.ads ada/s-carun8.ads ada/s-exctab.ads \
|
||||
ada/s-htable.ads ada/s-imenne.ads ada/s-memory.ads ada/s-os_lib.ads \
|
||||
ada/s-parame.ads ada/s-rident.ads ada/s-secsta.ads ada/s-soflin.ads \
|
||||
ada/s-stache.ads ada/s-stalib.ads ada/s-stoele.ads ada/s-stoele.adb \
|
||||
ada/s-string.ads ada/s-traent.ads ada/s-unstyp.ads ada/s-wchcon.ads \
|
||||
ada/table.ads ada/table.adb ada/targparm.ads ada/tbuild.ads \
|
||||
ada/tree_io.ads ada/ttypes.ads ada/types.ads ada/types.adb \
|
||||
ada/uintp.ads ada/uintp.adb ada/uname.ads ada/unchconv.ads \
|
||||
ada/unchdeal.ads ada/urealp.ads ada/warnsw.ads ada/widechar.ads
|
||||
|
||||
ada/sem_aggr.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
||||
ada/a-uncdea.ads ada/alloc.ads ada/aspects.ads ada/atree.ads \
|
||||
|
|
@ -3812,14 +3817,14 @@ ada/sem_case.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
|||
ada/gnatvsn.ads ada/hlo.ads ada/hostparm.ads ada/inline.ads \
|
||||
ada/interfac.ads ada/lib.ads ada/lib-load.ads ada/namet.ads \
|
||||
ada/namet.adb ada/nlists.ads ada/nlists.adb ada/nmake.ads ada/nmake.adb \
|
||||
ada/opt.ads ada/output.ads ada/rident.ads ada/scans.ads ada/sem.ads \
|
||||
ada/sem.adb ada/sem_attr.ads ada/sem_aux.ads ada/sem_aux.adb \
|
||||
ada/sem_case.ads ada/sem_case.adb ada/sem_ch10.ads ada/sem_ch11.ads \
|
||||
ada/sem_ch12.ads ada/sem_ch13.ads ada/sem_ch2.ads ada/sem_ch3.ads \
|
||||
ada/sem_ch4.ads ada/sem_ch5.ads ada/sem_ch6.ads ada/sem_ch7.ads \
|
||||
ada/sem_ch8.ads ada/sem_ch9.ads ada/sem_eval.ads ada/sem_prag.ads \
|
||||
ada/sem_res.ads ada/sem_type.ads ada/sem_util.ads ada/sinfo.ads \
|
||||
ada/sinfo.adb ada/sinput.ads ada/snames.ads ada/stand.ads \
|
||||
ada/opt.ads ada/output.ads ada/restrict.ads ada/rident.ads \
|
||||
ada/scans.ads ada/sem.ads ada/sem.adb ada/sem_attr.ads ada/sem_aux.ads \
|
||||
ada/sem_aux.adb ada/sem_case.ads ada/sem_case.adb ada/sem_ch10.ads \
|
||||
ada/sem_ch11.ads ada/sem_ch12.ads ada/sem_ch13.ads ada/sem_ch2.ads \
|
||||
ada/sem_ch3.ads ada/sem_ch4.ads ada/sem_ch5.ads ada/sem_ch6.ads \
|
||||
ada/sem_ch7.ads ada/sem_ch8.ads ada/sem_ch9.ads ada/sem_eval.ads \
|
||||
ada/sem_prag.ads ada/sem_res.ads ada/sem_type.ads ada/sem_util.ads \
|
||||
ada/sinfo.ads ada/sinfo.adb ada/sinput.ads ada/snames.ads ada/stand.ads \
|
||||
ada/stylesw.ads ada/system.ads ada/s-exctab.ads ada/s-htable.ads \
|
||||
ada/s-imenne.ads ada/s-memory.ads ada/s-os_lib.ads ada/s-parame.ads \
|
||||
ada/s-rident.ads ada/s-secsta.ads ada/s-soflin.ads ada/s-stache.ads \
|
||||
|
|
@ -4044,7 +4049,7 @@ ada/sem_ch3.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
|||
ada/itypes.ads ada/layout.ads ada/lib.ads ada/lib.adb ada/lib-list.adb \
|
||||
ada/lib-load.ads ada/lib-sort.adb ada/lib-util.ads ada/lib-xref.ads \
|
||||
ada/namet.ads ada/namet.adb ada/nlists.ads ada/nlists.adb ada/nmake.ads \
|
||||
ada/nmake.adb ada/opt.ads ada/output.ads ada/par_sco.ads \
|
||||
ada/nmake.adb ada/opt.ads ada/opt.adb ada/output.ads ada/par_sco.ads \
|
||||
ada/put_alfa.ads ada/restrict.ads ada/restrict.adb ada/rident.ads \
|
||||
ada/rtsfind.ads ada/scans.ads ada/sem.ads ada/sem.adb ada/sem_attr.ads \
|
||||
ada/sem_aux.ads ada/sem_aux.adb ada/sem_case.ads ada/sem_case.adb \
|
||||
|
|
@ -4345,23 +4350,23 @@ ada/sem_dist.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
|||
ada/hostparm.ads ada/inline.ads ada/interfac.ads ada/lib.ads \
|
||||
ada/lib-load.ads ada/namet.ads ada/namet.adb ada/nlists.ads \
|
||||
ada/nlists.adb ada/nmake.ads ada/nmake.adb ada/opt.ads ada/output.ads \
|
||||
ada/rident.ads ada/rtsfind.ads ada/scans.ads ada/sem.ads ada/sem.adb \
|
||||
ada/sem_attr.ads ada/sem_aux.ads ada/sem_aux.adb ada/sem_ch10.ads \
|
||||
ada/sem_ch11.ads ada/sem_ch12.ads ada/sem_ch13.ads ada/sem_ch2.ads \
|
||||
ada/sem_ch3.ads ada/sem_ch4.ads ada/sem_ch5.ads ada/sem_ch6.ads \
|
||||
ada/sem_ch7.ads ada/sem_ch8.ads ada/sem_ch9.ads ada/sem_disp.ads \
|
||||
ada/sem_dist.ads ada/sem_dist.adb ada/sem_eval.ads ada/sem_prag.ads \
|
||||
ada/sem_res.ads ada/sem_util.ads ada/sinfo.ads ada/sinfo.adb \
|
||||
ada/sinput.ads ada/snames.ads ada/stand.ads ada/stringt.ads \
|
||||
ada/stringt.adb ada/stylesw.ads ada/system.ads ada/s-carun8.ads \
|
||||
ada/s-exctab.ads ada/s-htable.ads ada/s-imenne.ads ada/s-memory.ads \
|
||||
ada/s-os_lib.ads ada/s-parame.ads ada/s-rident.ads ada/s-secsta.ads \
|
||||
ada/s-soflin.ads ada/s-stache.ads ada/s-stalib.ads ada/s-stoele.ads \
|
||||
ada/s-stoele.adb ada/s-string.ads ada/s-traent.ads ada/s-unstyp.ads \
|
||||
ada/s-wchcon.ads ada/table.ads ada/table.adb ada/targparm.ads \
|
||||
ada/tbuild.ads ada/tree_io.ads ada/types.ads ada/types.adb \
|
||||
ada/uintp.ads ada/uintp.adb ada/uname.ads ada/unchconv.ads \
|
||||
ada/unchdeal.ads ada/urealp.ads ada/widechar.ads
|
||||
ada/restrict.ads ada/rident.ads ada/rtsfind.ads ada/scans.ads \
|
||||
ada/sem.ads ada/sem.adb ada/sem_attr.ads ada/sem_aux.ads \
|
||||
ada/sem_aux.adb ada/sem_ch10.ads ada/sem_ch11.ads ada/sem_ch12.ads \
|
||||
ada/sem_ch13.ads ada/sem_ch2.ads ada/sem_ch3.ads ada/sem_ch4.ads \
|
||||
ada/sem_ch5.ads ada/sem_ch6.ads ada/sem_ch7.ads ada/sem_ch8.ads \
|
||||
ada/sem_ch9.ads ada/sem_disp.ads ada/sem_dist.ads ada/sem_dist.adb \
|
||||
ada/sem_eval.ads ada/sem_prag.ads ada/sem_res.ads ada/sem_util.ads \
|
||||
ada/sinfo.ads ada/sinfo.adb ada/sinput.ads ada/snames.ads ada/stand.ads \
|
||||
ada/stringt.ads ada/stringt.adb ada/stylesw.ads ada/system.ads \
|
||||
ada/s-carun8.ads ada/s-exctab.ads ada/s-htable.ads ada/s-imenne.ads \
|
||||
ada/s-memory.ads ada/s-os_lib.ads ada/s-parame.ads ada/s-rident.ads \
|
||||
ada/s-secsta.ads ada/s-soflin.ads ada/s-stache.ads ada/s-stalib.ads \
|
||||
ada/s-stoele.ads ada/s-stoele.adb ada/s-string.ads ada/s-traent.ads \
|
||||
ada/s-unstyp.ads ada/s-wchcon.ads ada/table.ads ada/table.adb \
|
||||
ada/targparm.ads ada/tbuild.ads ada/tree_io.ads ada/types.ads \
|
||||
ada/types.adb ada/uintp.ads ada/uintp.adb ada/uname.ads \
|
||||
ada/unchconv.ads ada/unchdeal.ads ada/urealp.ads ada/widechar.ads
|
||||
|
||||
ada/sem_elab.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
||||
ada/a-uncdea.ads ada/alloc.ads ada/aspects.ads ada/atree.ads \
|
||||
|
|
@ -4409,22 +4414,23 @@ ada/sem_elim.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
|||
ada/hlo.ads ada/hostparm.ads ada/inline.ads ada/interfac.ads \
|
||||
ada/lib.ads ada/lib.adb ada/lib-list.adb ada/lib-load.ads \
|
||||
ada/lib-sort.adb ada/namet.ads ada/namet.adb ada/nlists.ads \
|
||||
ada/nlists.adb ada/nmake.ads ada/opt.ads ada/output.ads ada/rident.ads \
|
||||
ada/scans.ads ada/sem.ads ada/sem.adb ada/sem_attr.ads ada/sem_aux.ads \
|
||||
ada/sem_aux.adb ada/sem_ch10.ads ada/sem_ch11.ads ada/sem_ch12.ads \
|
||||
ada/sem_ch13.ads ada/sem_ch2.ads ada/sem_ch3.ads ada/sem_ch4.ads \
|
||||
ada/sem_ch5.ads ada/sem_ch6.ads ada/sem_ch7.ads ada/sem_ch8.ads \
|
||||
ada/sem_ch9.ads ada/sem_elim.ads ada/sem_elim.adb ada/sem_prag.ads \
|
||||
ada/sem_util.ads ada/sinfo.ads ada/sinfo.adb ada/sinput.ads \
|
||||
ada/sinput.adb ada/snames.ads ada/stand.ads ada/stringt.ads \
|
||||
ada/stylesw.ads ada/system.ads ada/s-exctab.ads ada/s-htable.ads \
|
||||
ada/s-htable.adb ada/s-imenne.ads ada/s-memory.ads ada/s-os_lib.ads \
|
||||
ada/s-parame.ads ada/s-rident.ads ada/s-secsta.ads ada/s-soflin.ads \
|
||||
ada/s-stache.ads ada/s-stalib.ads ada/s-stoele.ads ada/s-stoele.adb \
|
||||
ada/s-strhas.ads ada/s-string.ads ada/s-traent.ads ada/s-unstyp.ads \
|
||||
ada/s-wchcon.ads ada/table.ads ada/table.adb ada/targparm.ads \
|
||||
ada/tree_io.ads ada/types.ads ada/uintp.ads ada/uintp.adb ada/uname.ads \
|
||||
ada/unchconv.ads ada/unchdeal.ads ada/urealp.ads ada/widechar.ads
|
||||
ada/nlists.adb ada/nmake.ads ada/opt.ads ada/output.ads \
|
||||
ada/restrict.ads ada/rident.ads ada/scans.ads ada/sem.ads ada/sem.adb \
|
||||
ada/sem_attr.ads ada/sem_aux.ads ada/sem_aux.adb ada/sem_ch10.ads \
|
||||
ada/sem_ch11.ads ada/sem_ch12.ads ada/sem_ch13.ads ada/sem_ch2.ads \
|
||||
ada/sem_ch3.ads ada/sem_ch4.ads ada/sem_ch5.ads ada/sem_ch6.ads \
|
||||
ada/sem_ch7.ads ada/sem_ch8.ads ada/sem_ch9.ads ada/sem_elim.ads \
|
||||
ada/sem_elim.adb ada/sem_prag.ads ada/sem_util.ads ada/sinfo.ads \
|
||||
ada/sinfo.adb ada/sinput.ads ada/sinput.adb ada/snames.ads \
|
||||
ada/stand.ads ada/stringt.ads ada/stylesw.ads ada/system.ads \
|
||||
ada/s-exctab.ads ada/s-htable.ads ada/s-htable.adb ada/s-imenne.ads \
|
||||
ada/s-memory.ads ada/s-os_lib.ads ada/s-parame.ads ada/s-rident.ads \
|
||||
ada/s-secsta.ads ada/s-soflin.ads ada/s-stache.ads ada/s-stalib.ads \
|
||||
ada/s-stoele.ads ada/s-stoele.adb ada/s-strhas.ads ada/s-string.ads \
|
||||
ada/s-traent.ads ada/s-unstyp.ads ada/s-wchcon.ads ada/table.ads \
|
||||
ada/table.adb ada/targparm.ads ada/tree_io.ads ada/types.ads \
|
||||
ada/uintp.ads ada/uintp.adb ada/uname.ads ada/unchconv.ads \
|
||||
ada/unchdeal.ads ada/urealp.ads ada/widechar.ads
|
||||
|
||||
ada/sem_eval.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
||||
ada/a-uncdea.ads ada/alloc.ads ada/aspects.ads ada/atree.ads \
|
||||
|
|
@ -4494,21 +4500,22 @@ ada/sem_mech.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
|||
ada/gnat.ads ada/g-htable.ads ada/gnatvsn.ads ada/hlo.ads \
|
||||
ada/hostparm.ads ada/inline.ads ada/interfac.ads ada/lib.ads \
|
||||
ada/lib-load.ads ada/namet.ads ada/namet.adb ada/nlists.ads \
|
||||
ada/nlists.adb ada/nmake.ads ada/opt.ads ada/output.ads ada/rident.ads \
|
||||
ada/scans.ads ada/sem.ads ada/sem.adb ada/sem_attr.ads ada/sem_aux.ads \
|
||||
ada/sem_aux.adb ada/sem_ch10.ads ada/sem_ch11.ads ada/sem_ch12.ads \
|
||||
ada/sem_ch13.ads ada/sem_ch2.ads ada/sem_ch3.ads ada/sem_ch4.ads \
|
||||
ada/sem_ch5.ads ada/sem_ch6.ads ada/sem_ch7.ads ada/sem_ch8.ads \
|
||||
ada/sem_ch9.ads ada/sem_mech.ads ada/sem_mech.adb ada/sem_prag.ads \
|
||||
ada/sem_util.ads ada/sinfo.ads ada/sinfo.adb ada/sinput.ads \
|
||||
ada/snames.ads ada/stand.ads ada/stylesw.ads ada/system.ads \
|
||||
ada/s-exctab.ads ada/s-htable.ads ada/s-imenne.ads ada/s-memory.ads \
|
||||
ada/s-os_lib.ads ada/s-parame.ads ada/s-rident.ads ada/s-secsta.ads \
|
||||
ada/s-soflin.ads ada/s-stache.ads ada/s-stalib.ads ada/s-stoele.ads \
|
||||
ada/s-stoele.adb ada/s-string.ads ada/s-traent.ads ada/s-unstyp.ads \
|
||||
ada/s-wchcon.ads ada/table.ads ada/table.adb ada/targparm.ads \
|
||||
ada/tree_io.ads ada/types.ads ada/uintp.ads ada/uintp.adb ada/uname.ads \
|
||||
ada/unchconv.ads ada/unchdeal.ads ada/urealp.ads ada/widechar.ads
|
||||
ada/nlists.adb ada/nmake.ads ada/opt.ads ada/output.ads \
|
||||
ada/restrict.ads ada/rident.ads ada/scans.ads ada/sem.ads ada/sem.adb \
|
||||
ada/sem_attr.ads ada/sem_aux.ads ada/sem_aux.adb ada/sem_ch10.ads \
|
||||
ada/sem_ch11.ads ada/sem_ch12.ads ada/sem_ch13.ads ada/sem_ch2.ads \
|
||||
ada/sem_ch3.ads ada/sem_ch4.ads ada/sem_ch5.ads ada/sem_ch6.ads \
|
||||
ada/sem_ch7.ads ada/sem_ch8.ads ada/sem_ch9.ads ada/sem_mech.ads \
|
||||
ada/sem_mech.adb ada/sem_prag.ads ada/sem_util.ads ada/sinfo.ads \
|
||||
ada/sinfo.adb ada/sinput.ads ada/snames.ads ada/stand.ads \
|
||||
ada/stylesw.ads ada/system.ads ada/s-exctab.ads ada/s-htable.ads \
|
||||
ada/s-imenne.ads ada/s-memory.ads ada/s-os_lib.ads ada/s-parame.ads \
|
||||
ada/s-rident.ads ada/s-secsta.ads ada/s-soflin.ads ada/s-stache.ads \
|
||||
ada/s-stalib.ads ada/s-stoele.ads ada/s-stoele.adb ada/s-string.ads \
|
||||
ada/s-traent.ads ada/s-unstyp.ads ada/s-wchcon.ads ada/table.ads \
|
||||
ada/table.adb ada/targparm.ads ada/tree_io.ads ada/types.ads \
|
||||
ada/uintp.ads ada/uintp.adb ada/uname.ads ada/unchconv.ads \
|
||||
ada/unchdeal.ads ada/urealp.ads ada/widechar.ads
|
||||
|
||||
ada/sem_prag.o : ada/ada.ads ada/a-except.ads ada/a-unccon.ads \
|
||||
ada/a-uncdea.ads ada/ali.ads ada/alloc.ads ada/aspects.ads \
|
||||
|
|
|
|||
|
|
@ -108,7 +108,8 @@ package body Ch6 is
|
|||
-- end [DESIGNATOR];
|
||||
|
||||
-- SUBPROGRAM_RENAMING_DECLARATION ::=
|
||||
-- SUBPROGRAM_SPECIFICATION renames callable_entity_NAME;
|
||||
-- SUBPROGRAM_SPECIFICATION renames callable_entity_NAME
|
||||
-- [ASPECT_SPECIFICATIONS];
|
||||
|
||||
-- SUBPROGRAM_BODY_STUB ::=
|
||||
-- SUBPROGRAM_SPECIFICATION is separate;
|
||||
|
|
@ -506,6 +507,7 @@ package body Ch6 is
|
|||
Scan; -- past RENAMES
|
||||
Set_Name (Rename_Node, P_Name);
|
||||
Set_Specification (Rename_Node, Specification_Node);
|
||||
P_Aspect_Specifications (Rename_Node);
|
||||
TF_Semicolon;
|
||||
Pop_Scope_Stack;
|
||||
return Rename_Node;
|
||||
|
|
|
|||
|
|
@ -1353,6 +1353,7 @@ package Rtsfind is
|
|||
|
||||
RE_Allocate_Any_Controlled, -- System.Storage_Pools.Subpools
|
||||
RE_Deallocate_Any_Controlled, -- System.Storage_Pools.Subpools
|
||||
RE_Header_Size_With_Padding, -- System.Storage_Pools.Subpools
|
||||
RE_Root_Storage_Pool_With_Subpools, -- System.Storage_Pools.Subpools
|
||||
RE_Root_Subpool, -- System.Storage_Pools.Subpools
|
||||
RE_Subpool_Handle, -- System.Storage_Pools.Subpools
|
||||
|
|
@ -2550,6 +2551,7 @@ package Rtsfind is
|
|||
|
||||
RE_Allocate_Any_Controlled => System_Storage_Pools_Subpools,
|
||||
RE_Deallocate_Any_Controlled => System_Storage_Pools_Subpools,
|
||||
RE_Header_Size_With_Padding => System_Storage_Pools_Subpools,
|
||||
RE_Root_Storage_Pool_With_Subpools => System_Storage_Pools_Subpools,
|
||||
RE_Root_Subpool => System_Storage_Pools_Subpools,
|
||||
RE_Subpool_Handle => System_Storage_Pools_Subpools,
|
||||
|
|
|
|||
|
|
@ -56,12 +56,6 @@ package body System.Storage_Pools.Subpools is
|
|||
procedure Detach (N : not null SP_Node_Ptr);
|
||||
-- Unhook a subpool node from an arbitrary subpool list
|
||||
|
||||
function Nearest_Multiple_Rounded_Up
|
||||
(Size : Storage_Count;
|
||||
Alignment : Storage_Count) return Storage_Count;
|
||||
-- Given arbitrary values of storage size and alignment, calculate the
|
||||
-- nearest multiple of the alignment rounded up where size can fit.
|
||||
|
||||
--------------
|
||||
-- Allocate --
|
||||
--------------
|
||||
|
|
@ -218,10 +212,7 @@ package body System.Storage_Pools.Subpools is
|
|||
-- Account for possible padding space before the header due to a
|
||||
-- larger alignment.
|
||||
|
||||
Header_And_Padding :=
|
||||
Nearest_Multiple_Rounded_Up
|
||||
(Size => Header_Size,
|
||||
Alignment => Alignment);
|
||||
Header_And_Padding := Header_Size_With_Padding (Alignment);
|
||||
|
||||
N_Size := Storage_Size + Header_And_Padding;
|
||||
|
||||
|
|
@ -388,10 +379,7 @@ package body System.Storage_Pools.Subpools is
|
|||
-- Account for possible padding space before the header due to a
|
||||
-- larger alignment.
|
||||
|
||||
Header_And_Padding :=
|
||||
Nearest_Multiple_Rounded_Up
|
||||
(Size => Header_Size,
|
||||
Alignment => Alignment);
|
||||
Header_And_Padding := Header_Size_With_Padding (Alignment);
|
||||
|
||||
-- N_Addr N_Ptr Addr (from input)
|
||||
-- | | |
|
||||
|
|
@ -571,6 +559,28 @@ package body System.Storage_Pools.Subpools is
|
|||
Free (Subpool.Node);
|
||||
end Finalize_Subpool;
|
||||
|
||||
------------------------------
|
||||
-- Header_Size_With_Padding --
|
||||
------------------------------
|
||||
|
||||
function Header_Size_With_Padding
|
||||
(Alignment : System.Storage_Elements.Storage_Count)
|
||||
return System.Storage_Elements.Storage_Count
|
||||
is
|
||||
Size : constant Storage_Count := Header_Size;
|
||||
|
||||
begin
|
||||
if Size mod Alignment = 0 then
|
||||
return Size;
|
||||
|
||||
-- Add enough padding to reach the nearest multiple of the alignment
|
||||
-- rounding up.
|
||||
|
||||
else
|
||||
return ((Size + Alignment - 1) / Alignment) * Alignment;
|
||||
end if;
|
||||
end Header_Size_With_Padding;
|
||||
|
||||
----------------
|
||||
-- Initialize --
|
||||
----------------
|
||||
|
|
@ -592,26 +602,6 @@ package body System.Storage_Pools.Subpools is
|
|||
Pool.Subpools.Prev := Pool.Subpools'Unchecked_Access;
|
||||
end Initialize_Pool;
|
||||
|
||||
---------------------------------
|
||||
-- Nearest_Multiple_Rounded_Up --
|
||||
---------------------------------
|
||||
|
||||
function Nearest_Multiple_Rounded_Up
|
||||
(Size : Storage_Count;
|
||||
Alignment : Storage_Count) return Storage_Count
|
||||
is
|
||||
begin
|
||||
if Size mod Alignment = 0 then
|
||||
return Size;
|
||||
|
||||
-- Add enough padding to reach the nearest multiple of the alignment
|
||||
-- rounding up.
|
||||
|
||||
else
|
||||
return ((Size + Alignment - 1) / Alignment) * Alignment;
|
||||
end if;
|
||||
end Nearest_Multiple_Rounded_Up;
|
||||
|
||||
---------------------
|
||||
-- Pool_Of_Subpool --
|
||||
---------------------
|
||||
|
|
|
|||
|
|
@ -329,6 +329,13 @@ private
|
|||
-- subpool from its owner's list. Deallocate the associated doubly linked
|
||||
-- list node.
|
||||
|
||||
function Header_Size_With_Padding
|
||||
(Alignment : System.Storage_Elements.Storage_Count)
|
||||
return System.Storage_Elements.Storage_Count;
|
||||
-- Given an arbitrary alignment, calculate the size of the header which
|
||||
-- precedes a controlled object as the nearest multiple rounded up of the
|
||||
-- alignment.
|
||||
|
||||
overriding procedure Initialize (Controller : in out Pool_Controller);
|
||||
-- Buffer routine, calls Initialize_Pool
|
||||
|
||||
|
|
|
|||
|
|
@ -838,7 +838,7 @@ package body System.Task_Primitives.Operations is
|
|||
|
||||
Result :=
|
||||
pthread_create
|
||||
(T.Common.LL.Thread'Access,
|
||||
(T.Common.LL.Thread'Unrestricted_Access,
|
||||
Attributes'Access,
|
||||
Thread_Body_Access (Wrapper),
|
||||
To_Address (T));
|
||||
|
|
@ -867,7 +867,7 @@ package body System.Task_Primitives.Operations is
|
|||
|
||||
Result :=
|
||||
pthread_create
|
||||
(T.Common.LL.Thread'Access,
|
||||
(T.Common.LL.Thread'Unrestricted_Access,
|
||||
Attributes'Access,
|
||||
Thread_Body_Access (Wrapper),
|
||||
To_Address (T));
|
||||
|
|
|
|||
|
|
@ -1012,7 +1012,7 @@ package body System.Task_Primitives.Operations is
|
|||
Thread_Body_Access (Wrapper),
|
||||
To_Address (T),
|
||||
Opts,
|
||||
T.Common.LL.Thread'Access);
|
||||
T.Common.LL.Thread'Unrestricted_Access);
|
||||
|
||||
Succeeded := Result = 0;
|
||||
pragma Assert
|
||||
|
|
|
|||
|
|
@ -8668,7 +8668,7 @@ package body Sem_Res is
|
|||
-- this by making sure that the expanded code points to
|
||||
-- the Sloc of the expression, not the original pragma.
|
||||
|
||||
Error_Msg_N
|
||||
Error_Msg_F
|
||||
("?assertion would fail at run time!",
|
||||
Expression
|
||||
(First (Pragma_Argument_Associations (Orig))));
|
||||
|
|
@ -8694,7 +8694,7 @@ package body Sem_Res is
|
|||
then
|
||||
null;
|
||||
else
|
||||
Error_Msg_N
|
||||
Error_Msg_F
|
||||
("?check would fail at run time!",
|
||||
Expression
|
||||
(Last (Pragma_Argument_Associations (Orig))));
|
||||
|
|
|
|||
|
|
@ -1573,6 +1573,14 @@ package body Sinfo is
|
|||
return Flag13 (N);
|
||||
end Has_Wide_Wide_Character;
|
||||
|
||||
function Header_Size_Added
|
||||
(N : Node_Id) return Boolean is
|
||||
begin
|
||||
pragma Assert (False
|
||||
or else NT (N).Nkind = N_Attribute_Reference);
|
||||
return Flag11 (N);
|
||||
end Header_Size_Added;
|
||||
|
||||
function Hidden_By_Use_Clause
|
||||
(N : Node_Id) return Elist_Id is
|
||||
begin
|
||||
|
|
@ -4637,6 +4645,14 @@ package body Sinfo is
|
|||
Set_Flag13 (N, Val);
|
||||
end Set_Has_Wide_Wide_Character;
|
||||
|
||||
procedure Set_Header_Size_Added
|
||||
(N : Node_Id; Val : Boolean := True) is
|
||||
begin
|
||||
pragma Assert (False
|
||||
or else NT (N).Nkind = N_Attribute_Reference);
|
||||
Set_Flag11 (N, Val);
|
||||
end Set_Header_Size_Added;
|
||||
|
||||
procedure Set_Hidden_By_Use_Clause
|
||||
(N : Node_Id; Val : Elist_Id) is
|
||||
begin
|
||||
|
|
|
|||
|
|
@ -1205,6 +1205,13 @@ package Sinfo is
|
|||
-- code outside the Wide_Character range) appears in the string. Used to
|
||||
-- implement pragma preference rules.
|
||||
|
||||
-- Header_Size_Added (Flag11-Sem)
|
||||
-- Present in N_Attribute_Reference nodes, set only for attribute
|
||||
-- Max_Size_In_Storage_Elements. The flag indicates that the size of the
|
||||
-- hidden list header used by the runtime finalization support has been
|
||||
-- added to the size of the prefix. The flag also prevents the infinite
|
||||
-- expansion of the same attribute in the said context.
|
||||
|
||||
-- Hidden_By_Use_Clause (Elist4-Sem)
|
||||
-- An entity list present in use clauses that appear within
|
||||
-- instantiations. For the resolution of local entities, entities
|
||||
|
|
@ -3326,6 +3333,7 @@ package Sinfo is
|
|||
-- Entity (Node4-Sem) used if the attribute yields a type
|
||||
-- Associated_Node (Node4-Sem)
|
||||
-- Do_Overflow_Check (Flag17-Sem)
|
||||
-- Header_Size_Added (Flag11-Sem)
|
||||
-- Redundant_Use (Flag13-Sem)
|
||||
-- Must_Be_Byte_Aligned (Flag14)
|
||||
-- plus fields for expression
|
||||
|
|
@ -8555,6 +8563,9 @@ package Sinfo is
|
|||
function Has_Wide_Wide_Character
|
||||
(N : Node_Id) return Boolean; -- Flag13
|
||||
|
||||
function Header_Size_Added
|
||||
(N : Node_Id) return Boolean; -- Flag11
|
||||
|
||||
function Hidden_By_Use_Clause
|
||||
(N : Node_Id) return Elist_Id; -- Elist4
|
||||
|
||||
|
|
@ -9530,6 +9541,9 @@ package Sinfo is
|
|||
procedure Set_Has_Wide_Wide_Character
|
||||
(N : Node_Id; Val : Boolean := True); -- Flag13
|
||||
|
||||
procedure Set_Header_Size_Added
|
||||
(N : Node_Id; Val : Boolean := True); -- Flag11
|
||||
|
||||
procedure Set_Hidden_By_Use_Clause
|
||||
(N : Node_Id; Val : Elist_Id); -- Elist4
|
||||
|
||||
|
|
@ -11926,6 +11940,7 @@ package Sinfo is
|
|||
pragma Inline (Has_Task_Name_Pragma);
|
||||
pragma Inline (Has_Wide_Character);
|
||||
pragma Inline (Has_Wide_Wide_Character);
|
||||
pragma Inline (Header_Size_Added);
|
||||
pragma Inline (Hidden_By_Use_Clause);
|
||||
pragma Inline (High_Bound);
|
||||
pragma Inline (Identifier);
|
||||
|
|
@ -12247,6 +12262,7 @@ package Sinfo is
|
|||
pragma Inline (Set_Has_Task_Name_Pragma);
|
||||
pragma Inline (Set_Has_Wide_Character);
|
||||
pragma Inline (Set_Has_Wide_Wide_Character);
|
||||
pragma Inline (Set_Header_Size_Added);
|
||||
pragma Inline (Set_Hidden_By_Use_Clause);
|
||||
pragma Inline (Set_High_Bound);
|
||||
pragma Inline (Set_Identifier);
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue