URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [ada/] [ChangeLog-2007] - Rev 281
Compare with Previous | Blame | View Log
2007-12-27 Samuel Tardieu <sam@rfc1149.net>PR ada/34553* adaint.c (__gnat_open_new_temp, __gnat_tmp_name): Use mkstemp()instead of mktemp() or tmpnam() on NetBSD.2007-12-23 Eric Botcazou <ebotcazou@adacore.com>* trans.c (call_to_gnu): Make the temporary for non-addressableIn parameters passed by reference.(addressable_p): Return true for STRING_CST and CALL_EXPR.2007-12-19 Robert Dewar <dewar@adacore.com>* g-expect-vms.adb, g-expect.adb, s-poosiz.adb:Add pragma Warnings (Off) for unassigned IN OUT arguments* sem_warn.adb (Output_Reference): Suppress messages for internal names(Check_References): Extensive changes to tune up warnings(Output_Non_Modifed_In_Out_Warnings): Changes to tune up warnings(Has_Pragma_Unmodifed_Check_Spec): New function(Check_References): Implement pragma Unmodified(Warn_On_Unassigned_Out_Parameter): Implement pragma Unmodified* par-prag.adb: Dummy entry for pragma Unmodified* sem_prag.adb: Implement pragma Unmodified* einfo.ads, einfo.adb: (Has_Pragma_Unmodified): New flag(Proc_Next_Component_Or_Discriminant): Fix typo.Update comments.* sem_util.adb (Note_Possible_Modification): Add processinng for pragmaUnmodified.(Reset_Analyzed_Flags): Use Traverse_Proc instead of Traverse_Func,because the former already takes care of discarding the result.(Mark_Coextensions): Remove ununused initial value from Is_Dynamic.Add comment.* snames.h, snames.ads, snames.adb: Add entry for pragma Unmodified2007-12-19 Eric Botcazou <ebotcazou@adacore.com>* targparm.adb, targparm.ads, system.ads, system-darwin-ppc.ads,system-vxworks-x86.ads, system-linux-ppc.ads, system-linux-hppa.ads,system-hpux-ia64.ads, system-vxworks-arm.ads, system-darwin-x86.ads,system-vms_64.ads, system-vms-ia64.ads, system-linux-ia64.ads,system-freebsd-x86.ads, system-linux-x86_64.ads, system-tru64.ads,system-aix.ads, system-vxworks-sparcv9.ads, system-solaris-x86.ads,system-irix-o32.ads, system-irix-n32.ads, system-hpux.ads,system-vxworks-m68k.ads, system-linux-x86.ads, system-vxworks-mips.ads,system-solaris-sparc.ads, system-solaris-sparcv9.ads, system-vms.ads,system-mingw.ads, system-vms-zcx.ads, system-vxworks-ppc.ads(Dynamic_Trampolines_Used): Delete.* system-lynxos-x86.ads, system-lynxos-ppc.ads: Ditto.Turn on stack probing mechanism on LynxOS.2007-12-19 Bob Duff <duff@adacore.com>* atree.ads, atree.adb (Traverse_Func): Walk Field2 last, and eliminatethe resulting tail recursion by hand. This prevents running out ofmemory on deeply nested concatenations, since Field2 is where the leftoperand of concatenations is stored.Fix bug (was returning OK_Orig in some cases). Fix return subtype toclarify that it can only return OK or Abandon.* sem_res.adb (Resolve_Op_Concat): Replace the recursion on the leftoperand by iteration, in order to avoid running out of memory ondeeply-nested concatenations. Use the Parent pointer to get back up thetree.(Resolve_Op_Concat_Arg, Resolve_Op_Concat_First,Resolve_Op_Concat_Rest): New procedures split out ofResolve_Op_Concat, so the iterative algorithm in Resolve_Op_Concat isclearer.* checks.adb (Remove_Checks): Use Traverse_Proc instead ofTraverse_Func, because the former already takes care of discarding theresult.* errout.adb (First_Node): Use Traverse_Proc instead of Traverse_Func,because the former already takes care of discarding the result.(Remove_Warning_Messages): Use appropriate subtype for Status andDiscard2007-12-19 Ed Schonberg <schonberg@adacore.com>* exp_aggr.adb (Not_OK_For_Backend): A component of a private type withdiscriminants forces expansion of the aggregate into assignments.(Init_Record_Controller): If the type of the aggregate is untagged andis not inherently limited, the record controller is not limited either.2007-12-19 Robert Dewar <dewar@adacore.com>* exp_attr.adb (Expand_N_Attribute_Reference, case Size): Fix error inhandling compile time known size of record or array (case of front endlayout active, e.g. in GNAAMP).2007-12-19 Javier Miranda <miranda@adacore.com>* exp_ch3.adb (Expand_N_Object_Declaration): Complete the circuitrythat forces the construction of static dispatch tables in case ofrecord subtypes.2007-12-19 Robert Dewar <dewar@adacore.com>* exp_ch9.adb (Null_Statements): Moved to library level(Trivial_Accept_OK): New function(Expand_Accept_Declaration): Use Trivial_Accept_OK(Expand_N_Accept_Statement): Use Trivial_Accept_OK2007-12-19 Robert Dewar <dewar@adacore.com>* exp_pakd.adb (Expand_Bit_Packed_Element_Set): Fix packed array typein complex case where array is Volatile.2007-12-19 Ed Schonberg <schonberg@adacore.com>* freeze.adb (Freeze_Record_Type, Check_Current_Instance): Implementproperly the Ada2005 rules concerning when the current instance of arecord type is aliased.2007-12-19 Ed Schonberg <schonberg@adacore.com>* par-ch3.adb (P_Record_Declaration): Guard against cascaded errors inmangled declaration(P_Type_Declaration): Diagnose misuse of "abstract" in untagged recorddeclarations.(P_Variant_Part): Cleaner patch for parenthesized discriminant2007-12-19 Vincent Celier <celier@adacore.com>* prj-attr.adb (Package_Node_Id_Of): Returns Unknown_Package whenpackage is not known* prj-attr.ads (Unknown_Package): New constantDo not crash when an unknown package is in several projects* prj-dect.adb (Parse_Package_Declaration): Mark an unknown package asignored* prj-nmsc.adb (Check): Remove obsolete code related to no longerexisting package Language_Processing.2007-12-19 Ed Schonberg <schonberg@adacore.com>Gary Dismukes <dismukes@adacore.com>Samuel Tardieu <sam@rfc1149.net>PR ada/15803, ada/15805* sem_ch6.adb, sem_ch3.adb (Constrain_Access): In Ada2005, diagnoseillegal access subtypes when there is a constrained partial view.(Check_For_Premature_Usage): New procedure insideAccess_Subprogram_Declaration for checking that an access-to-subprogramtype doesn't reference its own name within any formal parameters orresult type (including within nested anonymous access types).(Access_Subprogram_Declaration): Add call to Check_For_Premature_Usage.(Sem_Ch3.Analyze_Object_Declaration, Sem_ch6.Process_Formals): if thecontext is an access_to_variable, the expression cannot be anaccess_to_constant.2007-12-19 Bob Duff <duff@adacore.com>* sem_ch4.adb (Analyze_Concatenation_Rest): New procedure.(Analyze_Concatenation): Use iteration instead of recursion in orderto avoid running out of stack space for deeply nested concatenations.2007-12-19 Ed Schonberg <schonberg@adacore.com>Gary Dismukes <dismukes@adacore.com>* sem_ch8.adb (Analyze_Subprogram_Renaming): Diagnose illegal renamingswhose renamed entity is a subprogram that requires overriding.(Premature_Usage): Test for the case of N_Full_Type_Declaration whenissuing an error for premature usage and issue a message that says'type' rather than 'object'.2007-12-19 Gary Dismukes <dismukes@adacore.com>PR ada/34149* sem_disp.adb (Check_Dispatching_Call): Augment existing test forpresence of a statically tagged operand (Present (Static_Tag)) withtest for Indeterm_Ancestor_Call when determining whether to propagatethe static tag to tag-indeterminate operands (which forces dispatchingon such calls).(Check_Controlling_Formals): Ada2005, access parameters can havedefaults.(Add_Dispatching_Operation, Check_Operation_From_Private_View): donot insert subprogram in list of primitive operations if already there.2007-12-19 Tristan Gingold <gingold@adacore.com>* utils.c (create_var_decl_1): call rest_of_decl_compilation only forglobal variable.2007-12-19 Thomas Quinot <quinot@adacore.com>Part of PR ada/33688* gen-soccon.c: Add constant IP_PKTINFO to allow getting ancillarydatagram info on Linux.2007-12-19 Vincent Celier <celier@adacore.com>* makegpr.adb (Check_Compilation_Needed): Normalize C_Source_Path sothat the source path name is always found in the dependencies.2007-12-19 Robert Dewar <dewar@adacore.com>* gnat_rm.texi, gnat_ugn.texi: Update documentation of -gnatw.oFix name of Wide_Wide_Latin_1/9 file namesAdd documentation for Ada.Exceptions.Last_Chance_Handler (a-elchha.ads)Add missing documentation for Ada.Wide_[Wide_]Characters.UnicodeAdd missing documentation for Ada.Command_Line.Response_FileUpdate list of warning letters for Warnings pragmaAdd documentation for pragma Unmodified2007-12-19 Samuel Tardieu <sam@rfc1149.net>* Makefile.in: Add s-tasinf.ad[bs] substitutions for sh4-linux target.2007-12-17 Arnaud Charlet <charlet@adacore.com>* s-vxwork-alpha.ads: Removed, no longer used.2007-12-15 Jakub Jelinek <jakub@redhat.com>* Make-lang.in (gnat1, gnatbind): Pass ALL_CFLAGS on the link line.2007-12-13 Samuel Tardieu <sam@rfc1149.net>PR ada/34360* Makefile.in: Change two occurrences of mlib-tgt.adb by correct namemlib-tgt-specific.adb.2007-12-13 Bob Duff <duff@adacore.com>* trans.c (Attribute_to_gnu): Check for violations of theNo_Implicit_Dynamic_Code restriction. This checking used to be done inthe front end, but is moved here so we can make it more accurate.2007-12-13 Pascal Obry <obry@adacore.com>* adaint.c (__gnat_pthread_setaffinity_np): New routine. A dummyversion is provided for older GNU/Linux distribution notsupporting thread affinity sets.* s-osinte-linux.ads (SC_NPROCESSORS_ONLN): New constant for sysconfcall.(bit_field): New packed boolean type used by cpu_set_t.(cpu_set_t): New type corresponding to the C type withthe same name. Note that on the Ada side we use a bitfield array for the affinity mask. There is not needfor the C macro for setting individual bit.(pthread_setaffinity_np): New imported routine.* s-taprop-linux.adb (Enter_Task): Check that the CPU affinity mask isno null.(Create_Task): Set the processor affinity mask if informationis present.* s-tasinf-linux.ads, s-tasinf-linux.adb: New files.2007-12-13 Robert Dewar <dewar@adacore.com>* s-osinte-lynxos-3.ads, s-osinte-hpux.ads, s-osinte-solaris-posix.ads,s-osinte-freebsd.ads, s-osinte-lynxos.ads, s-osinte-tru64.ads,s-osinte-mingw.ads, s-osinte-aix.ads, s-osinte-hpux-dce.ads,s-osinte-irix.ads, s-osinte-solaris.ads, s-intman-vms.adb,s-osinte-vms.ads, s-osinte-vxworks6.ads, s-osinte-vxworks.ads,s-auxdec.ads, s-auxdec-vms_64.ads, s-osinte-darwin.ads,s-taprop-vms.adb, s-interr-sigaction.adb, s-osinte-linux-hppa.ads,i-vxwork-x86.ads, s-tpopde-vms.ads: Add missing pragma Convention Cfor subprogram pointers.* g-ctrl_c.adb: New file.* g-ctrl_c.ads (Install_Handler): New body.* freeze.adb (Freeze_Subprogram): Use new flag Has_Pragma_Inline_Alwaysinstead of obsolete function Is_Always_Inlined.(Freeze_Entity): check for tagged type in imported C subprogram(Freeze_Entity): check for 8-bit boolean in imported C subprogram(Freeze_Entity): check for convention Ada subprogram pointer inimported C subprogram.(Freeze_Fixed_Point_Type): In the case of a base type where the lowbound would be chopped off and go from negative to zero, forceLoval_Excl_EP to be the same as Loval_Incl_EP (the included lowerbound) so that the size computation for the base type will takenegative values into account.2007-12-13 Eric Botcazou <ebotcazou@adacore.com>Bob Duff <duff@adacore.com>Tristan Gingold <gingold@adacore.com>* system-linux-ia64.ads, system-freebsd-x86.ads, system-lynxos-ppc.ads,system-lynxos-x86.ads, system-linux-x86_64.ads, system-tru64.ads,system-aix.ads, system-vxworks-sparcv9.ads, system-solaris-x86.ads,system-irix-o32.ads, system-irix-n32.ads, system-hpux.ads,system-vxworks-m68k.ads, system-linux-x86.ads, system-vxworks-mips.ads,system-solaris-sparc.ads, system-solaris-sparcv9.ads, system-vms.ads,system-mingw.ads, system-vms-zcx.ads, system-vxworks-ppc.ads,system-vxworks-arm.ads, system-darwin-x86.ads, system.ads,system-vms_64.ads, system-darwin-ppc.ads, system-vxworks-x86.ads,system-linux-ppc.ads, system-linux-hppa.ads, system-hpux-ia64.ads,system-vms-ia64.ads (Stack_Check_Limits): New target parameter.(Always_Compatible_Rep): New flag to control trampolines globally.(Dynamic_Trampolines_Used): New flag for implementing theNo_Implicit_Dynamic_Code restriction more correctly (not yet used,and not yet set correctly for some targets).* s-taprop-vxworks.adb: Use stack limit method of stack checking.Simply indirectly call s-stchop when a task is created.* ali.ads:New flag added: Stack_Check_Switch_Set which is set when '-fstack-check'appears as an argument (entries A) in an ALI file.* fe.h (Stack_Check_Limits): Declare new target parameter.(Check_Implicit_Dynamic_Code_Allowed): New procedure.* init.c: Declare __gnat_set_stack_limit_hook for VxWorks kernel RTS.This variable is declared in C to be sure not subject to elaborationcode.(__gnat_map_signal, VxWorks): In kernel mode, map SIGILL toStorage_Error.* targparm.ads, targparm.adb (Stack_Check_Limits): New parameter.(Always_Compatible_Rep, Dynamic_Trampolines_Used): New parameters.* s-stchop.ads: Add comments.* s-stchop-vxworks.adb: Package almost fully rewritten to use stacklimit method of stack checking.* s-stchop-limit.ads: New file.2007-12-13 Robert Dewar <dewar@adacore.com>* sem_ch5.adb, s-taskin.adb, a-ciorma.adb, a-coorma.adb, a-cohama.adb,a-cihama.adb, g-awk.adb,s-inmaop-posix.adb: Update handling of assigned value/unreferencedwarnings* exp_smem.adb: Update handling of assigned value/unreferenced warnings* sem.adb: Update handling of assigned value/unreferenced warnings* a-exexpr-gcc.adb: Add a pragma warnings off for boolean return* lib-xref.ads: Improve documentation for k xref type* lib-xref.adb:Update handling of assigned value/unreferenced warnings(Generate_Reference): Warning for reference to entity for which apragma Unreferenced has been given should be unconditional.If the entity is a discriminal, mark the originaldiscriminant as referenced.* sem_warn.ads, sem_warn.adb(Check_One_Unit): Test Renamed_In_Spec to control giving warning forno entities referenced in package(Check_One_Unit): Don't give message about no entities referenced ina package if a pragma Unreferenced has appeared.Handle new warning flag -gnatw.a/-gnatw.AUpdate handling of assigned value/unreferenced warnings* atree.h: Add flags up to Flag247(Flag231): New macro.2007-12-13 Jose Ruiz <ruiz@adacore.com>* adaint.h: (__gnat_plist_init): Not defined for RTX.* initialize.c (__gnat_initialize): Do not call __gnat_plist_init forRTX systems.* Makefile.in: Add new files s-tasinf-linux.ads and s-tasinf-linux.adb.(LIBGNAT_TARGET_PAIRS, MISCLIB, THREADSLIB,EXTRA_GNATRTL_NONTASKING_OBJS, EXTRA_GNATRTL_TASKING_OBJS,GNATLIB_SHARED for RTX run time): Use the versions required by RTX.* mingw32.h:Do not define GNAT_UNICODE_SUPPORT for RTX since it is not supported.* sysdep.c (winflush_function for RTX): Procedure that does nothingsince we only have problems with Windows 95/98, which are notsupported by RTX.(__gnat_ttyname): Return the empty string on Nucleus, just asdone on vxworks.2007-12-13 Robert Dewar <dewar@adacore.com>* a-textio.adb, a-textio.ads:Extensive changes to private part for wide character encoding* a-witeio.adb, a-witeio.ads, a-ztexio.ads, a-ztexio.adb(Look_Ahead): Fix mishandling of encoded sequencesMove declaration of Wch_Con to private part (should not be visible)* ali.adb (Scan_ALI): Set default encoding method to brackets instead ofUTF-8. Probably this is never used, but if it is, brackets isclearly correct.* bindgen.adb (Get_WC_Encoding): New procedure to properly handlesetting wide character encoding for no main program case and whenencoding is specified using -W?Initialize stack limit of environment task if stack limit method ofstack checking is enabled.(Gen_Adainit_Ada): Use Get_WC_Encoding to output encoding method(Gen_Adainit_C): Use Get_WC_Encoding to output encoding method(Get_Main_Unit_Name): New function.(Gen_Adainit_Ada): Add call to main program for .NET when needed.(Gen_Output_File): Set Bind_Main_Program to True for .NET* bindusg.adb: Add line for -Wx switch* s-wchcon.adb, s-wchcon.ads: (Is_Start_Of_Encoding): New functionAdd commentsAdd new useful constant WC_Longest_Sequences* switch-b.adb: Clean up handling of -Wx switchFor -gnatWx, set Wide_Character_Encoding_Method_Specified* switch-c.adb: -gnatg activates warning on assertion errorsFor -gnatWx, set Wide_Character_Encoding_Method_Specified* s-wchcon.adb: (Is_Start_Of_Encoding): New function2007-12-13 Robert Dewar <dewar@adacore.com>Ed Schonberg <schonberg@adacore.com>* a-ngcoty.adb: New pragma Fast_Math* opt.adb: New pragma Fast_Math* par-prag.adb:Add Implemented_By_Entry to the list of pragmas which do not require anyspecial processing.(Favor_Top_Level): New pragma.New pragma Fast_Math* exp_attr.adb: Move Wide_[Wide_]Image routines to Exp_Imgv(Expand_N_Attribute_Reference, Displace_Allocator_Pointer,Expand_Allocator_Expression): Take into account VM_Target(Expand_Attribute, case 'Identity): Handle properly the case wherethe prefix is a task interface.New pragma Fast_Math* par.adb (Next_Token_Is): New function(P_Pragma): Add Skipping parameter(U_Left_Paren): New procedure(U_Right_Paren): New procedureNew pragma Fast_Math* par-ch10.adb (P_Subunit): Unconditional msg for missing ) aftersubunitNew pragma Fast_Math* sem_prag.adb: Add significance value to table Sig_Flag for pragmaImplemented_By_Entry.(Analyze_Pragma): Add case for Ada 2005 pragma Implemented_By_Entry.(Set_Inline_Flags): Do not try to link pragma Inline onto chain of repitems, since it can apply to more than one overloadable entity. Setnew flag Has_Pragma_Inline_Always for Inline_Always case.(Analyze_Pragma, case Complex_Representation): Improve error message.(Analyze_Pragma, case Assert): When assertions are disabled build therewritten code with Sloc of expression rather than pragma, so newwarning about failing is not deleted.(Analyze_Pragma): Allow pragma Preelaborable_Initialization to apply toprotected types and update error message to reflect that. Test whetherthe protected type is allowed for the pragma (an error is issued if thetype has any entries, or components that do not have preelaborableinitialization).New pragma Fast_Math(Analyze_Pragma, case No_Return): Handle generic instance* snames.h, snames.ads, snames.adb:Add new predefined name for interface primitive _Disp_Requeue.New pragma Fast_Math* a-tags.ads, a-tags.adb: New calling sequence forString_To_Wide_[Wide_]String(Secondary_Tag): New subprogram.* exp_imgv.ads, exp_imgv.adb: Move Wide_[Wide_]Image routines herefrom Exp_AttrNew calling sequence for String_To_Wide_[Wide_]String(Expand_Image_Attribute): Major rewrite. New calling sequence avoidsthe use of the secondary stack for image routines.* a-except-2005.adb, s-wchstw.ads, s-wchstw.adb, s-wwdenu.adb: Newcalling sequence for String_To_Wide_[Wide_]String* par-ch3.adb (P_Declarative_Items): Recognize use of Overriding inAda 95 mode(P_Unknown_Discriminant_Part_Opt): Handle missing parens gracefullyRemove Atree.Delete_Tree/Delete_Node and Nlist.Delete_List* par-ch6.adb (P_Subprogram): Recognize use of Overriding in Ada 95 mode(P_Formal_Part): Use Skipping parameter in P_Pragma callto improve error recovery* par-util.adb (Next_Token_Is): New function(Signal_Bad_Attribute): Use new Namet.Is_Bad_Spelling_Of function* par-ch2.adb (Skip_Pragma_Semicolon): Do not resynchronize tosemicolon if missing(P_Pragma): Implement new Skipping parameterRemove Atree.Delete_Tree/Delete_Node and Nlist.Delete_ListFix location of flag for unrecognized pragma message* par-tchk.adb (U_Left_Paren): New procedure(U_Right_Paren): New procedure2007-12-13 Geert Bosch <bosch@adacore.com>* a-tifiio.adb:(Put_Int64): Use Put_Digit to advance Pos. This fixes a case wherethe second or later Scaled_Divide would omit leading zeroes,resulting in too few digits produced and a Layout_Error as result.(Put): Initialize Pos.2007-12-13 Robert Dewar <dewar@adacore.com>atree.ads, atree.adb (Flag231..Flag247): New functions(Set_Flag231..Set_Flag247): New procedures(Basic_Set_Convention): Rename Set_Convention to beBasic_Set_Convention(Nkind_In): New functionsRemove Atree.Delete_Tree/Delete_Node and Nlist.Delete_List* exp_ch6.adb (Expand_Call): Use new flag Has_Pragma_Inline_Alwaysinsteadof obsolete function Is_Always_Inlined(Register_Predefined_DT_Entry): Initialize slots of the secondsecondary dispatch table.Remove Atree.Delete_Tree/Delete_Node and Nlist.Delete_List(Expand_N_Function_Call): Remove special provision for stack checking.* exp_util.ads, exp_util.adb (Is_Predefined_Dispatching_Operation):Include _Disp_Requeue in the list of predefined operations.(Find_Interface_ADT): Modified to fulfill the new specification.Remove Atree.Delete_Tree/Delete_Node and Nlist.Delete_List* par-ch4.adb, nlists.ads, nlists.adb:Remove Atree.Delete_Tree/Delete_Node and Nlist.Delete_List* sinfo.ads, sinfo.adb: (Nkind_In): New functionsFix location of flag for unrecognized pragma message* sem_ch7.adb: Use Nkind_In2007-12-13 Vincent Celier <celier@adacore.com>* opt.ads:Indicate what flags are used by the Project Manager, gprbuild andgprclean.(Opt.Follow_Links_For_Dirs): New flag(Warn_On_Assertion_Failure): New flag(Wide_Character_Encoding_Method_Specified): New flag(Suppress_All_Inlining): New switch set by -fno-inline(Real_VMS_Target): New flagNew pragma Fast_Math2007-12-13 Robert Dewar <dewar@adacore.com>* back_end.adb: Recognize -fno-inline2007-12-13 Robert Dewar <dewar@adacore.com>* checks.adb: Fix optimization problem with short-circuited form2007-12-13 Bob Duff <duff@adacore.com>* clean.adb (Usage): Add line for -aP(Check_Version_And_Help): Change Check_Version_And_Help to be generic,with a parameter "procedure Usage", instead of passing a pointer to aprocedure. This is to eliminate trampolines (since the Usage procedureis often nested in a main procedure, and it would be inconvenient tounnest it).* g-comlin.adb (For_Each_Simple_Switch): Change For_Each_Simple_Switchto be generic, with a parameter "procedure Callback (...)", instead ofpassing a pointer to a procedure. This is to eliminate trampolines(since the Callback procedure is usually nested).* gnatfind.adb, switch.adb, switch.ads, gnatlink.adb, gnatls.adb,gnatname.adb, gnatxref.adb, gnatchop.adb, gprep.adb, gnatbind.adb(Check_Version_And_Help): Change Check_Version_And_Help to be generic.* g-pehage.adb (Compute_Edges_And_Vertices, Build_Identical_Key_Sets):Use the generic Heap_Sort_G instead of Heap_Sort_A.2007-12-13 Hristian Kirtchev <kirtchev@adacore.com>* einfo.ads, einfo.adb: Flag 232 is now Implemented_By_Entry.(Implemented_By_Entry, Set_Implemented_By_Entry): New routines.(Write_Entry_Flags): Add an entry for Implemented_By_Entry.(Renamed_In_Spec): New flag(Has_Pragma_Inline_Always): New flagAdd missing doc for pragma Obsolescent_WarningAdd missing doc for 17 additional unused flags (230-247)(Is_Derived_Type): Remove condition "not Is_Generic_Type".Alphabetize with clauses.Separate Is_Thunk and Has_Thunks flags(Write_Entity_Flags): Add forgotten entry for Has_Thunks(Related_Interface): Renamed to Related_Type.(Has_Thunks/Set_Has_Thunks): Subprograms of new attribute.(Set_Is_Flag): Restrict the assertion.2007-12-13 Vincent Celier <celier@adacore.com>* errout.adb (Output_Source_Line): Do not keep a trailing space afterthe source line number if the source line is empty.2007-12-13 Geert Bosch <bosch@adacore.com>* eval_fat.adb (Decompose_Int): Handle argument of zero.(Compose): Remove special casing of zero.(Exponent): Likewise.(Fraction): Likewise.(Machine): Likewise.(Decompose): Update comment.2007-12-13 Ed Schonberg <schonberg@adacore.com>* exp_aggr.adb (Build_Record_Aggr_Code): If there is an aggregate for alimited ancestor part, initialize controllers of enclosing recordbefore expanding ancestor aggregate.(Gen_Assign): If a component of the aggregate is box-initialized, addcode to call Initialize if the component is controlled, and explicitassignment of null if the component is an access type.Handle properly aggregates for limited types that appear in objectdeclarations when the aggregate contains controlled values such asprotected types.When expanding limited aggregates into individual components, do notcall Adjust on controlled components that are limited.2007-12-13 Ed Schonberg <schonberg@adacore.com>* expander.adb: Take into account N_Subprogram_Renaming_Declaration2007-12-13 Hristian Kirtchev <kirtchev@adacore.com>* exp_ch3.adb (Predefined_Primitive_Bodies): Generate the body ofpredefined primitive _Disp_Requeue.(Make_Predefined_Primitive_Specs): Create the spec for predefinedprimitive _Disp_Requeue.(Make_Predefined_Primitive_Specs/Predefined_Primitive_Bodies): Set thetype of formal Renamed_Eq to Entity_Id (instead of Node_Id).(Make_Predefined_Primitive_Specs): Spec of "=" needed if the parent isan interface type. In case of limited interfaces we now declare all thepredefined primitives associated with synchronized interfaces asabstract.(Predef_Spec_Or_Body): For interface types generate abstract subprogramdeclarations.(Predefined_Primitive_Bodies): Add body of "=" if the parent of thetagged type is an interface type and there is no user-defined equalityfunction.Add also bodies of predefined primitives associated with synchronizedinterfaces.(Freeze_Record_Type): Do not build bodies of predefined primitives ofinterface types because they are now defined abstract.Add missing documentation.(Expand_Record_Controller): Update occurrence of Related_Interfaceto Related_Type.(Build_Offset_To_Top_Functions): Do nothing in case of VM.(Expand_N_Object_Declaration): Take into account VM_Target when handlingclass wide interface object declaration.(Expand_Previous_Access_Type): Do not create a duplicate master entityif the access type already has one.(Expand_N_Object_Declaration): Defend against attempt to validity checkgeneric types. Noticed for -gnatVcf specified with previous errors.2007-12-13 Arnaud Charlet <charlet@adacore.com>* exp_ch4.adb (Expand_N_Attribute_Reference, Displace_Allocator_Pointer,Expand_Allocator_Expression): Take into account VM_Target* exp_ch5.adb (Expand_N_Extended_Return_Statement): Do not usesecondary stack when VM_Target /= No_VM2007-12-13 Javier Miranda <miranda@adacore.com>Ed Schonberg <schonberg@adacore.com>* exp_ch7.adb (Expand_N_Package_Body): Replace occurrence of attributeIs_Complation_Unit by Is_Library_Level_Entity in the codethat decides if the static dispatch tables need to be built.(Wrap_Transient_Declaration): Do not generate a finalization call ifthis is a renaming declaration and the renamed object is a componentof a controlled type.2007-12-13 Gary Dismukes <dismukes@adacore.com>* exp_ch8.ads, exp_ch8.adb (Expand_N_Subprogram_Renaming_Declaration):In the case where the renamed subprogram is a dereference, callForce_Evaluation on the prefix.2007-12-13 Hristian Kirtchev <kirtchev@adacore.com>Ed Schonberg <schonberg@adacore.com>* exp_ch9.adb (Expand_N_Asynchronous_Select,Expand_N_Conditional_Entry_Call, Expand_N_Timed_Entry_Call): Code andcomment reformatting.(Set_Privals): Inherit aliased flag from formal. From code reading.(Build_Simple_Entry_Call): Out parameters of an access type are passedby copy and initialized from the actual. This includes entry parameters.(Expand_N_Requeue_Statement): Reimplement in order to handle both Ada 95and Ada 2005 models of requeue.(Null_Statements): Still connsider do-end block null if it containsUnreferenced and Warnings pragmas.(Expand_N_Accept_Statement): Do not optimize away null do end ifdispatching policy is other than defaulted.(Expand_N_Timed_Entry_Call): When the triggering statement is adispatching call, manually analyze the delay statement.(Find_Parameter_Type): Move subprogram to Sem_Util.2007-12-13 Hristian Kirtchev <kirtchev@adacore.com>Javier Miranda <miranda@adacore.com>* exp_disp.ads, exp_disp.adb (Default_Prim_Op_Position): Primitive_Disp_Requeue occupies dispatch table slot number 15. Move_Disp_Timed_Select to slot 16.(Make_Disp_Requeue_Body, Make_Disp_Requeue_Spec): New routines whichgenerate the spec and body of _Disp_Reqeueue.(Make_DT): Build and initialize the second dispatch table.Handle initialization of RC_Offset when the parentis a private type with variable size components.(Make_Secondary_DT): Complete documentation. Add support toinitialize the second dispatch table.(Make_Tags): Generate the tag of the second dispatch table.(Register_Primitive): Add support to register primitives in thesecond dispatch table.2007-12-13 Pascal Obry <obry@adacore.com>* expect.c (__gnat_kill) [WIN32]: Implement the SIGINT signal onWindows. This signal is used by gnatmake to kill child processes forexample.2007-12-13 Javier Miranda <miranda@adacore.com>* exp_intr.adb (Expand_Dispatching_Constructor_Call): Add missingsupport for generic dispatching constructor calls in which we need tolocate the tag of a secondary dispatch table associated with aninterface type to properly dispatch the call.(Expand_N_Attribute_Reference [case Address],Expand_Dispatching_Constructor_Call, Expand_Unc_Deallocation): Fixhandling of VM targets.2007-12-13 Robert Dewar <dewar@adacore.com>Ed Schonberg <schonberg@adacore.com>* exp_prag.adb (Expand_Pragma_Assert): Recognize new warning flag forassert fail* ug_words: Add entries for -gnatw.a -gnatw.A* sem_res.adb (Set_String_Literal_Subtype): If the context of theliteral is a subtype with non-static constraints, use the base type ofthe context as the base of the string subtype, to prevent typemismatches in gigi.(Resolve_Actuals): If the actual is an entity name, generate areference before the actual is resolved and expanded, to preventspurious warnings on formals of enclosing protected operations.(Analyze_Overloaded_Selected_Component): If type of prefix ifclass-wide, use visible components of base type.(Resolve_Selected_Component): Ditto.(Resolve_Short_Circuit): Detect case of pragma Assert argumentevaluating to False, and issue warning message.* usage.adb: Add lines for -gnatw.a and -gnatw.A2007-12-13 Emmanuel Briot <briot@adacore.com>* g-calend.ads (No_Time): New constant, to represent an uninitializedtime value* g-catiio.ads, g-catiio.adb (Value): Added support for more dateformats.(Month_Name_To_Number): New subprogram* g-dirope.adb (Get_Current_Dir): On windows, normalize the driveletter to upper-case.2007-12-13 Robert Dewar <dewar@adacore.com>Ed Schonberg <schonberg@adacore.com>* gnat1drv.adb (Gnat1drv): Properly set new flag Opt.Real_VMS_Target* layout.adb (Resolve_Attribute, case 'Access): If designated type ofcontext is a limited view, use non-limited view when available. If thenon-limited view is an unconstrained array, this enforces consistencyrequirements in 3.10.2 (27).(Layout_Type): For an access type whose designated type is a limitedview, examine its declaration to determine if it is an unconstrainedarray, and size the access type accordingly.(Layout_Type): Do not force 32-bits for convention c subprogrampointers in -gnatdm mode, only if real vms target.* sem_attr.adb (Analyze_Access_Attribute): Use new flagHas_Pragma_Inline_Always instead of obsolete function Is_Always_Inlined(Analyze_Access_Attribute,Attribute_Address): Remove checks forviolations of the No_Implicit_Dynamic_Code restriction.(Resolve_Attribute, case 'Access): If designated type of context is alimited view, use non-limited view when available. If the non-limitedview is an unconstrained array, this enforces consistency requirementsin 3.10.2 (27).(Layout_Type): For an access type whose designated type is a limitedview, examine its declaration to determine if it is an unconstrainedarray, and size the access type accordingly.2007-12-13 Vincent Celier <celier@adacore.com>* gnatcmd.adb (GNATCmd): Do not issue -d= switch to gnatmetric whenobject directory of main project does not exist.On VMS, correctly set then environment variable for the sourcedirectories.2007-12-13 Vasiliy Fofanov <fofanov@adacore.com>* g-regist.ads, g-regist.adb (Set_Value): new parameter Expand; whenset to True this procedure will create the value of type REG_EXPAND_SZ.It was only possible to create REG_SZ values before.2007-12-13 Robert Dewar <dewar@adacore.com>* g-spchge.ads, g-spchge.adb, g-u3spch.adb, g-u3spch.ads,g-wispch.adb, g-wispch.ads, g-zspche.adb, g-zspche.ads,namet-sp.adb, namet-sp.ads: New files.* g-speche.adb: Use generic routine in g-spchge* s-wchcnv.ads, s-wchcnv.adb:Minor code cleanup (make formal type consistent with spec)* namet.adb: Update comments.* par-endh.adb (Evaluate_End_Entry): Use newNamet.Sp.Is_Bad_Spelling_Of function* par-load.adb (Load): Use new Namet.Sp.Is_Bad_Spelling_Of function* sem_aggr.adb (Resolve_Record_Aggregate): If a component of anancestor is an access type initialized with a box, set its typeexplicitly, for use in subsequent expansion.(Check_Misspelled_Component): Use new Namet.Sp.Is_Bad_Spelling_Offunction2007-12-13 Robert Dewar <dewar@adacore.com>* g-spipat.adb (Break): Fix accessibility error (vsn taking not nullaccess Vstring)2007-12-13 Robert Dewar <dewar@adacore.com>* inline.adb (Back_End_Cannot_Inline): Use new flagHas_Pragma_Inline_Always instead of obsolete function Is_Always_Inlined* sem_ch6.ads, sem_ch6.adb (Analyze_Subprogram_Body): Use new flagHas_Pragma_Inline_Always instead.of obsolete function Is_Always_Inlined(Build_Body_To_Inline): Same change(Cannot_Inline): Same changeDo not give warning on exception raise in No_Return function* sem_ch13.adb (Analyze_Record_Representation_Clause): If an inheritedcomponent has two inconsistent component clauses in the same recordrepresentation clause, favor the message that complains aboutduplication rather than inconsistency.Update comments.(Record_Representation_Clause): Do not warn on missing componentclauses for inherited components of a type extension.(Rep_Item_Too_Late): Do not attempt to link pragma into rep chain foran overloadable item if it is a pragma that can apply to multipleoverloadable entities (e.g. Inline) because a pragma cannot be onmore than one chain at a time.(Validate_Unchecked_Conversion): Add code to warn on uncheckedconversion where one of the operands is Ada.Calendar.Time.(Analyze_Attribute_Definition_Clause): Fix typo in error message.For now, ignore Component_Size clause on VM targets, as done forpragma Pack.2007-12-13 Emmanuel Briot <briot@adacore.com>Vincent Celier <celier@adacore.com>* prj.ads, prj.adb (Is_A_Language): Now takes a Name_Id instead of astring(Must_Check_Configuration, Default_Language_Is_Ada): new flags inprj.ads(Hash): Move instantiation of System.HTable.Hash from spec to body(prj-nmsc.adb): Optimize calls to Name_Find when on case sensitivesystems, since we do not need to recompute the Name_Id for the canonicalfile name.(Body_Suffix_Id_Of, Spec_Suffix_Id_Of): new version that takes a name_idas a parameter. This parameter is in fact always "ada" in all calls, andwe were doing 160560 extra calls to Name_Find to convert it to Name_Adawhile loading a project with 40000 files* prj-attr.adb: Fix name of attribute Dependency_DriverChange the kind of indexing for attribute Root* prj-dect.adb (Parse_Declarative_Items): Allow redeclarations ofvariables already declared, in case constructions.* prj-env.adb (Initialize): Reset Current_Source_Path_File andCurrent_Object_Path_File to No_Path.* prj-ext.adb (Initialize_Project_Path): In multi language mode, useADA_PROJECT_PATH if value of GPR_PROJECT_PATH is empty.* prj-makr.adb: new parameter Current_Dir* prj-nmsc.ads, prj-nmsc.adb (Find_Explicit_Sources): Do not look forAda sources when language is not Ada.Change Opt.Follow_Links to Opt.Follow_Links_For_Files.(Find_Excluded_Sources, Find_Explicit_Sources): new subprograms(Must_Check_Configuration, Default_Language_Is_Ada): new flags.(Locate_Directory): Always resolve links when computing Canonical_Path(Look_For_Sources): Make sure that Name_Buffer contains the file namein Source_Files before checking for the presence of a directoryseparator.Optimize calls to Name_Find when on case sensitive systems.(Body_Suffix_Id_Of, Spec_Suffix_Id_Of): new version that takes a name_idas a parameter.(Prj.Nmsc.Check): new parameter Current_Dir(Check_Ada_Naming_Schemes): Restrictions on suffixes are relaxed. Theycannot be empty and the spec suffix cannot be the same as the body orseparate suffix.(Get_Unit): When a file name can be of several unit kinds (spec, body orsubunit), always consider the longest suffix.(Check_Configuration): Do not issue an error if there is no compilerfor a language. Just issue a warning and ignore the sources for thelanguage.(Check_Library_Attributes): Only check Library_Dir if Library_Name isnot empty.(Check_Naming_Schemes.Maked_Unit): Only output message if high verbosity(Unit_Exceptions): New hash table(Check_Naming_Schemes): Check if a file that could be a unit because ofthe naming scheme is not in fact a source because there is an exceptionfor the unit.(Look_For_Sources): Put the unit exceptions in hash tableUnit_Exceptions(Get_Unit_Exceptions): Give initial value No_Source to local variableOther_Part to avoid exception when code is compiled with validitychecking.(Get_Sources_From_File): Check that there is no directory informationin the file names.(Look_For_Sources): Check that there is no directory information in thelist of file names in Source_Files.(Look_For_Sources): In multi-language mode, do not allow exception filenames that are excluded.(Excluded_Sources_Htable): New hash table(Search_Directories.Check_File): New procedure to simplifySearch_Directories.(Search_Directories): Do not consider excluded sources(Look_For_Sources): Populate Excluded_Sources_Htable before callingSearch_Directories.(Get_Exceptions): Set component Lang_Kind of Source_Data(Get_Unit_Exceptions): Ditto(Search_Directories): Ditto* prj-pars.adb: new parameter Current_Dir* prj-part.ads, prj-part.adb:Change Opt.Follow_Links to Opt.Follow_Links_For_Files.(Opt.Follow_Links_For_Dirs): New flag(Project_Path_Name_Of): Cache information returned by this routine asLocate_Regular_File is a costly routine. The code to output a loginformation and the effective call to Locate_Regular_File is nowfactorized into a routine (code clean-up).(Parse, Parse_Single_Project): new parameter Current_DirWhen main project file cannot be found, indicate in the errormessage the project path that was used to do the search.* prj-proc.ads, prj-proc.adb (Opt.Follow_Links_For_Dirs): New flag(Prj.Proc.Process*): new parameter Current_Dir* switch-m.adb: Change Opt.Follow_Links to Opt.Follow_Links_For_Files2007-12-13 Bob Duff <duff@adacore.com>* restrict.ads, restrict.adb (Check_Implicit_Dynamic_Code_Allowed): Newprocedure to be called from the back end to check theNo_Implicit_Dynamic_Code restriction.2007-12-13 Arnaud Charlet <charlet@adacore.com>* rtsfind.adb (Check_CRT): Take into account RTE_Available_CallFixes another case where RTE_Available_Call was ignored instead of beingtaken into account.(Load_Fail): Ditto.* rtsfind.ads: Add new entries.2007-12-13 Robert Dewar <dewar@adacore.com>* g-byorma.adb, g-byorma.ads, g-decstr.adb, g-decstr.ads,g-deutst.ads, g-encstr.adb, g-encstr.ads, g-enutst.ads: New files.* scn.adb: Implement BOM recognition2007-12-13 Thomas Quinot <quinot@adacore.com>Ed Schonberg <schonberg@adacore.com>* sem_ch10.adb (Check_Private_Child_Unit): A non-private library levelsubprogram body that acts as its own spec may not have a non-privateWITH clause on a private sibling.(Build_Unit_Name): If the parent unit in the name in a with_clause on achild unit is a renaming, create an implicit with_clause on thatparent, and not on the unit it renames, to prevent visibility errorsin the current unit.2007-12-13 Ed Schonberg <schonberg@adacore.com>* sem_ch12.adb (Instantiate_Formal_Subprogram): In the subprogramrenaming declaration, use the Slocs of the formal parameters from thedeclaration of the formal subprogram when creating the formal parameterentities in the renaming declaration.(Analyze_Formal_Type_Declaration): Change the placement of the errormessage concerning illegal known discriminants. It is now posted on thetype rather than on the first discriminant. This change ensures earlyerror report.(Freeze_Subprogram_Body): If the generic subprogram is nested withinthe package body that contains the instance, do not generate anout-of-place freeze node for the enclosing package.(Collect_Previous_Instantiations): Ignore internal instantiationsgenerated for formal packages.(Validate_Derived_Type_Instance): Add a check that when a formalderived type is Known_To_Have_Preelab_Init then the actual type musthave preelaborable initialization, and issue an error when thiscondition is violated.2007-12-13 Robert Dewar <dewar@adacore.com>* s-imenne.adb, s-imenne.ads: New files.* s-imgboo.adb, s-imgboo.ads, s-imgcha.adb, s-imgcha.ads, s-imgdec.adb,s-imgdec.ads, s-imgenu.ads, s-imgint.adb, s-imgint.ads, s-imglld.adb,s-imglld.ads, s-imglli.adb, s-imglli.ads, s-imgllu.adb, s-imgllu.ads,s-imgrea.adb, s-imgrea.ads, s-imguns.adb, s-imguns.ads, s-imgwch.adb,s-imgwch.ads: New calling sequence for Image routines to avoid secstack usage.2007-12-13 Javier Miranda <miranda@adacore.com>Ed Schonberg <schonberg@adacore.com>* sem_ch3.ads, sem_ch3.adb (Check_Abstract_Overriding): Avoidgeneration of spurious error if parent is an interface type; causedbecause predefined primitive bodies will be generated later byFreeze_Record_Type.(Process_Subtype): The subtype inherits the Known_To_Have_Preelab_Initflag.(Derive_Subprograms): Handle derivations of predefined primitivesafter all the user-defined primitives to ensure that they arefound in proper order in instantiations.(Add_Interface_Tag_Components, Inherit_Components): Update occurrencesof Related_Interface to Related_Type.(Record_Type_Declaration): Minor reordering of calls to decorate theTag component because the entity must have set its Ekind attributebefore setting its Is_Tag attribute.(Analyze_Subtype_Declaration): In the case of subtypes withPrivate_Kind, inherit Known_To_Have_Preelab_Init from the parent.2007-12-13 Hristian Kirtchev <kirtchev@adacore.com>Ed Schonberg <schonberg@adacore.com>* sem_ch4.adb (Analyze_Selected_Component): Include the requeuestatement to the list of contexts where a selected component with aconcurrent tagged type prefix should yield a primitive operation.(Find_Primitive_Operation): Handle case of class-wide types.(Analyze_Overloaded_Selected_Component): If type of prefix isclass-wide, use visible components of base type.(Resolve_Selected_Component): Ditto.(Try_Primitive_Operation, Collect_Generic_Type_Ops): If the type is aformal of a generic subprogram. find candidate interpretations byscanning the list of generic formal declarations.:(Process_Implicit_Dereference_Prefix): If the prefix has an incompletetype from a limited_with_clause, and the full view is available, use itfor subsequent semantic checks.(Check_Misspelled_Selector): Use Namet.Sp.Is_Bad_Spelling_Of function(Find_Primitive_Operation): New function.(Analyze_Overloaded_Selected_Component): insert explicit dereferenceonly once if several interpretations of the prefix yield an access type.(Try_Object_Operation): Code and comment cleanup.(Analyze_Selected_Component): Reorder local variables. Minot comment andcode reformatting. When the type of the prefix is tagged concurrent, acorrect interpretation might be available in the primitive andclass-wide operations of the type.2007-12-13 Robert Dewar <dewar@adacore.com>Ed Schonberg <schonberg@adacore.com>* sem_ch8.adb (Analyze_Subprogram_Renaming): Special error message forrenaming entry as subprogram using rename-as-body if subprogram specfrozen.(Use_One_Type): The clause is legal on an access type whose designatedtype has a limited view.(Find_Direct_Name): Use Namet.Sp.Is_Bad_Spelling_Of function(Find_Expanded_Name): Use Namet.Sp.Is_Bad_Spelling_Of function(Analyze_Renamed_Primitive_Operation): new procedure to determine theoperation denoted by a selected component.(Analyze_Renamed_Entry): Resolve the prefix of the entry name, becauseit can be an expression, possibly overloaded, that returns a task oran access to one.2007-12-13 Hristian Kirtchev <kirtchev@adacore.com>Gary Dismukes <dismukes@adacore.com>* sem_ch9.adb (Analyze_Requeue): Add a local flag to capture whether arequeue statement is dispatching. Do not emit an error when the name isnot an entry and the context is a dispatching select. Add code toperform subtype conformance between the formals of the current entryand those of the target interface primitive.(Analyze_Asynchronous_Select, Analyze_Conditional_Entry_Call, Analyze_Timed_Entry_Call): Analyze the triggering statement as the first step ofthe processing. If this is a dispatching select, postpone the analysisof all select statements until the Expander transforms the select. Thisapproach avoids generating duplicate identifiers after the Expander hasreplicated some of the select statements. In case the Expander isdisabled, perform regular analysis.(Check_Triggering_Statement): New routine.(Analyze_Requeue): Exclude any interpretations that are not entries whenchecking overloaded names in a requeue. Also test type conformance formatching interpretations rather than requiring subtype conformance atthat point to conform with the RM's resolution rule for requeues.2007-12-13 Ed Schonberg <schonberg@adacore.com>* sem_disp.adb (Check_Dispatching_Call): If an actual in a call to aninherited operation is a defaulted tag-indeterminate call, and there isa statically tagged actual, use the static tag as a controlling actualfor the defaulted actual.2007-12-13 Geert Bosch <bosch@adacore.com>* sem_eval.adb (Eval_Real_Literal): N_Constant_Declaration is a staticcontext, so do not call Check_Non_Static_Context.2007-12-13 Hristian Kirtchev <kirtchev@adacore.com>* sem_type.adb (Function_Interp_Has_Abstract_Op): Add guard to checkwhether formal E is an entity which may have parameters.2007-12-13 Bob Duff <duff@adacore.com>Javier Miranda <miranda@adacore.com>Robert Dewar <dewar@adacore.com>* sem_util.ads, sem_util.adb (Is_Concurrent_Interface): New routine.(Set_Convention): New procedure to set the Convention flag, and inaddition make sure the Favor_Top_Level flag is kept in sync (allforeign-language conventions require Favor_Top_Level = True).(Collect_Abstract_Interfaces): Update occurrences of Related_Interfaceto Related_Type.(Collect_Interfaces_Info): Minor update to handle the two secondarydispatch tables. Update occurrence of Related_Interface to Related_Type.(Generate_Parent_Ref): Add parameter to specify entity to check(Is_Preelaborable_Expression): Allow the name of a discriminant toinitialize a component of a type with preelaborable initialization.This includes the case of a discriminal used in such a context.(Is_Dependent_Component_Of_Mutable_Object): Take into account thelatest Ada 2005 rules about renaming and 'Access ofdiscriminant-dependent components.(Check_Nested_Access): Add handling when there are no enclosingsubprograms (e.g. case of a package body).(Find_Parameter_Type): Factor routine from several other compiler files.Remove routine from Find_Overridden_Synchronized_Primitive.2007-12-13 Thomas Quinot <quinot@adacore.com>* sinput.adb (Get_Source_File_Index): Add assertion to guard againstan invalid access to an uninitialized slot in theSource_File_Index_Table.2007-12-13 Thomas Quinot <quinot@adacore.com>* sinput-l.adb (Load_File): Disable style checks when preprocessing.2007-12-13 Bob Duff <duff@adacore.com>* s-soflin.ads: Apply new pragma Favor_Top_Level to allaccess-to-subprogram types in this package.2007-12-13 Olivier Hainque <hainque@adacore.com>* s-stausa.ads (Stack_Analyzer): Remove First_Is_Topmost, redundantwith Stack_Grows_Down in System.Parameters. Rename Array_Address intoStack_Overlay_Address and document that we are using an internalabstraction.(Byte_Size, Unsigned_32_Size): Remove, now useless.(Pattern_Type, Bytes_Per_Pattern): New subtype and constant, to be usedconsistently throughout the various implementation pieces.* s-stausa.adb (Stack_Slots): New type, abstraction for the stackoverlay we are using to fill the stack area with patterns.(Top_Slot_Index_In, Bottom_Slot_Index_In): Operations on Stack_Slots.(Push_Index_Step_For, Pop_Index_Step_For): Likewise.(Fill_Stack, Compute_Result): Use the Stack_Slots abstraction.2007-12-13 Robert Dewar <dewar@adacore.com>* s-stoele.adb ("mod"): mod negative value raises Constraint_Error2007-12-13 Arnaud Charlet <charlet@adacore.com>* s-tassta.adb:(Create_Task): Take into account tasks created by foreign threads.Code clean up: use constants instead of hard coded values.2007-12-13 Robert Dewar <dewar@adacore.com>* styleg.adb (Check_Comment): More liberal rules for comment placement2007-12-13 Olivier Hainque <hainque@adacore.com>* tb-alvms.c (struct tb_entry_t, __gnat_backtrace): Revert back to useof Procedure Value instead of Frame Pointer as the invocationidentifier associated with the instruction pointer in each tracebackentry.* g-trasym-vms-alpha.adb (Traceback_Entry, PV_For, FP_For,TB_Entry_For): Revert back to use of Procedure Value instead of FramePointer as the invocation identifier passed to tbk$symbolize.* s-traent-vms.ads, s-traent-vms.adb(Traceback_Entry, PV_For, FP_For, TB_Entry_For): Revert back to use ofProcedure Value instead of Frame Pointer as the invocation identifierpassed to tbk$symbolize.2007-12-13 Robert Dewar <dewar@adacore.com>* tbuild.ads, tbuild.adb:Fix location of flag for unrecognized pragma message2007-12-13 Robert Dewar <dewar@adacore.com>* treepr.ads, treepr.adb: (pl): implement use of positive valueshorthands2007-12-13 Robert Dewar <dewar@adacore.com>* xeinfo.adb: Remove warnings* xnmake.adb: Remove warnings* xsinfo.adb: Remove warnings* xtreeprs.adb: Remove warnings* xsnames.adb: Remove warnings* a-ngcoar.adb: Fix typo.* s-interr.adb: Minor reformatting* env.c: Minor reformatting.* g-bytswa.adb: Minor reformatting.* g-rannum.ads: Minor documentation improvements* s-tasinf-mingw.adb: Minor header fix* a-clrefi.adb: Minor reformatting* g-sttsne.ads: Minor documentation improvement* g-sttsne-locking.ads: Minor documentation improvement* g-soliop-solaris.ads: Minor documentation improvement* g-soliop-mingw.ads: Minor documentation improvement* g-soliop.ads: Minor documentation improvement* exp_aggr.ads: Minor reformatting* debug.adb: Add documentation for the gprbuild debug flags* exp_ch2.adb: Use Nkind_In to simplify code throughout* exp_pakd.adb: Minor reformatting* g-altive.ads, g-alleve.adb: Remove assertions.Add comment about minor differences between targets regardingfloating-point operations.* g-thread.adb: Remove pragma unreferenced.* lib.ads: Minor reformatting* par-ch9.adb: Minor reformatting of error messages* sem_case.adb: Minor reformatting* s-fileio.adb: Minor reformattinng* s-vmexta.ads: Minor typo* vxaddr2line.adb:Take into account 'Success' value as per new GNAT warning.2007-12-13 Vincent Celier <celier@adacore.com>* a-direct.adb (Create_Path): Always take '/' as a directory separator,even on Windows2007-12-13 Robert Dewar <dewar@adacore.com>Bob Duff <duff@adacore.com>* gnat_ugn.texi: Dcoument new rules for style check comment alignmentDocument that suffixes may be terminations of each othersAdd doc for -gnatw.a and -gnatw.ADocument gnatbind -Wx switchDocument BOM recognitionDocument pragma Implemented_By_Entry.Document new units.* gnat_rm.texi: (Favor_Top_Level): Document new pragma.Add doc for pragma Unreferenced suppressing no entities referenced msgAdd documentation of GNAT.Directory_Operations.IterationAdd documentation of GNAT.Random_NumbersAdd documentation for pragma Shared.Correct documentation for Bit_OrderAdd documentation for the Pool_Address attribute.Fix and improve documentation of pragma machine_attribute.New pragma Fast_MathDocument BOM recognition* vms_data.ads: Add entries for -gnatw.a -gnatw.AAdd /Wide_Character_Encoding for binderAdd qualifier for the new gnatpp option --no-separate-loop-then2007-12-13 Matthew Heaney <heaney@adacore.com>* a-cohase.ads, a-cihama.ads, a-cihase.ads, a-cohama.ads: Documentwhich generic formal operations are called for each operation.2007-12-13 Olivier Hainque <hainque@adacore.com>* tb-gcc.c (uw_data_t, trace_callback): Only define if not GCC-SJLJ eh.(__gnat_backtrace): Early return 0 if using GCC-SJLJ eh.2007-12-13 Emmanuel Briot <briot@adacore.com>* s-os_lib.ads, s-os_lib.adb (Normalize_Pathname): Do not computeReference_Dir unless we actually need it.2007-12-13 Vasiliy Fofanov <fofanov@adacore.com>Tristan Gingold <gingold@adacore.com>* g-socthi-vms.ads (Fd_Set_Access): make it 32-bit.* s-osprim-vms.adb,a-calend-vms.adb: Remove pragma warning off and add pragmaunreferenced.2007-12-13 Robert Dewar <dewar@adacore.com>* impunit.adb: Add entries for missing units* Makefile.rtl: Add new run-time units.* Make-lang.in: Update dependencies.2007-12-13 Bob Duff <duff@adacore.com>* itypes.ads, itypes.adb (Create_Itype): For access-to-subprogramtypes, set Can_Use_Internal_Rep appropriately, based onAlways_Compatible_Rep_On_Target.2007-12-13 Gary Dismukes <dismukes@adacore.com>Arnaud Charlet <charlet@adacore.com>* make.adb (Scan_Make_Arg): Add test for -aamp_target switch, passingit to the front end and setting the aamp_target environment variableto the switch's argument to ensure that gnaampbind and gnaamplink willtake the specified library into account.(Make): Only set Check_Object_Consistency to False for JVM, not for CILtarget, since the CIL compiler supports an "object" file (.il files).2007-12-13 Vincent Celier <celier@adacore.com>* symbols-processing-vms-ia64.adb (Process.Skip_Half): New procedure(Process.H): Remove variable. Replace Read_Half (H) with Skip_Half.2007-12-13 Geert Bosch <bosch@adacore.com>* s-parame-vxworks.adb:Update comments to reflect usage of this package by Nucleus.2007-12-13 Arnaud Charlet <charlet@adacore.com>* i-vxwork.ads: Kill new warning on Convention C, since changing thespec would break code.* i-forbla-unimplemented.ads, vx_stack_info.c: New files.* system-vxworks-alpha.ads: Removed.2007-12-10 Eric Botcazou <ebotcazou@adacore.com>* ada-tree.h (TYPE_RETURNS_BY_TARGET_PTR_P): Move around.2007-12-09 Samuel Tardieu <sam@rfc1149.net>PR ada/34366* sem_ch3.adb (Designates_T): New function.(Mentions_T): Factor reusable part of the logic into Designates_T.Consider non-access parameters and access and non-access result.(Check_Anonymous_Access_Components): Set ekind of anonymous access toE_Subprogram_Type to E_Anonymous_Access_Subprogram_Type.* einfo.ads: Update comment for E_Anonymous_Access_Subprogram_Type.2007-12-07 Ludovic Brenta <ludovic@ludovic-brenta.org>PR ada/34361* mlib-tgt.adb, mlib-tgt.ads: Fix comments at the top to reflectthe new implementation of target-specific calls.2007-12-07 Olivier Hainque <hainque@adacore.com>* decl.c (gnat_to_gnu_entity) <case E_Access_Type>: When computingthe designated full view, only follow a second level Full_View linkfor Non_Limited_Views of from_limited_with references.2007-12-07 Samuel Tardieu <sam@rfc1149.net>PR ada/15805* sem_ch6.adb (Process_Formals): Prevent an access type formalto be initialized with an access to constant object.* sem_ch3.adb (Analyze_Object_Declaration): Signal an errorwhen an access to constant is used to initialize an accessvalue.PR ada/21346* a-direct.adb (Compose): Containing_Directory can be an empty string.2007-12-07 Olivier Hainque <hainque@adacore.com>PR ada/34173* decl.c (gnat_to_gnu_entity) <case E_Array_Type>: When settingthe alignment on the GCC XUA array type, set TYPE_USER_ALIGN ifthis is from an alignment clause on the GNAT entity.* utils.c (create_field_decl): Rewrite the computation of DECL_ALIGNto distinguish the case where we set it from the type's alignment.When so, propagate TYPE_USER_ALIGN into DECL_USER_ALIGN to indicatewhether this alignment was set from an explicit alignment clause.2007-12-06 Eric Botcazou <ebotcazou@adacore.com>* decl.c (make_packable_type): Revert last change.(gnat_to_gnu_field): Avoid setting size and position multiple times.* utils.c (finish_record_type): Retrieve the real name of the type.2007-12-05 Eric Botcazou <ebotcazou@adacore.com>* trans.c (lvalue_required_p): Take base node directly insteadof its parent. Rename second parameter to 'gnu_type'.<N_Indexed_Component>: Return 0 if the node isn't the prefix.<N_Slice>: Likewise.(Identifier_to_gnu): Rename parent_requires_lvalue to require_lvalue.Adjust calls to lvalue_required_p.2007-12-05 Samuel Tardieu <sam@rfc1149.net>PR ada/21489* exp_ch9.adb (Build_Simple_Entry_Call): Initialize OUT access typeparameters of an entry call.2007-12-03 Robert Dewar <dewar@adacore.com>Samuel Tardieu <sam@rfc1149.net>PR ada/34287* sem_util.adb (Safe_To_Capture_Value): Do not capture valuesof variables declared in a library-level package.2007-12-02 Samuel Tardieu <sam@rfc1149.net>* clean.adb (Clean_Library_Directory): Use Empty_String'Access inteadof Empty_String'Unchecked_Access.* Makefile.in: Add support for sh4-linux.* system-linux-sh4.ads: New file.2007-12-01 Kostik Belousov <kostikbel@ukr.net>PR ada/33722* env.c (__gnat_setenv): FreeBSD 7 has a POSIX conformant putenv()and its argument must not be free()ed.2007-11-29 Eric Botcazou <ebotcazou@adacore.com>* decl.c (make_packable_type): Retrieve the real name of the type.(maybe_pad_type): Simplify similar code.2007-11-28 Samuel Tardieu <sam@rfc1149.net>PR ada/15804* par-ch3.adb (P_Variant_Part): Signal an error when anything otherthan an identifier is used after "case" in a variant_part.PR ada/17318* par-ch4.adb (Is_Parameterless_Attribute): New map.(P_Name, Scan_Apostrophe block): Parse left parenthesis followingattribute name or not depending on the new map.* sem-attr.adb (Analyze_Attribute): Parameterless attributesreturning a string or a type will not be called with improperarguments.* sem-attr.ads (Attribute_Class_Array): Move to snames.ads.* snames.ads (Attribute_Class_Array): Moved from sem-attr.ads.PR ada/32792* sem_attr.adb (Analyze_Attribute, Attribute_Integer_Value clause):Signal an error when attribute argument is a fixed-point value ofan unknown type.PR ada/22559* sem_ch3.adb (Build_Derived_Numeric_Type): Do not set RM_Size ona derived ordinary fixed point type.* sem_ch13.adb (Analyze_Attribute_Definition_Clause): RecomputeRM_Size when a Small clause is found.2007-11-26 Andreas Krebbel <krebbel1@de.ibm.com>PR 34081/C++* trans.c (Subprogram_Body_to_gnu, Compilation_Unit_to_gnu):Pass 'false' for the new allocate_struct_function parameter.* utils.c (build_function_stub): Likewise.2007-11-25 Richard Guenther <rguenther@suse.de>* utils.c (gnat_pushlevel): Use BLOCK_CHAIN.(gnat_poplevel): Likewise.2007-11-25 Eric Botcazou <ebotcazou@adacore.com>* decl.c (gnat_to_gnu_entity) <E_Record_Type>: If the type hasstrict alignment, no alignment clause and a known static size, capthe type alignment to the greatest power of 2 factor of the size.(gnat_to_gnu_field): If the field has a component clause, is aliasedor of a type with strict alignment, require that its size be equal tothat of the type.(validate_size): Use the type size as the minimum size for a type withstrict alignment.2007-11-23 Samuel Tardieu <sam@rfc1149.net>* s-inmaop-posix.adb, s-intman-vxworks.adb, s-taprop-hpux-dce.adb,s-taprop-irix.adb, s-taprop-linux.adb, s-taprop-lynxos.adb,s-taprop-posix.adb, s-taprop-tru64.adb, s-taprop-vxworks.adb:Use 'Access instead of 'Unchecked_Access in second and thirdarguments of pthread_sigmask.2007-11-23 Eric Botcazou <ebotcazou@adacore.com>* decl.c (ceil_alignment): New function.(gnat_to_gnu_entity): Use it to set the alignment on atomic types.(make_packable_type): Likewise.2007-11-22 Olivier Hainque <hainque@adacore.com>* trans.c (gnat_to_gnu) <case N_Free_Statement>: Reformat linesto fit in 80 columns.2007-11-21 Aurelien Jarno <aurelien@aurel32.net>* s-osinte-kfreebsd-gnu.ads (To_Target_Priority): New function.* Makefile.in: Add EH_MECHANISM=-gcc to kfreebsd-gnu. Remove SYMLIB.2007-11-19 Eric Botcazou <ebotcazou@adacore.com>PR ada/34098* misc.c (gnat_adjust_rli): Delete.(gnat_init): Do not initialize the translation code here.Do not call set_lang_adjust_rli.* trans.c (init_code_table): Make static.(gnat_init_stmt_group): Delete.(gigi): Initialize the translation code entirely here.Emit debug info for the common types here instead of...* utils.c (gnat_init_decl_processing): ...here.* gigi.h (init_code_table): Delete.(gnat_init_stmt_group): Likewise.2007-11-16 Olivier Hainque <hainque@adacore.com>* utils2.c (build_call_alloc_dealloc) <if gnu_obj>: Move the coderetrieving an allocator return value from a super-aligned address fromhere to ...* trans.c (gnat_to_gnu) <case N_Free_Statement>: ... here, and don'texpect a super-aligned address for a fat or thin pointer.2007-11-14 Eric Botcazou <ebotcazou@adacore.com>* trans.c (call_to_gnu): Always set the source location on the callexpression. If the function returns-by-target, also set it on theaddress expression.2007-11-14 Samuel Tardieu <sam@rfc1149.net>* adaint.c, init.c, initialize.c, link.c: Remove system-specificsections of non-supported Interix target.* s-osinte-interix.ads: Removed.* i-cstrin.ads (chars_ptr): Make it a C convention type.2007-11-13 Samuel Tardieu <sam@rfc1149.net>* a-tasatt.adb: Add a comment at the beginning of the packageexplaining why in general 'Unchecked_Access must be used insteadof 'Access.* sem_prag.adb (Process_Convention): Move the test for theentity on which the Convention pragma applies down to alsoforbid pragma Convention on enumeration literals reachedthrough renamings.2007-11-10 Samuel Tardieu <sam@rfc1149.net>* a-tasatt.adb: Revert previous change for this file as it willgenerate an error when this package is instantiated from alocal context.2007-11-07 Samuel Tardieu <sam@rfc1149.net>* a-tasatt.adb: Type Wrapper should be declared in comment insteadof already declared type Node_Access.Use 'Access instead of 'Unchecked_Access when applicable. Locallifetime is the one of the package.(Set_Value): W is allocated on the heap.* g-socket.adb: Use 'Access instead of 'Unchecked_Access whenapplicable.(Get_Socket_Option): Optlen formal of C_Getsockopt is of an anonymousaccess type.(Receive_Socket): Fromlen formal of C_Recvfrom is of an anonymousaccess type.* s-taasde.adb: Use 'Access instead of 'Unchecked_Access whenapplicable.(elaboration code): Timer_Queue lifetime is the one of thepackage.* tracebak.c (i386 alternative): Remove useless comparaisonwhich is always false; LOWEST_ADDRESS is 0 and is never greaterthan an unsigned integer.* sem_attr.adb (Analyze_Attribute): Remove duplicate identicalembedded check for "Ada_Version >= Ada_05".2007-11-07 Olivier Hainque <hainque@adacore.com>* decl.c (make_aligning_type): Set the mode of the RECORD_TYPE wecraft and expand comment.2007-11-01 Eric Botcazou <ebotcazou@adacore.com>* lang-specs.h: Move translation of -fRTS= after -gnatez switch.2007-10-23 Eric Botcazou <ebotcazou@adacore.com>* misc.c (gnat_handle_option): Replace call to abort withcall to gcc_unreachable.(gnat_init): Likewise.(gnat_expand_expr): Likewise.(fp_prec_to_size): Likewise.(fp_size_to_prec): Likewise.2007-10-23 Richard Guenther <rguenther@suse.de>PR bootstrap/33608* tracebak.c: #undef abort after including system.h.2007-10-20 Danny Smith <dannysmith@users.sourceforge.net>* Makefile.in (LIBGNAT_TARGET_PAIRS) Add s-tasinf-mingw.adb,s-tasinf-mingw.ads, a-exetim-mingw.adb, a-exetim-mingw.adsfor win32 targets.(EXTRA_GNATRTL_TASKING_OBJS): Add a-exetim.o for win32 targets.2007-10-15 Eric Botcazou <ebotcazou@adacore.com>* s-osinte-tru64.adb: (Hide_Yellow_Zone): Add On parameter.Set the protection status of the guard page based on the value of On.* s-osinte-tru64.ads: (Hide_Yellow_Zone): Add On parameter.* s-taprop-tru64.adb: (Enter_Task): Pass True to Hide_Yellow_Zone.(Exit_Task): Pass False to Hide_Yellow_Zone.2007-10-15 Robert Dewar <dewar@adacore.com>* s-taprop-solaris.adb, s-taprop-vms.adb, s-taprop-mingw.adb,s-taprop-vxworks.adb, s-taprop-posix.adb, a-calend-vms.adb,a-calend.adb, a-nuflra.adb, a-tigeau.adb, a-wtgeau.adb,checks.adb, bindgen.adb, eval_fat.adb, exp_fixd.adb, fmap.adb,freeze.adb, g-awk.adb, g-calend.adb, g-diopit.adb, g-expect.adb,gnatchop.adb, gnatlink.adb, g-spipat.adb, g-thread.adb, make.adb,mdll.adb, mlib.adb, mlib-prj.adb, osint.adb, par-ch3.adb, prj.adb,prj-makr.adb, sem_prag.adb, sem_type.adb, s-fatgen.adb, s-fileio.adb,sinfo.ads, sinput-d.adb, s-taasde.adb, s-tasdeb.ads, s-tasren.adb,s-tassta.adb, s-tpobop.adb, s-tposen.adb, stylesw.adb, types.ads,uintp.adb, validsw.adb, makegpr.adb, a-rbtgso.adb, a-crbtgo.adb,a-coorse.adb, a-convec.adb, a-coinve.adb, a-cohama.adb, a-ciorse.adb,a-cihama.adb, a-cidlli.adb, a-chtgop.adb, a-cdlili.adb, a-cdlili.adb,a-coormu.adb, a-ciormu.adb, a-cihase.adb, a-cohase.adb, a-ciorma.adb,a-coorma.adb, a-ztgeau.adb, symbols-vms.adb, a-crdlli.adb,a-calari.adb, a-calfor.adb, s-os_lib.adb, s-regpat.adb, a-ngrear.adb:Minor reformatting.Add Unreferenced and Warnings (Off) pragmas for cases ofvariables modified calls where they are IN OUT or OUT parameters andthe resulting values are not subsequently referenced. In a few cases,we also remove redundant code found by the new warnings.* ug_words, vms_data.ads, usage.adb, sem_util.adb, sem_util.ads,sem_warn.adb, sem_warn.ads, sem_res.adb, sem_ch7.adb, sem_ch8.adb,sem_ch5.adb, opt.ads, lib-xref.adb, lib-xref.ads, exp_smem.adb,sem_ch11.adb, exp_ch6.adb, einfo.ads, einfo.adb: implement a newwarning controlled by -gnatw.o that warns on cases of out parametervalues being ignored.2007-10-15 Geert Bosch <bosch@adacore.com>* adaint.c, socket.c, cal.c: Initial port to arm-mentor-nucleus.* expect.c: Initial port to arm-mentor-nucleus.Use kill for __gnat_kill() on VMS.2007-10-15 Emmanuel Briot <briot@adacore.com>* ali.ads, ali.adb (Scan_ALI): Initialize XE.Tref to a known defaultvalue.(Xref_Record): Change type for Line, since in the case of a reference toa predefined entity (as happens for array index types), the line is setto 0.Add support for parsing multiple array index types info, ormultiple inherited interfaces info. This information cannot be storedin Xref_Entity_Record, which only supports a single instance of Tref_*,and is therefore stored in the list of references instead. It has aspecial treatement later on in tools that use this information.2007-10-15 Tristan Gingold <gingold@adacore.com>* debug.adb: Document use of -gnatd.a and -gnatd.I* layout.adb: On OpenVMS -gnatd.a disables alignment optimization.2007-10-15 Javier Miranda <miranda@adacore.com>* exp_attr.adb (Expand_N_Attribute_Reference): Case Access,Unchecked_Access, and Unrestricted_Access. Cleanup code that takescare of access to class-wide interface types plus removal of bizarreconversion of tagged object to access type (reported by GaryDismukes). After this patch there is no need to perform anyadditional management on these nodes in Expand_Interface_Actuals.* exp_disp.adb (Expand_Interface_Actuals): Code cleanup. Remove codethat handles use of 'Access and 'Unchecked_Access applied toactuals covering interface types. Such code is nowcentralized in Expand_N_Attribute_Reference.2007-10-15 Ed Schonberg <schonberg@adacore.com>* exp_ch3.adb (Build_Init_Procedure): Keep separate the initializationof tagged types whose ultimate ancestor is a CPP type.(Freeze_Array_Type): For a packed array type, generate an initializationprocedure if the type is public, to handle properly a client thatspecifies Normalize_Scalars.2007-10-15 Hristian Kirtchev <kirtchev@adacore.com>* exp_ch9.adb (Actual_Index_Expression): When the expansion occursinside a generic body, retrieve the full view of the entry familydiscrete subtype if available.2007-10-15 Thomas Quinot <quinot@adacore.com>* exp_dist.adb (Add_RACW_Primitive_Declarations_And_Bodies): Do notattempt to generate stubs for hidden primitive operations.2007-10-15 Vincent Celier <celier@adacore.com>* mlib-tgt-specific.adb (Support_For_Libraries): New function,returning None, used when there is no platform specific body forMLib.Tgt.Specific.2007-10-15 Bob Duff <duff@adacore.com>* sem_case.adb, sem_ch13.adb, lib-sort.adb: Replace use of Heap_Sort_A(passing'Unrestricted_Access of nested subprograms to Sort) with use ofthe generic Heap_Sort_G, in order to avoid trampolines.2007-10-15 Vasiliy Fofanov <fofanov@adacore.com>Jose Ruiz <ruiz@adacore.com>* vx_stack_info.c: New file.* i-forbla-unimplemented.ads: New file.* Makefile.in: i-forbla-unimplemented.ads: a variant of i-forbla.adsfor unsupported configurations; use it on VMS targets instead of thereal one.(EXTRA_LIBGNAT_SRCS,EXTRA_LIBGNAT_OBJS for VxWorks): Includevx_stack_info.{c,o} that contains the routine __gnat_get_stack_infoused by VxWorks targets to have access to task-specific data and beable to extract the stack boundaries for stack checking.Use system-vms-ia64.ads on ivms.* Make-lang.in: Update dependencies.* sysdep.c (__gnat_get_stack_info): Move to a standalone file(vx_stack_info.c).2007-10-15 Vincent Celier <celier@adacore.com>* snames.adb, snames.ads: Add new standard name runtime_library_dir* prj.ads (Language_Config): Add new component Runtime_Library_Dir* prj-attr.adb: Add project level attribute Runtime_Library_Dir* prj-env.adb (Create_Mapping_File): Do not put an entry if the path ofthe source is unknown.* prj-ext.adb: Spelling error fix* prj-nmsc.adb (Check_Ada_Name): Reject any unit that includes an Ada95 reserved word in its name.(Process_Project_Level_Array_Attributes): Process new attributeRuntime_Library_Dir.* prj-part.adb (Parse_Single_Project): Do not check the name of theconfig project against the user project names.* prj-proc.adb (Expression): In multi-language mode, indexes that donot include a dot are always case insensitive.(Process_Declarative_Items): Ditto(Process_Project_Tree_Phase_1): Set Success to False in case an error isdetected.* prj-util.adb (Value_Of (In_Array)): When Force_Lower_Case_Index isTrue, compare both indexes in lower case.2007-10-15 Robert Dewar <dewar@adacore.com>* rtsfind.adb: (Load_RTU): Turn off style checks for Load call2007-10-15 Gary Dismukes <dismukes@adacore.com>* sem_aggr.adb (Resolve_Record_Aggregate): In the case of a boxassociation for an access component, add an association with null asthe expression. Remove testing for array subtypes and the setting inthat case of Ctyp to the array component type, which prevented properinclusion of an association for null-initialized arrays. Collapsecondition that tests for array subtypes into just a test ofIs_Partially_Initialized_Type (which already covers arrays anyway).2007-10-15 Hristian Kirtchev <kirtchev@adacore.com>* sem_ch12.adb: Minor code reformatting.(Check_Generic_Child_Unit): Iterate over the homonym chain in order tofind the parent package which may have been hidden by localdeclarations.2007-10-15 Gary Dismukes <dismukes@adacore.com>* sem_ch3.adb (Build_Derived_Concurrent_Type): Set the Is_Constrainedflag of derived concurrent types, taking into account the flag settingon the parent subtype and any new set of discriminants.2007-10-15 Hristian Kirtchev <kirtchev@adacore.com>* sem_ch4.adb: Minor code and comment reformatting.(Analyze_Allocator): When the designated type of an unconstrainedallocator is a record with unknown discriminants or an array withunknown range bounds, emit a detailed error message depending on thecompilation mode and whether the designated type is limited.2007-10-15 Tristan Gingold <gingold@adacore.com>* system-vms-ia64.ads: New file.* system-vms_64.ads: Minor comment fix.2007-10-15 Ed Schonberg <schonberg@adacore.com>* sem_ch6.adb (Find_Corresponding_Spec): If the previous entity is abody generated for a function with a controlling result that is a nullextension, discard the generated body in favor of the current explicitone.2007-10-15 Ed Schonberg <schonberg@adacore.com>* sem_disp.adb (Find_Controlling_Arg): Examine the call node beforeexamining its original form, to handle properly operator calls thathave been rewritten.2007-10-15 Olivier Hainque <hainque@adacore.com>* tb-alvms.c (tb_entry_t, __gnat_backtrace): Store a frame pointerinstead of a procedure value in each traceback entry.* g-trasym-vms-alpha.adb (Symbolic_Traceback): Pass frame pointerinstead of procedure value to TBK$SYMBOLIZE.* s-traent-vms.adb (PV_For): Rename as FP_For and access the properfield.(TB_Entry_For): Account for the PV/FP renaming.* s-traent-vms.ads (Traceback_Entry): Rename PV component into FP andadd comment.(Null_TB_Entry): Account for change of component name.(PV_For): Rename as FP_For.2007-10-15 Tristan Gingold <gingold@adacore.com>* trans.c (gnat_to_gnu): Remove the padding structure more often.This optimize assignment to over-aligned record.2007-10-15 Emmanuel Briot <briot@adacore.com>* xref_lib.adb (Get_Full_Type): Add support for the 'h' entity type, ieinterfaces.* xr_tabls.adb (Add_Reference): Add support for the new 'R' referencetype, for dispatching calls.2007-10-15 Vincent Celier <celier@adacore.com>Robert Dewar <dewar@adacore.com>* gnat_ugn.texi: Add documentation for switches --version and --helpfor the GNAT tools gnatbind, gnatlink, gnatmake, gnatchop, gnatname,gnatxref, gnatfind, gnatls, and gnatclean.Document -gnatw.o.Mention attribute Excluded_Source_DirsReplace obsolescent attribute Locally_Removed_Files with attributeExcluded_Source_Files.Improve documentation of -u (gnatbind)Document how to do reliable stack checking for the environmental taskon iVMS.* gnat_rm.texi: Rewrite section about No_Implicit_Dynamic_Code.Document attribute Excluded_Source_Files and indicate that attributeLocally_Removed_Files is obsolescent.2007-10-15 Thomas Quinot <quinot@adacore.com>* g-soccon-vms.ads: Fix value of MSG_WAITALL.* gen-soccon.c:Update documentation to note that OpenVMS 8.3 or later must be usedto generate g-soccon-vms.ads.* atree.adb: Add ??? comment* exp_util.adb: Minor reformatting.Add ??? comment in Kill_Dead_Code.2007-10-15 Robert Dewar <dewar@adacore.com>* errout.ads: Comment clarification* exp_ch4.adb (Expand_N_Allocator): Code cleanup.(Expand_N_Op_Eq): Improve handling of array equality with -gnatVa* lib.ads: Comment update* init.c: Minor reformatting.* sem_attr.adb: Minor formatting* osint-b.ads: Minor reformatting* sem_ch9.adb: Implement -gnatd.I switch* g-comlin.adb: (Start): Fix handling of empty command line.* gnatcmd.adb (GNATCmd): Do not put the -rules in the -cargs section,even when -rules follows the -cargs section.2007-10-08 Ollie Wild <aaw@google.com>* misc.c (LANG_HOOKS_PUSHDECL): Replaced lhd_return_tree withgnat_return_tree.(gnat_init_gcc_eh): Replaced gnat_eh_runtime_type withgnat_return_tree.(gnat_eh_runtime_type): Removed.(gnat_return_tree): New function.2007-10-08 Ben Elliston <bje@au.ibm.com>PR ada/33454Revert:2007-08-31 Ben Elliston <bje@au.ibm.com>* Makefile.in (LIBGNAT_TARGET_PAIRS): Use system-linux-ppc64.adswhen compiling for powerpc64-*-linux.* system-linux-ppc64.ads: New file.2007-09-27 Eric Botcazou <ebotcazou@adacore.com>Mapped location support* back_end.adb (Call_Back_End): Pass information about sourcefiles instead of units to gigi.* gigi.h (struct File_Info_Type): New.(gigi): Rename and change type of number_units parameter, changetype of file_info_ptr parameter.* trans.c (number_files): New global variable.(gigi): Rename and change type of number_units parameter, changetype of file_info_ptr parameter.If mapped location support is enabled, create the isomorphic mappingbetween source files and line maps.(Sloc_to_locus): If mapped location support is enabled, translatesource location into mapped location.(annotate_with_node): Rename into set_expr_location_from_node.Call set_expr_location instead of annotate_with_locus.(Pragma_to_gnu): Adjust for above change.(Loop_Statement_to_gnu): Likewise.(call_to_gnu): Likewise.(Handled_Sequence_Of_Statements_to_gnu): Likewise.(gnat_to_gnu): Likewise.(add_stmt_with_node): Likewise.(add_cleanup): Likewise.* utils.c (gnat_init_decl_processing): Do not set input_line.2007-09-26 Hristian Kirtchev <kirtchev@adacore.com>* sem_ch8.adb (Analyze_Use_Type): Code cleanup.(Applicable_Use): Emit a warning when a package tries to use itself.(Use_One_Type): Add variable Is_Known_Used. Emit a warning when a typeis already in use or the package where it is declared is in use or isdeclared in the current package.(Spec_Reloaded_For_Body): New subsidiary routine for Use_One_Type.* a-tasatt.adb, s-osprim-vxworks.adb, g-socthi-mingw.adb,s-intman-vms.adb, g-socket.adb, g-thread.adb, s-tarest.adb,s-tassta.adb, s-tporft.adb: Remove redundant 'use type' clause.2007-09-26 Hristian Kirtchev <kirtchev@adacore.com>* a-calend-vms.adb, a-calend.adb:Add a section on leap seconds control along with two entities used toenable and disable leap seconds support. The array Leap_Second_Times isnow constant and contains hard time values pre-generated. Removeall elaboration code used to populate the table of leap seconds.* bindgen.adb:Add entity Leap_Seconds_Support to the list of global run-time variablesalong with a comment on its usage and values.(Gen_Adainit_Ada): Add code to generate the declaration and import ofInteger variable Leap_Seconds_Support. Set its value to zero (disabled)or one (enabled) depending on the presence of binder switch "-y".(Gen_Adainit_C): Add code to generate the declaration of external int__gl_leap_seconds_support. Set is value to zero (disabled) or one(enabled) depending on the presence of binder switch "-y".* init.c: Add __gl_leap_seconds_support to the list of global valuescomputed by the binder.2007-09-26 Jerome Guitton <guitton@adacore.com>* s-taprop-lynxos.adb, s-taprop-tru64.adb, s-taprop-irix.adb,s-taprop-hpux-dce.adb, s-taprop-linux.adb, s-taprop-dummy.adb,s-taprop-solaris.adb, s-taprop-vms.adb, s-taprop-mingw.adb,s-taprop-posix.adb (Stop_Task): New function, dummy implementation.* s-taprop.ads, s-taprop-vxworks.adb (Stop_Task): New function.* s-tasdeb.adb (Stop_All_Tasks): New function, implementing a run-timefunction which can be called by the debugger to interrupt the tasks ofan Ada application asynchronously, as needed on VxWorks.(Stop_All_Tasks_Handler): Renamed from Stop_All_Tasks.* s-tasdeb.ads (Stop_All_Tasks_Handler): New function declaration,renamed from Stop_All_Tasks. Update comments.(Stop_All_tasks): New function declaration.2007-09-26 Olivier Hainque <hainque@adacore.com>* adaint.c (if defined (__Lynx__)): Wrap #def/#undef VMOS_DEV around#include <utime.h> and #define GCC_RESOURCE_H before#include <sys/wait.h>.Add more protections in __gnat_translate_vms.* expect.c (if defined (__Lynx__)): #define GCC_RESOURCE_H before#include <sys/wait.h>.2007-09-26 Thomas Quinot <quinot@adacore.com>Sergey Rybin <rybin@adacore.com>* gnatvsn.ads (PCS_Version_Number, ASIS_Version_Number): Removed.* exp_dist.ads (PCS_Version_Number): Move from Gnatvsn to Exp_Dist,where it belongs.* opt.ads: Move ASIS_Version_Number from Gnatvsn into Tree_IO.* rtsfind.adb (PCS_Version_Number): Move from Gnatvsn to Exp_Dist,where it belongs.* sem_dist.ads: Minor comment fix* tree_io.ads: Move ASIS_Version_Number from Gnatvsn into Tree_IO.2007-09-26 Javier Miranda <miranda@adacore.com>Eric Botcazou <ebotcazou@adacore.com>* a-tags.adb:(Get_HT_Link/Set_HT_Link): Updated to handle the additional level ofindirection added to the HT_Link component of the TSD. This is requiredto statically allocate the TSD.* a-tags.ads:Minor reordering of the declarations in the private part. Required toadd a level of indirection to the contents of the TSD component HT_Link.This is required to statically allocate the TSD.* decl.c (gnat_to_gnu_entity) <object>: Do not exclude objects withIs_Statically_Allocated set from constant objects.Do not make exported constants created by the compiler volatile.(gnat_to_gnu_param): Do not treat an IN parameter whose address is takenas read-only.* trans.c (Identifier_to_gnu): For constants, unshare initializersbefore returning them.* exp_disp.ads, exp_disp.adb (Building_Static_DT): Spec moved to thepublic part of the package.(Make_DT): Move HT_Link component out of the TSD record. For thispurpose Make_DT now declares a separate object that stores theHT_Link value, and initializes the TSD component with the addressof this new object. The addition of this level of indirection isrequired to statically allocate the TSD because the TSD cannothave variable components.(Expand_Interface_Conversion): Improve the expanded code.(Expand_Interface_Thunk): Set Is_Thunk in the thunk entity.* sem_disp.adb (Check_Dispatching_Operation): In case of a bodydeclaring a primitive operation ---allowed by RM 3.9.2 (13.e/2)---,if we are building static dispatch tables then we must not generateextra code to register the primitive because the dispatch table willbe built at the end of the library package; otherwise we notify thatwe cannot build the static dispatch table.2007-09-26 Robert Dewar <dewar@adacore.com>* checks.adb, gnat1drv.adb, sem_util.ads: Improve warnings for addressoverlays.* sem_ch13.ads, sem_ch13.adb: Improve warnings for address overlays(Analyze_Record_Representation_Clause): Suppress junk warning formissing component clause.(Analyze_Attribute_Definition_Clause, case Address): Apply the specialtests for controlled type overlay to composites with controlledcomponents.(Analyze_Record_Representation_Clause): Add reference for component name2007-09-26 Javier Miranda <miranda@adacore.com>Gary Dismukes <dismukes@adacore.com>* einfo.adb (Is_Thunk): New attribute applicable to subprograms. Truefor thunks associated with interface types.* einfo.ads: Improve documentatation of Is_Internal(Is_Thunk): New attribute applicable to subprograms. True for thunksassociated with interface types.Extensive comment fixes regarding flags that appear in all entities. Thedocumentation is now consistent for all such flags (there were a numberof errors in the documentation in this regard).* exp_attr.adb (Expand_N_Attribute_Reference): Minor code cleanup.* exp_ch6.adb (Make_Build_In_Place_Call_*): Return immediately if anyof these procedures are passed a function call that already hasbuild-in-place actuals (testing new flagIs_Expanded_Build_In_Place_Call). Set the flag on the function call inthe case where processing continues.(Expand_Call): If the call is generated from a thunk body then wepropagate the extra actuals associated with the accessibilitylevel of the access type actuals.* sem_ch6.adb (Analyze_Subprogram_Body): Set the Protected_Formal fieldof each extra formal of a protected operation to reference thecorresponding extra formal of the subprogram denoted by theoperation's Protected_Body_Subprogram.* sinfo.ads, sinfo.adb (Is_Expanded_Build_In_Place_Call): New flag onN_Function_Call nodes.2007-09-26 Robert Dewar <dewar@adacore.com>* exp_ch5.adb: Activate memmove type processing if debug flag d.s is set* debug.adb: Add d.s flag.2007-09-26 Gary Dismukes <dismukes@adacore.com>* exp_dbug.adb (Debug_Renaming_Declaration): Set Is_Internal on thedebug variable so that it won't be initialized when pragmaInitialize_Scalars is in effect.2007-09-26 Gary Dismukes <dismukes@adacore.com>* freeze.adb (Freeze_Entity): Remove check for preelaborableinitialization of a full view. This is moved toAnalyze_Package_Specification.* sem_ch7.adb (Analyze_Package_Specification): Add check forpreelaborable initialization of a full view in entity loop.(Uninstall_Declarations): If entity is a use-visible compilation unit,its child units are use-visible only if they are visible child units.* sem_util.adb (Is_Preelaborable_Expression): New function to determinewhether an expression can be used within a type declaration thatrequires preelaborable init.(Check_Components): Replace inline code that does partial checking forpreelaborable default expressions with call toIs_Preelaborable_Expression.(Has_Preelaborable_Initialization): In the case of a generic actualsubtype, (that is, Is_Generic_Actual is True), return the result ofapplying Has_Preelaborable_Initialization to the generic actual's basetype.2007-09-26 Hristian Kirtchev <kirtchev@adacore.com>* g-calend.adb (Has_53_Weeks): Rename to Last_Year_Has_53_Weeks. Add acall to Jan_1_Day _Of_Week to optimize its performance.(Is_Leap): Move the routine to the scope of Week_In_Year.(Jan_1_Day_Of_Week): New routine in Week_In_Year which calculates theweekday on which January 1 falls of Year - 1 and Year + 1. This functionavoids calling Time_Of and Split, thus making it more efficent.(Week_In_Year): Reimplemented in oder to follow ISO 8601.* g-calend.ads (Week_In_Year): Change comment to reflect newimplementation.2007-09-26 Emmanuel Briot <briot@adacore.com>* g-comlin.ads, g-comlin.adb (Command_Line_Configuration,Command_Line): New types(Define_Alias, Define_Prefix, Free): New subprograms. These providesupport for defining how switches can be grouped on a command line (asis the case for -gnatw... for GNAT), and how simple switches can beused as aliases for more complex switches (-gnatwa is same as-gnatwbcef...)(Set_Command_Line, Add_Switch, Remove_Switch): New subprogram(Start, Current_*): New subprogramsAdded support for parsing an array of strings in addition to the realcommand line.(Opt_Parser, Opt_Parser_Data): New type. As a result, some types had tobe moved from the body to the private part of the spec.(*): All subprograms now have an extra parameter with default value tospecify which parser should be used. For backward compatibility, itdefaults to parsing the command line of the application. They were alsomodified to properly handle cases where each of the argument does notstart at index 1 (which is always true for Ada.Command_Line, but notwhen processing any Argument_List).(Free): New subprogram(Internal_Initialize_Option_Scan, Find_Longuest_Matching_Switch,Argument): New subprograms(Switch_Parameter_Type): New enum, which clarifies the code. The extraspecial characters like ':', '=',... are now handled in a single place,which makes the code more extensible eventually.(Getopt, Full_Switch): When the switch was returned as part of thespecial character '*', make sure it is prepended by the switch character('-' in general), so that the application knows whether "foo" or "-foo"was specified on the command line.2007-09-26 Florian Villoing <villoing@adacore.com>* g-dirope.adb (Remove_Dir): In case we are removing directoriesrecursively, make sure that if an exception is raised during theprocessing, the current working directory is reset to its initialvalue before propagating the exception.2007-09-26 Vincent Celier <celier@adacore.com>* gnatbind.adb: If there are several ALI files specified and there isa main program to bind, the first ALI is expected to contain the mainsubprogram and the names of the binder generated files will be derivedfrom the first ALI file name.(Gnatbind): Fix insertion character in invocation of Error_Msg2007-09-26 Vincent Celier <celier@adacore.com>* gnatcmd.adb (Check_Files): Do not include sources that have beenremoved by attributes Exclude_Source_Files or Locally_Removed_Files.2007-09-26 Ed Schonberg <schonberg@adacore.com>* lib-xref.ads, lib-xref.adb: The entry for array types now carriesinformation about each of its index types, following the typereference for its component type.2007-09-26 Vincent Celier <celier@adacore.com>* make.adb: (Kill): New procedure (__gnat_kill imported)(Running_Compile, Outstanding_Compiles): Global variables thatwere previously local to procedure Compile_Sources.(Sigint_Intercepted): Send signal SIGINT to all outstandingcompilation processes.(Gnatmake): If project files are used, create the mapping of all thesources, so that the correct paths will be found.* prj-env.ads, prj-env.adb (Create_Mapping): New procedure2007-09-26 Vincent Celier <celier@adacore.com>* makeutl.ads (Main_Config_Project): Moved to gpr_util.ads* prj.ads, prj.adb (Default_Language): Remove function, no longer usedReplace components Compiler_Min_Options and Binder_Min_Options withCompiler_Required_Switches and Binder_Required_Switches in recordLanguage_Config.Remove components Default_Language and Config in Project_Tree_Data,no longer used.* prj-attr.adb: New attributes Required_Switches (<language>) inpackages Compiler and Binder.* prj-nmsc.adb: Major rewrite of the processing of configurationattributes for gprbuild. No impact on GNAT tools.* prj-proc.ads, prj-proc.adb (Process_Project_Tree_Phase_2): No longerprocess configuration attributes: this is done in Prj.Nmsc.Check.(Recursive_Process): Make a full copy of packages inherited from projectbeing extended, instead of a shallow copy.(Process_Project_Tree_Phase_1): New procedure(Process_Project_Tree_Phase_1): New procedure(Process): Implementation now uses the two new procedures* prj-util.adb (Executable_Of): Get the suffix and the default suffixfrom the project config, not the tree config that no longer exists.2007-09-26 Vincent Celier <celier@adacore.com>* Make-lang.in: Update dependencies..2007-09-26 Vincent Celier <celier@adacore.com>* osint.adb, osint.ads: Minor reformatting* osint-b.adb, osint-b.ads (Set_Current_File_Name_Index): New procedure2007-09-26 Gary Dismukes <dismukes@adacore.com>* par-ch4.adb (P_Record_Or_Array_Component_Association): Change Ada 95message to cite use of <> in aggregate component associations ratherthan wrongly indicating use of limited aggregates.2007-09-26 Robert Dewar <dewar@adacore.com>* sem_attr.adb (Analyze_Access_Attribute): Fix missing set ofAddress_Taken.2007-09-26 Ed Schonberg <schonberg@adacore.com>* sem_ch3.adb (Derive_Subprograms): If the interface parent is a directancestor of the derived type, the operations are inherited from theprimary dispatch table of the parent.(OK_For_Limited_Init_In_05): Remove old comment. Reject in-place callswhen the context is an explicit type conversion.2007-09-26 Ed Schonberg <schonberg@adacore.com>* sem_ch4.adb (Analyze_Qualified_Expression): Apply name resolutionrule for qualified expressions properly, to detect improper conversionsand resolve some cases of overloading.2007-09-26 Ed Schonberg <schonberg@adacore.com>* sem_res.adb (Resolve_Call): If the call is dispatching, generate theproper kind of reference to the primitive operation, for better sourcenavigation.(Valid_Conversion): A tagged conversion is legal if both operands aretagged.2007-09-26 Robert Dewar <dewar@adacore.com>* sem_warn.adb (Check_References): Catch more cases of unreferencedpackages.2007-09-26 Vincent Celier <celier@adacore.com>* snames.adb, snames.ads: Change Include_Option to Include_Switches2007-09-26 Robert Dewar <dewar@adacore.com>* s-wchstw.adb: provide messages for run time unit exceptions* a-witeio.adb: Minor reformatting* exp_ch13.adb: Minor reformatting2007-09-26 Sergey Rybin <rybin@adacore.com>* vms_data.ads: Revise gnatmetric qualifiers.Add qualified for the new gnatbind option '-y'* gnat_ugn.texi: Revise the gnatmetric section.Add entry for new gnatbind option '-y'.* gnat_rm.texi: Minor spelling correction.Document restriction on overlaying controlled types2007-09-26 Vincent Celier <celier@adacore.com>* makegpr.adb (Link_Executables): Do not fail when the root project hasno sources, but is an extending project.2007-09-25 Eric Botcazou <ebotcazou@adacore.com>* trans.c: Fix misplaced #define.2007-09-22 Eric Botcazou <ebotcazou@adacore.com>* utils2.c (build_unary_op) <ADDR_EXPR> [INDIRECT_REF]: Propagatethe TYPE_REF_CAN_ALIAS_ALL flag to the result.2007-09-21 Olivier Hainque <hainque@adacore.com>* utils.c (type_for_nonaliased_component_p): Return false forall AGGREGATE_TYPEs.2007-09-17 Eric Botcazou <ebotcazou@adacore.com>* decl.c (gnat_to_gnu_entity) <object>: Make again the type of anobject covered by 13.3(19) volatile.2007-09-12 Eric Botcazou <ebotcazou@adacore.com>PR ada/26797PR ada/32407* utils.c (unchecked_convert): Use a subtype as the intermediate typein the special VIEW_CONVERT_EXPR case.2007-09-12 Robert Dewar <dewar@adacore.com>* types.ads, a-charac.ads, freeze.adb: Minor reformatting.* a-except.adb, g-hesora.adb, g-speche.adb, lib.adb, lib.ads,lib-load.adb, lib-writ.adb, s-assert.adb, s-carun8.adb,s-casuti.adb, s-crc32.adb, s-exctab.adb, s-htable.adb, s-imgenu.adb,s-mastop.adb, s-memory.adb, s-memory.ads, s-secsta.adb, s-soflin.adb,s-sopco3.adb, s-sopco4.adb, s-sopco5.adb, s-stache.adb, s-stalib.adb,s-stoele.adb, s-strcom.adb, s-strops.adb, s-traceb.adb, s-traent.adb,s-wchcnv.adb, s-wchcon.adb, s-wchjis.adb, s-addope.adb, s-except.adb,s-os_lib.adb, s-string.adb, s-utf_32.adb, a-elchha.adb,a-chlat1.ads, a-elchha.ads, a-except.ads, g-hesora.ads, g-htable.ads,g-speche.ads, par-prag.adb, restrict.adb, restrict.ads, s-assert.ads,s-carun8.ads, s-casuti.ads, s-crc32.ads, sem_ch11.adb, sem_prag.adb,s-exctab.ads, s-htable.ads, s-imgenu.ads, s-mastop.ads, snames.adb,snames.ads, snames.h, s-purexc.ads, s-secsta.ads, s-soflin.ads,s-sopco3.ads, s-sopco4.ads, s-sopco5.ads, s-stache.ads, s-stalib.ads,s-stoele.ads, s-strcom.ads, s-strops.ads, s-traceb.ads, s-traent.ads,s-unstyp.ads, s-wchcnv.ads, s-wchcon.ads, s-wchjis.ads, s-addope.ads,s-except.ads, s-os_lib.ads, s-string.ads, s-utf_32.ads: Implementpragma Compiler_Unit and adds it to relevant library units.2007-09-12 Ed Schonberg <schonberg@adacore.com>* sem_aggr.adb (Resolve_Record_Aggregate): An others association witha box need not correspond to any component.2007-09-12 Robert Dewar <dewar@adacore.com>* g-thread.ads: Document use of "with GNAT.Threads" to ensure loadingthe tasking version of the Ada run time when foreign threads arepresent and there are no explicit Ada tasks or tasking constructs.* gnat_rm.texi: Clarify documentation of GNAT.Threads.2007-09-12 Hristian Kirtchev <kirtchev@adacore.com>* bindusg.adb (Display): Correct comment for switch -X. Add a line forthe usage of switch -y.* switch-b.adb (Scan_Binder_Switches): Set flag Leap_Seconds_Supportwhen switch -y is present.* opt.ads: Add binder flag Leap_Seconds_Support used to enable/disableleap seconds in Ada.Calendar and its children.2007-09-12 Jose Ruiz <ruiz@adacore.com>* a-extiti.ads (Timer): The discriminant is a "not null accessconstant" in the Reference Manual.(Cancel_Handler): Cancelled is an out parameter in the Reference Manual.2007-09-12 Robert Dewar <dewar@adacore.com>* a-swuwha.adb: Remove junk RM header2007-09-12 Vincent Celier <celier@adacore.com>* g-bytswa-x86.adb (Swap2, Swap4, Swap8): Remove explicit "in" modeindicator* g-bytswa.ads: Minor reformatting2007-09-12 Thomas Quinot <quinot@adacore.com>* g-soccon-solaris-64.ads, g-soccon-hpux-ia64.ads:Add new constant Thread_Blocking_IO, always True by default, set Falseon a per-runtime basis.(Need_Netdb_Buffer): New constant.2007-09-12 Arnaud Charlet <charlet@adacore.com>* s-dsaser.ads (Get_Local_Partition_Id, Get_Passive_Partition_Id):Added renames for corresponding functions in System.Partition_Interface.2007-09-12 Doug Rupp <rupp@adacore.com>* Makefile.in: Remove VMS specific System.CRTL packages which are nolonger needed.* s-crtl-vms64.ads: Removed.2007-09-12 Olivier Hainque <hainque@adacore.com>* decl.c (gnat_to_gnu_entity) <E_Record_Subtype>: For a subtypewith discriminant constraints, generalize the code for BIT_FIELDsto PACKED fields of constant size and propagate DECL_PACKED.2007-09-11 Eric Botcazou <ebotcazou@adacore.com>* decl.c (array_type_has_nonaliased_component): New predicate.(gnat_to_gnu_field) <E_Array_Type>: Invoke the above predicate toset the TYPE_NONALIASED_COMPONENT flag on the type.<E_Array_Subtype>: Likewise.* gigi.h (type_for_nonaliased_component_p): Declare.* utils.c (type_for_nonaliased_component_p): New predicate.(create_field_decl): Invoke the above predicate to set theDECL_NONADDRESSABLE_P flag on the field.2007-09-11 Javier Miranda <miranda@adacore.com>* einfo.ads, einfo.adb (Dispatch_Table_Wrapper): New attribute. Presentin library level record type entities if we are generating staticallyallocated dispatch tables.* exp_disp.adb (Make_Tags/Make_DT): Replace previous codeimporting/exporting the _tag declaration by new codeimporting/exporting the dispatch table wrapper. This change allows usto statically allocate of the TSD.(Make_DT.Export_DT): New procedure.(Build_Static_DT): New function.(Has_DT): New function.* freeze.adb (Freeze_Static_Object): Code cleanup: Do not reset flagsTrue_Constant and Current_Value. Required to staticallyallocate the dispatch tables.(Check_Allocator): Make function iterative instead of recursive.Also return inner allocator node, when present, so that we do not haveto look for that node again in the caller.2007-09-11 Jan Hubicka <jh@suse.cz>* misc.c (gnat_expand_body): Kill.(LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION): Kill.2007-09-10 Robert Dewar <dewar@adacore.com>* exp_atag.ads, exp_atag.adb, mlib-tgt-tru64.adb, mlib-tgt-aix.adb,mlib-tgt-irix.adb, mlib-tgt-hpux.adb, mlib-tgt-linux.adb,mlib-tgt-solaris.adb, mlib-tgt-vms-alpha.adb, mlib-tgt-vms-ia64.adb,mlib-tgt-mingw.adb, mlib-tgt-vxworks.adb, ali.adb, ali.ads,ali-util.adb, ali-util.ads, atree.h, back_end.adb, back_end.ads,bcheck.adb, bcheck.ads, binde.adb, binde.ads, binderr.adb, binderr.ads,bindgen.adb, bindgen.ads, bindusg.adb, bindusg.ads, butil.adb,butil.ads, checks.adb, checks.ads, clean.adb, clean.ads, comperr.adb,comperr.ads, cstand.adb, cstand.ads, debug_a.adb, debug_a.ads,elists.h, errout.adb, erroutc.ads, errutil.adb, errutil.ads,err_vars.ads, eval_fat.adb, eval_fat.ads, exp_sel.ads, exp_sel.adb,exp_aggr.adb, exp_aggr.ads, expander.adb, expander.ads, exp_attr.ads,exp_ch10.ads, exp_ch11.adb, exp_ch12.adb, exp_ch12.ads, exp_ch13.adb,exp_ch13.ads, exp_ch2.adb, exp_ch2.ads, exp_ch3.ads, exp_ch4.adb,exp_ch4.ads, exp_ch5.adb, exp_ch5.ads, exp_ch6.adb, exp_ch6.ads,exp_ch7.adb, exp_ch7.ads, exp_ch8.adb, exp_ch8.ads, exp_ch9.adb,exp_ch9.ads, exp_code.adb, exp_code.ads, exp_dbug.adb, exp_dbug.ads,exp_disp.ads, exp_dist.adb, exp_dist.ads, exp_fixd.adb, exp_fixd.ads,exp_imgv.adb, exp_imgv.ads, exp_intr.adb, exp_intr.ads, exp_pakd.adb,exp_pakd.ads, exp_prag.adb, exp_prag.ads, exp_smem.adb, exp_strm.adb,exp_strm.ads, exp_tss.adb, exp_tss.ads, exp_util.adb, exp_util.ads,exp_vfpt.adb, exp_vfpt.ads, fmap.adb, fmap.ads, fname-sf.adb,fname-sf.ads, fname-uf.adb, fname-uf.ads, frontend.adb, frontend.ads,get_targ.adb, get_targ.ads, gnat1drv.adb, gnat1drv.ads, gnatbind.adb,gnatbind.ads, gnatbl.c, gnatchop.adb, gnatclean.adb, gnatcmd.adb,gnatcmd.ads, gnatdll.adb, gnatfind.adb, gnatkr.adb, gnatkr.ads,gnatlbr.adb, gnatlink.adb, gnatlink.ads, gnatls.adb, gnatls.ads,gnatmake.adb, gnatmake.ads, gnatmem.adb, gnatname.adb, gnatname.ads,gnatprep.adb, gnatprep.ads, gnatsym.adb, gnatxref.adb,gprep.adb, gprep.ads, hlo.adb, hlo.ads, impunit.adb, impunit.ads,inline.adb, inline.ads, itypes.adb, itypes.ads, layout.adb, layout.ads,lib-load.adb, lib-load.ads, lib-util.adb, lib-util.ads, lib-writ.adb,lib-writ.ads, lib-xref.adb, lib-xref.ads, live.adb, live.ads,make.adb, make.ads, makeutl.ads, makeutl.adb, makeusg.adb, makeusg.ads,mdll.adb, mdll.ads, mdll-fil.adb, mdll-fil.ads, mdll-utl.adb,mdll-utl.ads, memroot.adb, memroot.ads, mlib.adb, mlib.ads,mlib-fil.adb, mlib-fil.ads, mlib-prj.adb, mlib-prj.ads, mlib-tgt.adb,mlib-tgt.ads, mlib-utl.adb, mlib-utl.ads, namet.h, nmake.adt,osint.adb, osint.ads, osint-b.adb, osint-b.ads, osint-c.adb,osint-c.ads, osint-l.adb, osint-l.ads, osint-m.adb, osint-m.ads,par.adb, par.ads, par-ch10.adb, par-ch11.adb, par-ch12.adb,par-ch13.adb, par-ch2.adb, par-ch3.adb, par-ch4.adb, par-ch5.adb,par-ch6.adb, par-ch7.adb, par-ch8.adb, par-ch9.adb, par-endh.adb,par-labl.adb, par-load.adb, par-prag.adb, par-sync.adb, par-tchk.adb,par-util.adb, prep.adb, prep.ads, prepcomp.adb, prepcomp.ads,prj.adb, prj.ads, prj-attr.adb, prj-attr.ads, prj-com.ads,prj-dect.adb, prj-dect.ads, prj-err.adb, prj-err.ads, prj-ext.adb,prj-ext.ads, prj-makr.adb, prj-makr.ads, prj-nmsc.adb, prj-nmsc.ads,prj-pars.adb, prj-pars.ads, prj-part.adb, prj-part.ads,prj-pp.adb, prj-pp.ads, prj-proc.adb, prj-proc.ads,prj-strt.adb, prj-strt.ads, prj-tree.adb, prj-tree.ads,prj-util.adb, prj-util.ads, restrict.adb, restrict.ads,rtsfind.adb, rtsfind.ads, scn.adb, scn.ads,scng.adb, scng.ads, sdefault.ads, sem.ads, sem_aggr.ads, sem_attr.adb,sem_case.adb, sem_case.ads, sem_cat.adb, sem_cat.ads, sem_ch10.adb,sem_ch10.ads, sem_ch11.adb, sem_ch11.ads, sem_ch12.ads, sem_ch13.adb,sem_ch13.ads, sem_ch2.adb, sem_ch2.ads, sem_ch3.adb, sem_ch3.ads,sem_ch4.ads, sem_ch5.adb, sem_ch5.ads, sem_ch6.adb, sem_ch6.ads,sem_ch7.adb, sem_ch7.ads, sem_ch8.adb, sem_ch8.ads, sem_ch9.adb,sem_ch9.ads, sem_disp.adb, sem_disp.ads, sem_dist.adb, sem_dist.ads,sem_elab.adb, sem_elab.ads, sem_elim.adb, sem_elim.ads, sem_eval.adb,sem_eval.ads, sem_intr.adb, sem_intr.ads, sem_maps.adb, sem_maps.ads,sem_mech.adb, sem_mech.ads, sem_prag.adb, sem_prag.ads, sem_res.adb,sem_res.ads, sem_smem.adb, sem_smem.ads, sem_type.adb, sem_type.ads,sem_util.adb, sem_util.ads, sem_vfpt.adb, sem_vfpt.ads, sem_warn.adb,sem_warn.ads, sfn_scan.ads, sinfo-cn.adb, sinfo-cn.ads, sinput-c.adb,sinput-c.ads, sinput-d.adb, sinput-d.ads, sinput-l.adb, sinput-l.ads,sinput-p.adb, sinput-p.ads, snames.h, sprint.adb, sprint.ads,stringt.h, style.ads, styleg.adb, styleg.ads, styleg-c.adb,styleg-c.ads, stylesw.adb, stylesw.ads, switch.adb, switch.ads,switch-b.adb, switch-b.ads, switch-c.adb, switch-c.ads, switch-m.adb,switch-m.ads, symbols.adb, symbols.ads, targparm.adb, tbuild.adb,tbuild.ads, tempdir.adb, tempdir.ads, tree_gen.adb, tree_gen.ads,treepr.adb, treepr.ads, treeprs.adt, ttypef.ads, ttypes.ads,types.h, uintp.h, urealp.h, usage.adb, usage.ads,validsw.adb, validsw.ads, vxaddr2line.adb, xeinfo.adb, xnmake.adb,xref_lib.adb, xref_lib.ads, xr_tabls.adb, xr_tabls.ads, xsinfo.adb,xtreeprs.adb, xsnames.adb, vms_conv.ads, vms_conv.adb, xgnatugn.adb,gprmake.adb, makegpr.ads, makegpr.adb, prj-attr-pm.ads, prj-attr-pm.adb,mlib-tgt-lynxos.adb, mlib-tgt-darwin.adb, symbols-vms.adb,symbols-processing-vms-alpha.adb, symbols-processing-vms-ia64.adb,mlib-tgt-specific.adb, mlib-tgt-specific.ads, mlib-tgt-vms.adb,mlib-tgt-vms.ads: Replace headers with GPL v3 headers.2007-09-10 Emmanuel Briot <briot@adacore.com>* s-regpat.adb (Parse_Character_Class): Fix handling of empty characterclasses ("[]").2007-09-10 Vasiliy Fofanov <fofanov@adacore.com>* adaint.c (__gnat_translate_vms): new function.2007-09-10 Gary Dismukes <dismukes@adacore.com>Thomas Quinot <quinot@adacore.com>* exp_ch3.adb (Predef_Spec_Or_Body): When the type is abstract, onlycreate an abstract subprogram in the case of 'Input. For 'Output we nowcreate a real spec/body when the type is abstract, since it canpotentially be called.(Predefined_Primitive_Bodies): Now allow the creation of a predefinedbody for 'Output when the type is abstract (only the creation of thebody for 'Input is excluded when the type is abstract).(Stream_Operation_OK): Add an additional condition in the returnstatement, so that False will be returned for TTS_Stream_Input if theassociated tagged type is an abstract extension. Add comments forreturn statement.(Expand_N_Object_Declaration): For the case of a shared passivevariable, insert init proc call only after the shared variableprocedures have been processed, because the IP call needs to undergoshared passive variable reference expansion, which requires theseprocedures to be available (and elaborated).2007-09-10 Vincent Celier <celier@adacore.com>* prj-env.ads, prj-env.adb (Create_Mapping_File (Language)): Removeparameter Runtime_Project.2007-09-10 Ed Schonberg <schonberg@adacore.com>* sem_aggr.adb (Build_Record_Aggr_Code): If an aggregate component isgiven a box association, the type of the component is discriminated,and the value of the discriminant is the discriminant of the enclosingtype, retrieve its value from the aggregate itself, where it must havebeen supplied.* sem_ch4.adb (Analyze_One_Call): Further refinement to previous fix,to remove other spurious ambiguities on arithmetic operations involvingliterals and addresses, on systems where Address is a visible integertype, when the operator is called in functional notation.(Try_Primitive_Operation): Within an instance, a call in prefixed formis legal when the types match, even if the operation is currentlyhidden.2007-09-10 Ed Schonberg <schonberg@adacore.com>* sem_ch12.adb (Build_Local_Package): A formal package with noassociations is legal if all formals have defaults. It is notequivalent to a formal declared with a box.2007-09-10 Sergey Rybin <rybin@adacore.com>* vms_data.ads: Add qualifier for the new gnatmetric '-lratio' option2007-09-10 Sergey Rybin <rybin@adacore.com>* gnat_ugn.texi: Add description of the new '-lratio' optionUpdate 7.3.1 section about availability of the feature.2007-09-10 Thomas Quinot <quinot@adacore.com>* exp_smem.ads, exp_smem.adb (Make_Shared_Var_Procs): Return lastinserted node.2007-09-10 Olivier Hainque <hainque@adacore.com>* Makefile.in: (mips-irix section): Activate build of libgmem.2007-09-10 Eric Botcazou <ebotcazou@adacore.com>* a-numaux-x86.adb (Logarithmic_Pow): Do not silently clobberx87 registers.2007-09-10 Eric Botcazou <ebotcazou@adacore.com>* decl.c (gnat_to_gnu_entity) <object>: Deal with variable built fora debug renaming declaration specially.2007-09-08 Eric Botcazou <ebotcazou@adacore.com>* decl.c (gnat_to_gnu_entity) <Object>: Simplify the condition underwhich a constant renaming is treated as a normal object declaration.* trans.c (lvalue_required_p) <N_Slice>: New case, extracted fromthe N_Indexed_Component case.<N_Indexed_Component>: Fall through to above case.<N_Object_Renaming_Declaration>: Return true for all composite types.2007-09-08 Eric Botcazou <ebotcazou@adacore.com>* decl.c (make_packable_type): If the new type has been given BLKmode,try again to get an integral mode for it.2007-09-07 Eric Botcazou <ebotcazou@adacore.com>Re-apply accidentally reverted change:2007-02-07 Andreas Krebbel <krebbel1@de.ibm.com>* raise-gcc.c (get_region_description_for, get_call_site_action_for,get_action_description_for): Replace _Unwind_Word with _uleb128_tand _Unwind_SWord with _sleb128_t.2007-09-06 Eric Botcazou <ebotcazou@adacore.com>* trans.c (convert_with_check): Update call to real_2expN.2007-09-05 Sandra Loosemore <sandra@codesourcery.com>* trans.c (Compilation_unit_to_gnu): Use set_cfun.* utils.c (end_subprog_body): Likewise.2007-09-03 Nick Clifton <nickc@redhat.com>* Make-lang.in: Change copyright header to refer to version 3 ofthe GNU General Public License and to point readers at theCOPYING3 file and the FSF's license web page.* ada-tree.def, nmake.adt, nlists.h, snames.h, utils.c,Makefile.rtl, Makefile.in, config-lang.in, uintp.h, urealp.h,namet.h, decl.c, utils2.c, lang.opt, elists.h, atree.h, types.h,treeprs.adt, lang-specs.h, cuintp.c, stringt.h, gnatbl.c:Likewise.2007-08-31 Vincent Celier <celier@adacore.com>PR ada/4720* gnatchop.adb, gnatfind.adb, gnatlink.adb, gnatls.adb,gnatname.adb, gnatxref.adb, gprep.adb, clean.adb gnatbind.adb(Check_Version_And_Help): New procedure in package Switch to processswitches --version and --help.Use Check_Version_And_Help in GNAT tools* make.adb: Ditto.(Compile_Sources): Make sure that sources that are "excluded" are notcompiled.(Gnatmake): Do not issue -aO. to gnatbind and only issue -I- if aproject file is used.(Version_Switch): Remove, moved to Switch(Help_Switch): Remove, moved to Switch(Display_Version): Remove, moved to Switch* switch.ads, switch.adb (Check_Version_And_Help): New procedure inpackage Switch to process switches --version and --help.(Display_Version): New procedure* gnatvsn.ads, gnatvsn.adb (Copyright_Holder): New function.2007-08-31 Javier Miranda <miranda@adacore.com>* a-tags.adb (Internal_Tag): Protect the run-time against wronginternal tags.2007-08-31 Hristian Kirtchev <kirtchev@adacore.com>* checks.adb (In_Declarative_Region_Of_Subprogram_Body): New routine.(Mark_Non_Null): If the node for which we just generated an access checkis a reference to an *in* parameter and the reference appears in thedeclarative part of a subprogram body, mark the node as known non null.2007-08-31 Hristian Kirtchev <kirtchev@adacore.com>* einfo.ads, einfo.adb: New flag Is_Raised (Flag224). Update thestructure of E_Exception to reflect the new flag.(Is_Raised, Set_Is_Raised): New inlined routines.Update the usage of available flag to reflect the addition of Is_Raised.(Is_Raised, Set_Is_Raised): Bodies of new routines.(Write_Entity_Flags): Write the status of flag Is_Raised.(Is_Descendent_Of_Address): New entity flag, to simplify handling ofspurious ambiguities when integer literals appear in the context of anaddress type that is a visible integer type.* sem_ch11.adb (Analyze_Exception_Handler): Add code to warn on localexceptions never being raised.(Analyze_Raise_Statement): When analyzing an exception, mark it as beingexplicitly raised.2007-08-31 Javier Miranda <miranda@adacore.com>* exp_ch11.adb (Expand_At_End_Handler): Avoid generation of raisestatement when compiling under restriction No_Exceptions_Proparation.2007-08-31 Ed Schonberg <schonberg@adacore.com>* exp_ch3.adb (Build_Record_Init_Proc): If there is a staticinitialization aggregate for the type, generate itype references forthetypes of its (sub)components, to prevent out-of-scope errors in gigi.2007-08-31 Gary Dismukes <dismukes@adacore.com>* exp_ch8.adb (Expand_N_Package_Renaming_Declaration): In the case of alibrary-level package renaming, pass the declaration associated withthe renaming's special debug variable to Qualify_Entity_Names to ensurethat its encoded name is properly qualified.* exp_dbug.adb (Qualify_All_Entity_Names): Check for a variable entityoccurring in the list of entities to qualify, and do not attempt totraverse an entity list in that case. Variables associated with` library-level package renamings can now occur in the table.* exp_dbug.ads: Revise documentation of the encoding for renamingdeclarations.2007-08-31 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>* layout.adb (Layout_Type): Use Underlying_Type to determine whether anaccess type points to an unconstrained array.2007-08-31 Hristian Kirtchev <kirtchev@adacore.com>* restrict.adb, namet.adb, par-util.adb: Remove redundant typeconversion.* sem_res.adb (Resolve_Qualified_Expression): Add machinery to detectsimple redundant qualifications. The check is performed whenever theexpression is a non-overloaded identifier.(Resolve_Type_Conversion): Enchance the redundant type conversion checkto include loop parameters.(Valid_Conversion): Avoid generation of spurious error message.2007-08-31 Bob Duff <duff@adacore.com>* par-ch4.adb (P_Simple_Expression): Fold long sequences ofconcatenations of string literals into a single literal, in order toavoid very deep recursion in the front end, which was causing stackoverflow.* sem_eval.adb (Eval_Concatenation): If the left operand is the emptystring, and the right operand is a string literal (the case of "" &"..."), optimize by avoiding copying the right operand -- just use thevalue of the right operand directly.* stringt.adb (Store_String_Chars): Optimize by growing theString_Chars table all at once, rather than appending characters one byone.(Write_String_Table_Entry): If the string to be printed is very long,just print the first few characters, followed by the length. Otherwise,doing "pn(n)" in the debugger can take an extremely long time.* sem_prag.adb (Process_Interface_Name): Replace loop doingStore_String_Char with Store_String_Chars.2007-08-31 Vincent Celier <celier@adacore.com>* prj-attr.adb: Add new attribute Excluded_Source_Files* prj-nmsc.adb: Use attribute Excluded_Source_Files beforeLocally_Removed_Files.* snames.ads, snames.adb: New standard name Excluded_Source_Files2007-08-31 Ed Schonberg <schonberg@adacore.com>* sem_ch10.adb (Analyze_Subunit_Context): When analyzing contextclauses of subunits, ignore limited_with_clauses that are illegal andhave not been fully analyzed.2007-08-31 Ed Schonberg <schonberg@adacore.com>* sem_ch3.adb: The predicate Is_Descendent_Of_Address is now an entityflag, for effiency. It is called when analyzing arithmetic operatorsand also for actuals in calls that are universal_integers. The flag isset for the predefined type address, and for any type or subtypederived from it.* sem_ch4.adb (Analyze_One_Call): Reject an actual that is aUniversal_Integer, when the formal is a descendent of address and thecall appears in user code.(Analyze_Selected_Component): if the prefix is a private extension, thetag component is visible.* sem_util.ads, sem_util.adb: Remove Is_Descendent_Of_Address, now anentity flag.2007-08-31 Robert Dewar <dewar@adacore.com>* s-fileio.adb (Open): Normalize file name to lower case in non-casesensitive file name systems to avoid unexpected mismatch in Vista.2007-08-31 Vincent Celier <celier@adacore.com>* tempdir.adb: On VMS, take into account GNUTMPDIR before TMPDIR2007-08-31 Vincent Celier <celier@adacore.com>* symbols-vms.adb (Initialize): Read symbol files with continuationlines(Finalize): If symbol is long, split the line2007-08-31 Vincent Celier <celier@adacore.com>* fmap.ads: Minor comment updates2007-08-31 GNAT Script <nobody@adacore.com>* Make-lang.in: Makefile automatically updated2007-08-31 Bob Duff <duff@adacore.com>* sinfo.ads: Minor comment fix.2007-08-31 Thomas Quinot <quinot@adacore.com>* stand.ads: (Standard_Debug_Renaming_Type): Make comment consistentwith implementation.Documentation cleanup only.2007-08-31 Sergey Rybin <rybin@adacore.com>* vms_data.ads: Add new qualifier /STMT_NAME_ON_NEW_LINE for the newgnatpp '--separate-stmt-name' option.Add new qualifier /USE_ON_NEW_LIN for the new gnatpp '--use-on-new-line'option.* gnat_ugn.texi: Add description for the new gnatpp'--separate-stmt-name' and '--use-on-new-line' options.2007-08-31 Ben Elliston <bje@au.ibm.com>* Makefile.in (LIBGNAT_TARGET_PAIRS): Use system-linux-ppc64.adswhen compiling for powerpc64-*-linux.* system-linux-ppc64.ads: New file.2007-08-22 Krister Walfridsson <cato@df.lth.se>* env.c ( __gnat_clearenv): Use the __gnat_unsetenv mechanism forNetBSD.2007-08-16 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>* misc.c (gnat_type_max_size): Constify.2007-08-16 Gary Dismukes <dismukes@adacore.com>* cstand.adb (Create_Standard): Create an entity for a zero-sized typeassociated with Standard_Debug_Renaming_Type, to be used as the type ofthe special variables whose names provide debugger encodings forrenaming declarations.* einfo.ads, einfo.adb (Debug_Renaming_Link): Change to return Node25.(Set_Debug_Renaming_Link): Change to set Node25.(Write_Field13_Name): Remove case for E_Enumeration_Literal.(Write_Field25_Name): Add case for E_Variable to output"Debug_Renaming_Link".(Write_Field23_Name): Correct the output string for "Limited_View".* exp_dbug.adb: Add with and use of Tbuild.(Debug_Renaming_Declaration): Replace creation of an enumeration typeand literal with creation of a variable of typeStandard_Debug_Renaming_Type whose name encodes both the renamed objectand the entity of the renaming declaration.(Qualify_Entity_Name): Add the delayed qualification of the entity namepart of the name of a variable that has a Debug_Renaming_Link.* stand.ads (Standard_Debug_Renaming_Type): New Entity_Id denoting aspecial type to be associated with variables that provide debuggerencodings for renaming declarations.2007-08-16 Gary Dismukes <dismukes@adacore.com>Ed Schonberg <schonberg@adacore.com>Javier Miranda <miranda@adacore.com>* exp_aggr.adb (Build_Record_Aggr_Code): Extend the test for anancestor part given by an aggregate to test for an unchecked conversion,since this can occur in some cases when the ancestor part is a functioncall, and we don't want to fall into the recursive call to thisprocedure in that case.* exp_ch3.adb (Stream_Operation_OK): Revise tests for availability ofstream attributes on limited types to account for user-specifiedattributes as well as whether Input (resp. Output) becomes availabledue to Read (resp. Write) being available for the type. Change Booleanvariable to the more accurate nameHas_Predefined_Or_Specified_Stream_Attribute. Change convoluteddouble-"not" predicate at beginning of return statement to moreunderstandable form.* exp_ch5.adb (Expand_N_Extended_Return_Statement): If the extendedreturn has an associated N_Handled_Sequence_Of_Statements, then wrap itin a block statement and use that as the first statement of theexpanded return rather than incorrectly using the handled sequence asthe first statement.* exp_ch6.adb (Expand_N_Subprogram_Declaration): If this is a protectedoperation, generate an explicit freeze node for it rather thangenerating extra formals, to ensure that gigi has the proper order ofelaboration for anonymous subtypes in the signature of the subprograms.(Build_In_Place_Formal): Move assertion to beginning of loop.(Is_Build_In_Place_Function_Call): Allow for an unchecked conversionapplied to a function call (occurs for some cases of 'Input).(Make_Build_In_Place_Call_In_*): Allow for an unchecked conversionapplied to a function call (occurs for some cases of 'Input).* exp_strm.adb (Build_Record_Or_Elementary_Input_Function): For Ada2005, generate an extended return statement enclosing the result objectand 'Read call.* freeze.adb (Freeze_Record_Type): Extend the current management ofcomponents that are access type with an allocator as default value: addmissing support to the use of qualified expressions of theallocator (which also cause freezing of the designated type!)(Freeze_Entity): Call Freeze_Subprogram in the case of a predefineddispatching operation, since extra formals may be needed by calls tobuild-in-place functions (such as stream 'Input).* sem_ch6.adb (Create_Extra_Formals): Skip creation of the extraformals for 'Constrained and accessibility level in the case of apredefined dispatching operation.* exp_util.adb (Insert_Actions): A protected body is a valid insertionpoint, no need to find the parent node.2007-08-16 Javier Miranda <miranda@adacore.com>* exp_attr.adb (Attribute_Priority): Add missing support for entriesand entry barriers.2007-08-16 Javier Miranda <miranda@adacore.com>* exp_ch9.adb (Build_Protected_Entry): Undo previous change because itis not really required and can introduce regression with the debugger.The original problem is fixed with the patch written for checks.adb.2007-08-16 Thomas Quinot <quinot@adacore.com>* g-dyntab.adb, g-table.adb, table.adb: (Set_Item): SuppressRange_Check on Allocated_Table.2007-08-16 Vincent Celier <celier@adacore.com>* make.adb (Collect_Arguments): Call Test_If_Relative_Path withIncluding_Non_Switch set to False.(Gnatmake): For the compiler, call Test_If_Relative_Path withIncluding_Non_Switch set to False.* makeutl.adb, makeutl.ads (Test_If_Relative_Path): New Booleanparameter Including_Non_Switch, defaulted to True. WhenIncluding_Non_Switch is False, options that are not switches andappear as relative path are not converted to absolute paths.2007-08-16 Nicolas Roche <roche@adacore.com>* Makefile.in (gnatlib): Propagate FORCE_DEBUG_ADAFLAGS value to submakefiles* Make-lang.in: Update dependencies2007-08-16 Hristian Kirtchev <kirtchev@adacore.com>* sem_ch10.adb (Has_With_Clause): If the name of the with clausecurrently inspected is a selected component, retrieve the entity ofits selector.(Install_Limited_Withed_Unit): Call Has_Limited_With_Clause startingfrom the immediate ancestor of Main_Unit_Entity.(Install_Limited_Withed_Unit): Do not install the limited view ofpackage P if P is reachable through an ancestor chain from package Cand C also has a with clause for P in its body.(Has_Limited_With_Clause): New routine.(Has_With_Clause): New routine.2007-08-16 Ed Schonberg <schonberg@adacore.com>* sem_ch12.adb (Copy_Generic_Node): A reference to a child unit of thegeneric for an enclosing instance is a global reference, even thoughits scope is the enclosing instance.2007-08-16 Gary Dismukes <dismukes@adacore.com>Javier Miranda <miranda@adacore.com>* sem_ch3.adb (OK_For_Limited_Init_In_05): Allow calls to 'Input toinitialize a limited object.(Build_Derived_Record_Type): Add missing check of rules ARM 3.9.413/2 and 14/2.Make sure Has_Complex_Representation is inherited by derived type.2007-08-16 Robert Dewar <dewar@adacore.com>* sem_ch5.adb (Analyze_Assignment): Make sure we still note update inexception case2007-08-16 Ed Schonberg <schonberg@adacore.com>* sem_disp.adb (Check_Dispatching_Operation): If the operationimplements an operation inherited from a progenitor interface, verifythat they are subtype-conformant.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. Whenthe statement which is being resolved comes from a predefined libraryunit, 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 wouldbe wrong.* sinfo.ads, sinfo.adb (Is_Folded_In_Parser): New flag to indicate thatthe parser has folded a long sequence of concatenations of stringliterals.* 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. Usexmalloc/free instead. Otherwise the stack might overflow.* utils.c (init_gigi_decls): Mark "JMPBUF_T" type as created by thecompiler.2007-08-16 Vincent Celier <celier@adacore.com>* vms_conv.adb (Process_Argument): Ensure that project related optionsare not put in the -cargs section when using GNAT COMPILE.2007-08-16 Robert Dewar <dewar@adacore.com>* gnat_ugn.texi: Add note on preprocessing (output file not written)2007-08-16 Thomas Quinot <quinot@adacore.com>* a-tags.adb: Minor reformatting.2007-08-16 Bob Duff <duff@adacore.com>* sem_type.ads, sem_ch4.adb: Minor reformatting.2007-08-14 Thomas Quinot <quinot@adacore.com>* g-soccon-interix.ads, a-excpol-interix.adb, a-intnam-interix.ads,s-osinte-interix.ads, system-interix.ads: Removed.2007-08-14 Hristian Kirtchev <kirtchev@adacore.com>* a-calend-vms.adb, a-calend.adb ("+", "-", Add, Subtract): Removecalls to Check_Within_Time_Bounds.("+", "-", Add, Subtract): Remove calls to Check_Within_Time_Bounds.(Difference): Account for possible rounding of the resulting difference2007-08-14 Robert Dewar <dewar@adacore.com>* uintp.adb, a-ztedit.adb, s-wchcon.adb, xnmake.adb, s-wchcon.adb,par-ch5.adb, par-ch10.adb, get_targ.adb, a-wtedit.adb, a-teioed.adb,s-osinte-solaris.adb, s-osinte-solaris.ads,s-osinte-freebsd.ads, s-osinte-freebsd.adb: Minor reformatting.* styleg.adb, styleg.ads, stylesw.adb, stylesw.ads: implement styleswitch -gnatyS. Enable -gnatyS in GNAT style check mode2007-08-14 Robert Dewar <dewar@adacore.com>Ed Schonberg <schonberg@adacore.com>* inline.adb, types.ads, inline.ads, frontend.adb, alloc.ads:Suppress unmodified in-out parameter warning in some casesThis patch is a also fairly significant change to the way suppressiblechecks are handled.* checks.ads, checks.adb (Install_Null_Excluding_Check): No checkneeded for access to concurrent record types generated by the expander.(Generate_Range_Check): When generating a temporary to capture thevalue of a conversion that requires a range check, set the type of thetemporary before rewriting the node, so that the type is alwaysproperly placed for back-end use.(Apply_Float_Conversion_Check): Handle case where the conversion istruncating.(Get_Discriminal): Code reformatting. Climb the scope stack lookingfor a protected type in order to examine its discriminants.2007-08-14 Robert Dewar <dewar@adacore.com>Gary Dismukes <dismukes@adacore.com>Ed Schonberg <schonberg@adacore.com>Thomas Quinot <quinot@adacore.com>* a-stzsup.adb, nlists.adb, lib-util.adb, treepr.adb,a-stwisu.adb, a-strsup.adb: Fix warnings for rangetests optimized out.* exp_ch4.adb (Expand_N_In): Add warnings for range tests optimized out.(Get_Allocator_Final_List): For the case of an anonymous access typethat has a specified Associated_Final_Chain, do not go up to theenclosing scope.(Expand_N_Type_Conversion): Test for the case of renamings of accessparameters when deciding whether to apply a run-time accessibilitycheck.(Convert_Aggr_In_Allocator): Use Insert_Actions to place expandedaggregate code before allocator, and ahead of declaration fortemporary, to prevent access before elaboration when the allocator isan actual for an access parameter.(Expand_N_Type_Conversion): On an access type conversion involving anaccess parameter, do not apply an accessibility check when theoperand's original node was an attribute other than 'Access. We nowcreate access conversions for the expansion of 'Unchecked_Access and'Unrestricted_Access in certain cases and clearly accessibility shouldnot be checked for those.* exp_ch6.ads, exp_ch6.adb (Add_Call_By_Copy_Code): For an actual thatincludes a type conversion of a packed component that has been expanded,recover the original expression for the object, and use this expressionin the post-call assignment statement, so that the assignment is madeto the object and not to a back-end temporary.(Freeze_Subprogram): In case of primitives of tagged types not definedat the library level force generation of code to register the primitivein the dispatch table. In addition some code reorganization has beendone to leave the implementation clear.(Expand_Call): When expanding an inherited implicit conversion,preserve the type of the inherited function after the intrinsicoperation has been expanded.* exp_ch2.ads, exp_ch2.adb(Expand_Entry_Parameter.In_Assignment_Context): An implicit dereferenceof an entry formal appearing in an assignment statement does not assignto the formal.(Expand_Current_Value): Instead of calling a routine to determinewhether the prefix of an attribute reference should be optimized ornot, prevent the optimization of such prefixes all together.* lib-xref.adb (Generate_Reference.Is_On_LHS): An indexed or selectedcomponent whose prefix is known to be of an access type is an implicitdereference and does not assign to the prefix.2007-08-14 Ed Schonberg <schonberg@adacore.com>Robert Dewar <dewar@adacore.com>* atree.ads, atree.adb (New_Copy_Tree): If hash table is being used anditype is visited, make an entry into table to link associated node andnew itype.Add comments and correct harmless error in Build_NCT_Hash_Tables(Array_Aggr_Subtype): Associate each itype created for an index type tothe corresponding range construct, and not to the aggregate itself. tomaintain a one-to-one correspondence between itype and its associatednode, to prevent errors when complex expression is copied.Fix mishandling of multiple levels of parens* sem_aggr.adb: Create a limited view of an incomplete type, to maketreatment of limited views uniform for all visible declarations in alimited_withed package.(New_Copy_Tree): If hash table is being used and itype is visited,make an entry into table to link associated node and new itype.(Resolve_Record_Aggregate): Do not add an others box association for adiscriminated record component that has only discriminants, when thereis a box association for the component itself.* par-ch4.adb: Fix mishandling of multiple levels of parens2007-08-14 Robert Dewar <dewar@adacore.com>* comperr.adb: Fix problem with suppressing warning messages from gigi* erroutc.ads, erroutc.adb, errout.ads,errout.adb (Write_Eol): Remove trailing spaces before writing the line(Write_Eol_Keep_Blanks): New procedure to write a line, includingpossible trailing spaces.(Output_Source_Line): Call Write_Eol_Keep_Blanks to output a source lineFix problem with suppressing warning messages from back endImprove handling of deleted warnings* gnat1drv.adb:Fix problem with suppressing warning messages from back endHandle setting of Static_Dispatch_Tables flag.* prepcomp.adb:Fix problem with suppressing warning messages from back end* exp_intr.adb: Improve handling of deleted warnings2007-08-14 Robert Dewar <dewar@adacore.com>* debug.adb: Improve -gnatdI to cover all cases of serializationAdd documentation of dZ, d.t* sprint.ads, sprint.adb: Improve -gnatdI to cover all cases ofserialization.(Sprint_Node_Actual): Generate new output associated with implicitimportation and implicit exportation of object declarations.2007-08-14 Ed Schonberg <schonberg@adacore.com>Robert Dewar <dewar@adacore.com>Javier Miranda <miranda@adacore.com>Gary Dismukes <dismukes@adacore.com>* einfo.ads, einfo.adb: Create a limited view of an incomplete type,to make treatment of limited views uniform for all visible declarationsin a limited_withed package.Improve warnings for in out parameters(Set_Related_Interaface/Related_Interface): Allow the use of thisattribute with constants.(Write_Field26_Name): Handle attribute Related_Interface in constants.Warn on duplicate pragma Preelaborable_Initialialization* sem_ch6.ads, sem_ch6.adb (Analyze_Subprogram_Body): Force thegeneration of a freezing node to ensure proper management of nullexcluding access types in the backend.(Create_Extra_Formals): Test base type of the formal when checking forthe need to add an extra accessibility-level formal. Pass the entity Eon all calls to Add_Extra_Formal (rather than Scope (Formal) as wasoriginally being done in a couple of cases), to ensure that theExtra_Formals list gets set on the entity E when the first entity isadded.(Conforming_Types): Add missing calls to Base_Type to the code thathandles anonymous access types. This is required to handle thegeneral case because Process_Formals builds internal subtype entitiesto handle null-excluding access types.(Make_Controlling_Function_Wrappers): Create wrappers for constructorfunctions that need it, even when not marked Requires_Overriding.Improve warnings for in out parameters(Analyze_Function_Return): Warn for disallowed null returnWarn on return from procedure with unset out parameterEnsure consistent use of # in error messages(Check_Overriding_Indicator): Add in parameter Is_Primitive.(Analyze_Function_Return): Move call to Apply_Constraint_Check beforethe implicit conversion of the expression done for anonymous accesstypes. This is required to generate the code of the null excludingcheck (if required).* sem_warn.ads, sem_warn.adb (Check_References.Publicly_Referenceable):A formal parameter is never publicly referenceable outside of its body.(Check_References): For an unreferenced formal parameter in an acceptstatement, use the same warning circuitry as for subprogram formalparameters.(Warn_On_Unreferenced_Entity): New subprogram, taken fromOutput_Unreferenced_Messages, containing the part of that routine thatis now reused for entry formals as described above.(Goto_Spec_Entity): New function(Check_References): Do not give IN OUT warning for dispatching operationImprove warnings for in out parameters(Test_Ref): Check that the entity is not undefinite before callingScope_Within, in order to avoid infinite loops.Warn on return from procedure with unset out parameterImproved warnings for unused variables2007-08-14 Robert Dewar <dewar@adacore.com>Javier Miranda <miranda@adacore.com>Gary Dismukes <dismukes@adacore.com>* exp_attr.adb (Expand_N_Attribute_Reference): Handle case of child unit(Expand_N_Attribute_Reference): Further unify the handling of thethree forms of access attributes, using common code now for all threecases. Add a test for the case of applying an access attribute toan explicit dereference when the context is an access-to-interfacetype. In that case we need to apply the conversion to the prefixof the explicit dereference rather than the prefix of the attribute.(Attribute_Version, UET_Address): Set entity as internal to ensureproper dg output of implicit importation.(Expand_Access_To_Type): Removed.(Expand_N_Attribute_Reference): Merge the code from the three casesof access attributes, since the processing is largely identical forthese cases. The substantive fix here is to process the case of atype name prefix (current instance case) before handling the caseof interface prefixes.2007-08-14 Thomas Quinot <quinot@adacore.com>Ed Schonberg <schonberg@adacore.com>Javier Miranda <miranda@adacore.com>Robert Dewar <dewar@adacore.com>* exp_ch3.ads, exp_ch3.adb (Add_Final_Chain): New subprogram.(Freeze_Array_Type, Freeze_Record_Type): For the case of a componenttype that is an anonymous access to controlled object, establishan associated finalization chain to avoid corrupting the globalfinalization list when a dynamically allocated object designatedby such a component is deallocated.(Make_Controlling_Function_Wrappers): Create wrappers for constructorfunctions that need it, even when not marked Requires_Overriding.(Initialize_Tag): Replace call to has_discriminants by call toIs_Variable_Size_Record in the circuitry that handles theinitialization of secondary tags.(Is_Variable_Size_Record): New implementation.(Expand_N_Object_Declaration): Suppress call to init proc if there is aSuppress_Initialization pragma for a derived type.(Is_Variable_Size_Record): New subprogram.(Build_Offset_To_Top_Functions): New implementation that simplifies theinitial version of this routine and also fixes problems causingincomplete initialization of the table of interfaces.(Build_Init_Procedure): Improve the generation of code to initialize thethe tag components of secondary dispatch tables.(Init_Secondary_Tags): New implementation that simplifies the previousversion of this routine.(Make_DT): Add parameter to indicate when type has been frozen by anobject declaration, for diagnostic purposes.(Check_Premature_Freezing): New subsidiary procedure of Make_DT, todiagnose attemps to freeze a subprogram when some untagged type of itsprofile is a private type whose full view has not been analyzed yet.(Freeze_Array_Type): Generate init proc for packed array if eitherInitialize or Normalize_Scalars is set.(Make_Controlling_Function_Wrappers, Make_Null_Procedure_Specs): whenconstructing the new profile, copy the null_exclusion indicator for eachparameter, to ensure full conformance of the new body with the spec.* sem_type.ads, sem_type.adb (Make_Controlling_Function_Wrappers):Create wrappers for constructor functions that need it, even when notmarked Requires_Overriding.(Covers): Handle properly designated types of anonymous access types,whose non-limited views are themselves incomplete types.(Add_Entry): Use an entity to store the abstract operation which hidesan interpretation.(Binary_Op_May_Be_Hidden): Rename to Binary_Op_Interp_Has_Abstract_Op.(Collect_Interps): Use Empty as an actual for Abstract_Op in theinitialization aggregate.(Function_Interp_May_Be_Hidden): Rename toFunction_Interp_Has_Abstract_Op.(Has_Compatible_Type): Remove machinery that skips interpretations ifthey are labeled as potentially hidden by an abstract operator.(Has_Hidden_Interp): Rename to Has_Abstract_Op.(Set_May_Be_Hidden): Rename to Set_Abstract_Op.(Write_Overloads): Output the abstract operator if present.(Add_Entry): Before inserting a new entry into the interpretation tablefor a node, determine whether the entry will be disabled by an abstractoperator.(Binary_Op_Interp_May_Be_Hidden): New routine.(Collect_Interps): Add value for flag May_Be_Hidden in initializationaggregate.(Function_Interp_May_Be_Hidden): New routine.(Has_Compatible_Type): Do not consider interpretations hidden byabstract operators when trying to determine whether two types arecompatible.(Has_Hidden_Interp): New routine.(Set_May_Be_Hidden_Interp): New routine.(Write_Overloads): Write the status of flag May_Be_Hidden.2007-08-14 Ed Schonberg <schonberg@adacore.com>Javier Miranda <miranda@adacore.com>* exp_disp.ads, exp_disp.adb (Build_Dispatch_Tables): Handle taggedtypes declared in the declarative part of a nested package body or inthe proper body of a stub.(Set_All_DT_Position): Add missing check to avoid wrong assignationof the same dispatch table slot to renamed primitives.(Make_Select_Specific_Data_Table): Handle private types.(Tagged_Kind): Handle private types.(Make_Tags, Make_DT): Set tag entity as internal to ensure proper dgoutput of implicit importation and exportation.(Expand_Interface_Thunk): Fix bug in the expansion assuming that thefirst formal of the thunk is always associated with the controllingtype. In addition perform the following code cleanup: remove formalThunk_Alias which is no longer required, cleanup evaluation of thethe controlling type, and update the documentation.Replace occurrence of Default_Prim_Op_Count byMax_Predef_Prims. Addition of compile-time check to verifythat the value of Max_Predef_Prims is correct.(Check_Premature_Freezing): Apply check in Ada95 mode as well.(Make_DT): Add parameter to indicate when type has been frozen by anobject declaration, for diagnostic purposes.(Build_Static_Dispatch_Tables): New subprogram that takes care of theconstruction of statically allocated dispatch tables.(Make_DT): In case of library-level tagged types export the declarationof the primary tag. Remove generation of tags (now done by Make_Tags).Additional modifications to handle non-static generation of dispatchtables. Take care of building tables for asynchronous interface types(Make_Tags): New subprogram that generates the entities associated withthe primary and secondary tags of Typ and fills the contents of Access_Disp_Table. In case of library-level tagged types imports the forwarddeclaration of the primary tag that will be declared later by Make_DT.(Expand_Interface_Conversion): In case of access types to interfacesreplace an itype declaration by an explicit type declaration to avoidproblems associated with the scope of such itype in transient blocks.2007-08-14 Robert Dewar <dewar@adacore.com>Ed Schonberg <schonberg@adacore.com>Javier Miranda <miranda@adacore.com>* exp_util.ads, exp_util.adb:This patch replaces a number of occurrences of explicit tests for N_Nullwith calls to Known_Null. This improves tracking of null values, sinceKnown_Null also catches null constants, and variables currently known tobe null, so we get better tracking.(Ensure_Defined): create an itype reference only in the scope of theitype.(Side_Effect_Free): A selected component of an access type thatdenotes a component with a rep clause must be treated as notside-effect free, because if it is part of a linked structure itsvalue may be affected by a renaming.(Expand_Subtype_From_Expr): For limited objects initialized with buildin place function calls, do nothing; otherwise we prematurely introducean N_Reference node in the expression initializing the object, whichbreaks the circuitry that detects and adds the additional arguments tothe called function. Bug found working in the new patch for staticallyallocated dispatch tables.(Is_Library_Level_Tagged_Type): New subprogram.(Remove_Side_Effects): If the expression of an elementary type is anoperator treat as a function call.(Make_Literal_Range): If the index type of the array is not integer, useattributes properly to compute the constraint on the resulting aggregatewhich is a string.* freeze.ads, freeze.adb (Freeze_Entity): If the entity is aclass-wide type whose base type is an incomplete private type, leaveclass-wide type unfrozen so that freeze nodes can be generatedproperly at a later point.(Freeze_Entity, array case): Handle case of pragma Pack and componentsize attributre clause for same array.2007-08-14 Vincent Celier <celier@adacore.com>* prj.ads, prj.adb: Update Project Manager to new attribute names forgprbuild.Allow all valid declarations in configuration project files(Reset): Initialize all tables and hash tables in the project tree dataMajor update of the Project Manager and of the project aware tools,including gprmake, so that the same sources in the GNAT repositorycan be used by gprbuild.(Slash_Id): Change type to be Path_Name_Type(Slash): Return a Path_Name_Type instead of a File_Name_Type* prj-attr.ads, prj-attr.adb: Remove attributes no longer used bygprbuild.Update Project Manager to new attribute names for ghprbuildAllow all valid declarations in configuration project filesMajor update of the Project Manager and of the project aware tools,including gprmake, so that the same sources in the GNAT repositorycan be used by gprbuild.* prj-com.ads:Major update of the Project Manager and of the project aware tools,including gprmake, so that the same sources in the GNAT repositorycan be used by gprbuild.* prj-dect.adb (Prj.Strt.Attribute_Reference): Set correctly the caseinsensitive flag for attributes with optional index.(Prj.Dect.Parse_Attribute_Declaration): For case insensitive associativearray attribute, put the index in lower case.Update Project Manager to new attribute names for ghprbuildAllow all valid declarations in configuration project filesMajor update of the Project Manager and of the project aware tools,including gprmake, so that the same sources in the GNAT repositorycan be used by gprbuild.* prj-env.ads, prj-env.adb:Major update of the Project Manager and of the project aware tools,including gprmake, so that the same sources in the GNAT repositorycan be used by gprbuild.(Get_Reference): Change type of parameter Path to Path_Name_Type* prj-ext.ads, prj-ext.adb (Initialize_Project_Path): Make sure, afterremoving '-' from the path to start with the first character of thenext directory.Major update of the Project Manager and of the project aware tools,including gprmake, so that the same sources in the GNAT repositorycan be used by gprbuild.Major update of the Project Manager and of the project aware tools,including gprmake, so that the same sources in the GNAT repositorycan be used by gprbuild.* prj-nmsc.ads, prj-nmsc.adb:Update Project Manager to new attribute names for ghprbuildAllow all valid declarations in configuration project files(Search_Directories): Detect subunits that are specified with anattribute Body in package Naming. Do not replace a source/unit in thesame project when the order of the source dirs are known. Detectduplicate sources/units in the same project when the order of thesource dirs are not known.(Check_Ada_Name): Allow all identifiers that are not reserved wordsin Ada 95.Major update of the Project Manager and of the project aware tools,including gprmake, so that the same sources in the GNAT repositorycan be used by gprbuild.(Look_For_Sources): If the list of sources is empty, set the objectdirectory of non extending project to nil.Change type of path name variables to be Path_Name_Type(Locate_Directory): Make sure that on Windows '/' is converted to '\',otherwise creating missing directories will fail.* prj-attr-pm.adb, prj-tree.ads, prj-proc.ads, prj-proc.adb,prj-part.ads, prj-part.adb:Major update of the Project Manager and of the project aware tools,including gprmake, so that the same sources in the GNAT repositorycan be used by gprbuild.* prj-strt.adb (Prj.Strt.Attribute_Reference): Set correctly the caseinsensitive flag for attributes with optional index.(Prj.Dect.Parse_Attribute_Declaration): For case insensitive associativearray attribute, put the index in lower case.(Parse_Variable_Reference): Allow the current project name to be used inthe prefix of an attribute reference.* prj-util.ads, prj-util.adb(Value_Of (for arrays)): New Boolean parameter Force_Lower_Case_Index,defaulted to False. When True, always check against indexes in lowercase.* snames.ads, snames.h, snames.adb:Update Project Manager to new attribute names for gprbuildAllow all valid declarations in configuration project files2007-08-14 Robert Dewar <dewar@adacore.com>Ed Schonberg <schonberg@adacore.com>* opt.ads: Warning for non-local exception propagation now off bydefaultNew switch -gnatI to disable representation clausesImplement new pragma Implicit_Packing* usage.adb:Warning for non-local exception propagation now off by defaultAdd warning for unchecked conversion of pointers wi differentconventions.New switch -gnatI to disable representation clauses* usage.adb: new switch -gnatyS* gnat_ugn.texi: For the gnatcheck Non_Qualified_Aggregates rule add anote that aggregates of anonymous array types are not flagged.-gnatwc now includes membership tests optimized away-gnatw.x warnings are now off by defaultAdded conditional compilation AppendixAdd documentation of -gnatIAdd documentation for new -gnatyS style checkUpdate documentation about SAL and auto-init on Windows.* gnat_rm.texi:Add documentation for pragma Check_Name and 'Enabled attributeDocument that Eliminate on dispatching operation is ignoredDocument IDE attributes VCS_Repository_Root and VCS_Patch_Root.Document pragma MainDocument pragma Implicit_Packing* sem_ch13.adb: Add warning for unchecked conversion of pointers widifferent conventionsNew switch -gnatI to disable representation clauses* switch-c.adb (Scan_Front_End_Switches): When a -gnat switch is notrecognized, report the invalid characters including "-gnat" instead ofjust the first character in the switch.New switch -gnatI to disable representation clausesSet Warn_On_Object_Renames_Function true for -gnatg* vms_data.ads: Add doc for /IGNORE_REP_CLAUSESAdd STATEMENTS_AFTER_THEN_ELSE as synonym for -gnatySAdd qualifier /ADD_PROJECT_SEARCH_DIR= for different tools, equivalentto switch -aP (add directory to project search dir).* par-prag.adb: Implement new pragma Implicit_Packing* sem_prag.adb (Analyze_Pragma, case Complex_Representation): Mark thetype as having a non-standard representation, to force expansion onconversion to related types.(Analyze_Pragma): Warn on misspelled pragma(Analyze_Pragma, case Convention_Identifier): Fix checking of second argEnsure consistent use of # in error messagesImplement pragma Implicit_Packing2007-08-14 Olivier Hainque <hainque@adacore.com>Eric Botcazou <ebotcazou@adacore.com>* targtyps.c (get_target_maximum_default_alignment): New function.Maximum alignmentthat the compiler might choose by default for a type or object.(get_target_default_allocator_alignment): New function. Alignment knownto be honored by the target default allocator.(get_target_maximum_allowed_alignment): New function. Maximum alignmentwe might accept for any type or object on the target.(get_target_maximum_alignment): Now synonym of maximum_default_alignment* gigi.h (get_target_maximum_default_alignment): Declare new function.(get_target_default_allocator_alignment): Likewise.(get_target_maximum_allowed_alignment): Likewise.PR ada/19037* decl.c (gnat_to_gnu_entity) <object>: Except for the renaming of theresult of a function call, first try to use a stabilized reference fora constant renaming too.(validate_alignment): Use target_maximum_allowed_alignment instead ofMAX_OFILE_ALIGNMENT as the upper bound to what we accept.(gnat_to_gnu_entity): Use common nodes directly.(gnat_to_gnu_entity) <object>: Pick the values of the type to annotatealignment and size for the object.(lvalue_required_p): Handle N_Parameter_Association like N_Function_Calland N_Procedure_Call_Statement.(takes_address): Rename to lvalue_required_p, add third parameter'aliased' and adjust recursive calls.<N_Indexed_Component>: Update 'aliased' from the array type.<N_Selected_Component>: New case.<N_Object_Renaming_Declaration>: New Likewise.(Identifier_to_gnu): Adjust for above changes.(maybe_stabilize_reference) <CONST_DECL>: New case.* utils2.c (build_binary_op) <ARRAY_RANGE_REF>: Look through conversionbetween type variants.(build_simple_component_ref): Likewise.(build_call_alloc_dealloc): Use target_default_allocator_alignmentinstead of BIGGEST_ALIGNMENT as the threshold to trigger the superaligning type circuitry for allocations from the default storage pool.(build_allocator): Likewise.(build_simple_component_ref): Manually fold the reference for aconstructor if the record type contains a template.* utils.c (value_zerop): Delete.(gnat_init_decl_processing): Emit debug info for common types.(rest_of_record_type_compilation): If a union contains a fieldwith a non-constant qualifier, treat it as variable-sized.(finish_record_type): Give the stub TYPE_DECL a name.(rest_of_record_type_compilation): Likewise.(convert) <CONSTRUCTOR>: New case. Build a new constructor iftypes are equivalent array types.(create_field_decl): Claim fields of any ARRAY_TYPE are addressable,even if the type is not passed by reference.(static_ctors, static_dtors): Delete.(end_subprog_body): Do not record constructors and destructors.(build_global_cdtor): Delete.(gnat_write_global_declarations): Do not call build_global_cdtor.* lang-spARGET_VXWORKS_RTP is defined, append -mrtp when-fRTS=rtp is specified.If CONFIG_DUAL_EXCEPTIONS is 1, append -fsjlj when -fRTS=sjlj isspecified.* misc.c (gnat_init_gcc_eh): Use __gnat_eh_personality_sj for the nameof the personality function with SJLJ exceptions.* raise-gcc.c (PERSONALITY_FUNCTION): Use __gnat_eh_personality_sj forthe name of the personality function with SJLJ exceptions.2007-08-14 Robert Dewar <dewar@adacore.com>Ed Schonberg <schonberg@adacore.com>* par.ads, par.adb: Improve handling of extra right parens.(Par): Remove flag From_Limited_With_Clause.* par-util.adb, par-ch3.adb: Improve error recovery for bad constraintImprove handling of extra right parens.2007-08-14 Robert Dewar <dewar@adacore.com>* par-tchk.adb (TF_Semicolon): Improve error recovery2007-08-14 Robert Dewar <dewar@adacore.com>Ed Schonberg <schonberg@adacore.com>* sem_attr.ads, sem_attr.adb (Analyze_Attribute, case Value): Forenumeration type, mark all literals as referenced.(Eval_Attribute, case 'Image): If the argument is an enumerationliteral and names are available, constant-fold but mark nevertheless asnon-static.Clean up function names.(Name_Modifies_Prefix): Rename to Name_Implies_Lvalue_Prefix. Clarifycomment.(Requires_Simple_Name_Prefix): Removed.2007-08-14 Robert Dewar <dewar@adacore.com>Ed Schonberg <schonberg@adacore.com>* sem_ch11.adb: Improved warnings for unused variables* sem_ch3.ads, sem_ch3.adb (Build_Derived_Record_Type): If the ancestoris a synchronized interface, the derived type is limited.(Analyze_Object_Declaration): Mark the potential coextensions in thedefinition and expression of an object declaration node.(Build_Derived_Type): For the completion of a private type declarationwith a derived type declaration, chain the parent type's representationitems to the last representation item of the derived type (not thefirst one) if they are not present already.(Analyze_Object_Declaration, Constant_Redeclaration): Allow incompleteobject declaration of forward references to tags.(Access_Subprogram_Declaration): In Ada2005, anonymous access tosubprogram types can appear as access discriminants of synchronizedtypes.(OK_For_Limited_Init_In_05): The initialization is legal is it is a callgiven in prefixed form as a selected component.(Process_Discriminants): If not all discriminants have defaults, placeerror message on a default that is present.(Analyze_Private_Extension_Declaration): Diagnose properly an attempt toextend a synchronized tagged type.Improved warnings for unused variables(Is_Visible_Component): Fix a visibility hole on a component inheritedby a private extension when parent is itself declared as a privateextension, and the derivation is in a child unit.(Find_Hidden_Interface): Move spec from the package body.2007-08-14 Robert Dewar <dewar@adacore.com>Ed Schonberg <schonberg@adacore.com>* sem_ch5.adb: Improve warnings on redundant assignments* sem_util.ads, sem_util.adb: (Is_Variable): Add defense against junkparameter(Is_Synchronized_Tagged_Type): New subprogram that returns truein case of synchronized tagged types (AARM 3.9.4 (6/2)).(Safe_To_Capture_Value): Can now return True for constants, even if Condis set to False. Improves handling of Known_[Not_]Null.(Wrong_Type): Special case address arithmetic attempt(Collect_Abstract_Interfaces): Add new formal to allow collectingabstract interfaces just using the partial view of private types.(Has_Abstract_Interfaces): Add new formal to allow checking typescovering interfaces using the partial view of private types.(Is_Fully_Initialized_Type): Special VM case for uTag component. Thiscomponent still needs to be defined in this case, but is neverinitialized as VMs are using other dispatching mechanisms.(Abstract_Interface_List): For a protected type, use base type to getproper declaration.Improve warnings on redundant assignments(Is_Variable): Handle properly an implicit dereference of a prefixedfunction call.(Build_Actual_Subtype): If this is an actual subtype for anunconstrained formal parameter, use the sloc of the body for the newdeclaration, to prevent anomalises in the debugger.2007-08-14 Robert Dewar <dewar@adacore.com>* sem_elim.adb (Set_Eliminated): Ignore pragma Eliminate fordispatching operation2007-08-14 Ed Schonberg <schonberg@adacore.com>Gary Dismukes <dismukes@adacore.com>* exp_aggr.ads,exp_aggr.adb (Convert_Aggr_In_Allocator): Use Insert_Actions to placeexpanded aggregate code before allocator, and ahead of declaration fortemporary, to prevent access before elaboration when the allocator isan actual for an access parameter.(Is_Static_Dispatch_Table_Aggregate): Handle aggregates initializingthe TSD and the table of interfaces.(Convert_To_Assignments): Augment the test for delaying aggregateexpansion for limited return statements to include the case of extendedreturns, to prevent creation of an unwanted transient scope.(Is_Static_Dispatch_Table_Aggregate): New subprogram.(Expand_Array_Aggregate): Handle aggregates associated withstatically allocated dispatch tables.(Expand_Record_Aggregate): Handle aggregates associated withstatically allocated dispatch tables.(Gen_Ctrl_Actions_For_Aggr): Generate a finalization list for allocatorsof anonymous access type.2007-08-14 Ed Schonberg <schonberg@adacore.com>* exp_ch5.adb (Expand_Assign_Array): If source or target of assignmentis a variable that renames a slice, use the variable itself in theexpannsion when the renamed expression itself may be modified betweenthe declaration of the renaming and the array assignment.2007-08-14 Jerome Guitton <guitton@adacore.com>* s-taprop-lynxos.adb, s-taprop-tru64.adb, s-taprop-irix.adb,s-taprop-hpux-dce.adb, s-taprop-dummy.adb, s-taprop-solaris.adb,s-taprop-vms.adb, s-taprop-posix.adb (Continue_Task, Stop_All_Tasks):New functions; dummy implementations.* s-osinte-vxworks.ads (Task_Stop, Task_Cont, Int_Lock, Int_Unlock): Newfunctions, used to implement the multi-tasks mode routines on VxWorks.* s-osinte-vxworks.adb, s-osinte-vxworks6.adb (Task_Cont, Task_Stop):New functions, thinbinding to the VxWorks routines which have changed between VxWorks 5and 6.(Int_Lock, Int_Unlock): New function, thin binding to kernel routineswhich are not callable from a RTP.* s-taprop-vxworks.adb (Stop_All_Tasks, Continue_Task): New functions,implemented for the multi-tasks mode on VxWorks 5 and 6.* s-taprop.ads (Stop_All_Tasks, Continue_Task): New functions.* s-tasdeb.ads, s-tasdeb.adb (Continue_All_Tasks, Stop_All_Tasks): Newfunctions.2007-08-14 Vincent Celier <celier@adacore.com>* clean.adb, fmap.adb, sinput-p.adb, sinput-p.ads, gnatcmd.adb,gnatname.adb, makeutl.ads, makeutl.adb, makegpr.adb, mlib-tgt-vms.adbmlib-tgt-darwin.adb, mlib-tgt-lynxos.adb, mlib-prj.adb, mlib-tgt.adb,mlib-tgt.ads, mlib-tgt-irix.adb mlib-tgt-hpux.adb, mlib-tgt-linux.adb,mlib-tgt-solaris.adb, mlib-tgt-vms-alpha.adb, mlib-tgt-vms-ia64.adb,mlib-tgt-mingw.adb, mlib-tgt-vxworks.adb, mlib-tgt-aix.adb,mlib-tgt-tru64.adb, mlib.ads, mlib.adb (Create_Sym_Links): Newprocedure.(Major_Id_Name): New function.mlib-tgt.ads/mlib.tgt.adb:(Library_Major_Minor_Id_Supported): New function, default returns TrueMost mlib-tgt-*.adb that support shared libraries and symbolic links:(Build_Dynamic_Library): Add support for major/minor ids for shared libsOther mlib-tgt-*.adb (aix, mingw, vms, vxworks, xi):Implementation of Library_Major_Minor_Id_Supported returns Falseclean.adb:(Clean_Library_Directory): If major/minor ids are supported, clean alllibrary files.Major update of the Project Manager and of the project aware tools,including gprmake, so that the same sources in the GNAT repositorycan be used by gprbuild.2007-08-14 Olivier Hainque <hainque@adacore.com>* system-solaris-x86.ads (ZCX_By_Default): Switch to True.(GCC_ZCX_Support): Switch to True.* s-intman-solaris.adb (Notify_Exception): CallAdjust_Context_For_Raise before raising, as expected for signalhandlers in general.* s-intman-posix.adb (Notify_Exception): Remove declaration ofAdjust_Context_For_Raise, moved to the spec of this unit to be visibleto other implementation bodies.* s-intman.ads (Adjust_Context_For_Raise): Declare and import here, tobe visible by multiple implementation bodies.* init.c [VMS section] (__gnat_handle_vms_condition): Adjust contextonly for conditions coming from hardware.[alpha-tru64 section] (__gnat_adjust_context_for_raise): Implement,adjustments to signal context prior to exception raise from signalhandler.(__gnat_map_signal for VxWorks): Map SIGSEGV to Storage_Error in RTPmode.Solaris section: (__gnat_adjust_context_for_raise): New function.Implementation of the machine context adjustments to perform prior toraise from a signal handler. Version for both sparc and x86.(HAVE_GNAT_ADJUST_CONTEXT_FOR_RAISE): Define.(__gnat_error_handler): Expect a third argument, ucontext_t *. Adjust itprior to raising as expected for any handler, before possible nestedfaults to make sure all the contexts in a chain have been adjusted bythe time we propagate.2007-08-14 Pascal Obry <obry@adacore.com>* s-osinte-mingw.ads: Add support for Ada.Execution_Time on Windows.(SYSTEM_INFO): New record.(SetThreadIdealProcessor): New imported routine needed for supportingtask_info pragma on Windows.* s-taprop-mingw.adb (Enter_Task): Check if CPU number given in taskinfo can be applied to the current host.(Create_Task): Set the ideal processor if information is present.* s-tasinf-mingw.adb, s-tasinf-mingw.ads,a-exetim-mingw.adb, a-exetim-mingw.ads: New files.2007-08-14 Olivier Hainque <hainque@adacore.com>* s-taprop-linux.adb (Get_Stack_Attributes): New subprogram. Fetch thestack size and initial stack pointer value for a given task.(Enter_Task): Get the stack attributes of the task we are entering andlet the stack checking engine know about them.* s-stchop.adb, s-stchop.ads (Notify_Stack_Attributes): New subprogram.Let the stack-checking engine know about the initial sp value and stacksize associated with the current task.(Set_Stack_Info): If a stack base has been notified for the currenttask, honor it. Fallback to the previous less accurate method otherwise.* s-stchop-vxworks.adb (Notify_Stack_Attributes): Dummy body.2007-08-14 Ed Schonberg <schonberg@adacore.com>* sem_ch10.adb: Create a limited view of an incomplete type, to maketreatment of limited views uniform for all visible declarations in alimited_withed package.Set flag indicating that a subprogram body for a child unit has agenerated spec.(Analyze_Compilation_Unit): If unit is a subprogram body that has noseparate declaration, remove the unit name from visibility aftercompilation, so that environment is clean for subsequent compilations.(Install_Limited_Context_Clauses): Do not install alimited_private_with_clause unless the current unit is a body or aprivate child unit.(Analyze_Subunit, Install_Parents): Treat generic and non-generic unitsin the same fashion.(Install_Limited_Withed_Unit): Do not install a limited with clause ifit applies to the declaration of the current package body.(Remove_Private_With_Clauses): If there is a regular with_clause forthe unit, delete Private_With_Clause from context, to prevent improperhiding when processing subsequent nested packages and instantiations.2007-08-14 Jose Ruiz <ruiz@adacore.com>* adaint.c (__gnat_is_absolute_path): For VxWorks systems we acceptdir/file, device:/dir/file, and device:drive_letter:/dir/file asrepresenting absolute path names.__gnat_set_file_time_name [VMS]: Fix some 64/32 bit issues.* cstreams.c (__gnat_full_name for VxWorks): Use__gnat_is_absolute_path to detect whether we need to add the currentdirectory to normalize the path.2007-08-14 Javier Miranda <miranda@adacore.com>* a-tags.ads,a-tags.adb (Displace): Associate a message with the raised CEexception.(To_Addr_Ptr, To_Address, To_Dispatch_Table_Ptr,To_Object_Specific_Data_Ptr To_Predef_Prims_Ptr,To_Tag_Ptr, To_Type_Specific_Data_Ptr): Moved here from the packagespec.(Default_Prim_Op_Count): Removed.(IW_Membership, Get_Entry_Index, Get_Offset_Index, Get_Prim_Op_Kind,Register_Tag, Set_Entry_Index, Set_Offset_To_Top, Set_Prim_Op_Kind):Remove pragma Inline_Always.* rtsfind.ads (Default_Prim_Op_Count): Removed(Max_Predef_Prims): New entity(RE_Expanded_Name): Removed(RE_HT_Link): Removed(RE_Iface_Tag): Remmoved(RE_Ifaces_Table): Removed(RE_Interfaces_Array): Removed(RE_Interface_Data_Element): Removed(RE_Nb_Ifaces): Removed(RE_RC_Offset): Removed(RE_Static_Offset_To_Top): Removed* exp_atag.ads, exp_atag.adb (Build_Inherit_Prims): Addition of a newformal.(Build_Inherit_Predefined_Prims): Replace occurrences of Default_Prim_Op_Count by Max_Predef_Prims.2007-08-14 Thomas Quinot <quinot@adacore.com>Vincent Celier <celier@adacore.com>* binde.adb (Elab_All_Links): Remove unnecessary call toGeneric_Separately_Compiled (if a unit satisfies this predicate, therewon't be an associated Afile).(Elab_All_Links): Fail if a referenced unit cannot be found* bindgen.adb:Fix comments in bindgen regarding consistency checks done in Bcheck:the checks are made across units within a partition, not across severalpartitions.Fix generation of C binder file for VxWorks.* lib.ads, lib.adb (Generic_Separately_Compiled): Rename toGeneric_May_Lack_ALI, more descriptive of the current use of thepredicate, and update documentation.* lib-writ.ads, lib-writ.adb (Write_With_Lines): Minor codereorganization and documentation update for the case of predefinedlibrary generics (for which we do not reference an Afile).2007-08-14 Robert Dewar <dewar@adacore.com>* s-intman-irix.adb, s-osinte-irix.adb, s-osinte-irix.ads,s-proinf-irix-athread.ads, s-osinte-hpux-dce.adb, s-osinte-hpux-dce.ads,s-parame-hpux.ads, s-intman-dummy.adb, s-tasinf-solaris.adb,s-tasinf-solaris.ads, s-asthan-vms-alpha.adb, s-inmaop-vms.adb,s-intman-vms.adb, s-intman-vms.ads, s-osprim-mingw.adb,s-parame-vms-restrict.ads, s-parame-ae653.ads, s-intman-vxworks.ads,s-intman-vxworks.ads, s-intman-vxworks.adb, s-parame-vxworks.ads,s-tfsetr-vxworks.adb, s-interr.adb, s-interr.ads, a-tasatt.adb,exp_ch13.adb, s-htable.ads, s-imgboo.ads, s-imglli.ads, s-imgllu.ads,s-imguns.ads, g-eacodu.adb, par-ch12.adb, s-stache.ads, s-stausa.adb,s-poosiz.adb, s-parame.ads, s-mastop.ads, s-osinte-darwin.ads,a-chtgke.adb, s-asthan-vms-alpha.adb, s-parame-vms-alpha.ads,s-parame-vms-ia64.ads, s-parame-vxworks.adb, s-except.ads,g-altcon.adb: Minor reformattingada-tree.h: Delete empty line.ali.ads: Minor reformattingClarification of comments.Minor spelling correction* exp_dbug.adb: Add Warnings Off to suppress new warning* a-witeio.adb (Write): Add Warnings (Off) for unneeded IN OUT modeformal* a-strunb.adb (Set_Unbounded_String): Avoid memory leak by freeing oldvalue* a-textio.adb (Write): Remove an unnecessary IN OUT mode from* a-textio.ads: Reorder the standard input/output/error declarationsfor consistency.* g-dirope.adb, g-dirope.ads: Change Dir to mode IN for Open call* par-ch2.adb: Recognize RM specially in erroutChange 'R'M to RM in all error messages* scng.adb: Recognize RM specially in errout* sem.ads, sem.adb, exp_strm.adb, exp_ch5.ads, expander.adb: RenameN_Return node to be N_Simple_Return, to reflect Ada 2005 terminology.* s-direio.adb: Add missing routine header box.* sem_attr.ads: Add ??? comments* sem_eval.adb: Recognize RM specially in erroutChange 'R'M to RM in all error messages* sem_maps.adb, sem_maps.ads: Remove some unnecessary IN OUT modes* s-tasinf.ads: Fix minor comment typo.* a-cihama.adb: Minor comment addition* a-ztexio.adb (Write): Add Warnings (Off) for unneeded IN OUT modeformal* s-tasinf-tru64.ads: Fix minor comment typo.* itypes.ads: Comment update.* ali-util.adb: Remove Generic_Separately_Compiled guard, not neededanymore.* argv.c: Added protection against null gnat_argv and gnat_envp.* bcheck.adb (Check_Consistency): Use correct markup character ({) inwarning message when Tolerate_Consistency_Errors is True.* cstand.adb (Create_Standard): Do not call Init_Size_Alignment forAny_Id, as this subprogram is only applicable to *type* entities (itsets RM_Size). Instead initialize just Esize and Alignment.2007-08-14 Bob Duff <duff@adacore.com>* a-cihama.ads, a-cidlli.ads, a-chtgop.ads, a-chtgop.adb, a-cdlili.ads,a-cihase.adb, a-cihase.ads, a-cohase.adb, a-cohase.ads, a-ciorma.ads,a-coorma.ads, a-ciormu.ads, a-coormu.ads, a-ciorse.ads, a-cohama.ads,a-cohata.ads, a-convec.adb, a-coinve.ads, a-coinve.adb, a-convec.ads,a-coorse.ads (Next): Applied pragma Inline.Make all Containers packages Remote_Types (unless they are alreadyPure).(Previous): applied pragma Inline(Elements_Type): is now a record instead of an array2007-08-14 Thomas Quinot <quinot@adacore.com>* table.adb, g-table.adb, g-dyntab.adb (Append): Reimplement in termsof Set_Item.(Set_Item): When the new item is an element of the currently allocatedtable passed by reference, save a copy on the stack if we're goingto reallocate. Also, in Table.Set_Item, make sure we test the propervariable to determine whether to call Set_Last.* sinput-d.adb, sinput-l.adb, stringt.adb, switch-m.adb,symbols-vms.adb, symbols-processing-vms-alpha.adb,symbols-processing-vms-ia64.adb, sem_elab.adb, repinfo.adb: Replacesome occurrences of the patternT.Increment_Last;T.Table (T.Last) := Value;with a cleaner call toT.Append (Value);2007-08-14 Ed Schonberg <schonberg@adacore.com>Gary Dismukes <dismukes@adacore.com>Thomas Quinot <quinot@adacore.com>* sem_ch12.ads, sem_ch12.adb (Instantiate_Type): If the formal is aderived type with interface progenitors use the analyzed formal as theparent of the actual, to create renamings for all the inheritedoperations in Derive_Subprograms.(Collect_Previous_Instances): new procedure within ofLoad_Parent_Of_Generic, to instantiate all bodies in the compilationunit being loaded, to ensure that the generation of global symbols isconsistent in different compilation modes.(Is_Tagged_Ancestor): New function testing the ancestor relation thattakes progenitor types into account.(Validate_Derived_Type_Instance): Enforce the rule of 3.9.3(9) bytraversing over the primitives of the formal and actual types to locateany abstract subprograms of the actual type that correspond to anonabstract subprogram of the formal type's ancestor type(s), and issuean error if such is found.(Analyze_Package_Instantiation, Analyze_Subprogram_Instantiation,Instantiate_Package_Body, Instantiate_Subprogram_Body):Remove bogus guard around calls to Inherit_Context.(Reset_Entity): If the entity is the selector of a selected componentthat denotes a named number, propagate constant-folding to the generictemplate only if the named number is global to the generic unit.(Set_Instance_Env): Only reset the compilation switches when compilinga predefined or internal unit.2007-08-14 Ed Schonberg <schonberg@adacore.com>* sem_ch4.adb (Try_Class_Wide_Operation): use base type of firstparameter to determine whether operation applies to the prefix.(Complete_Object_Operation): If actual has an access type andcontrolling formal is not an in_parameter, reject the actual if it isan access_to_constant type.(Try_Primitive_Operation): If the type of the prefix is a formal taggedtype, the candidate operations are found in the scope of declaration ofthe type, because the type has no primitive subprograms.(Analyze_Selected_Component): If prefix is class-wide, and root type isa private extension, only examine visible components before trying toanalyze as a prefixed call.Change Entity_List to Type_To_Use, for better readability.(Has_Fixed_Op): Use base type when checking whether the type of anoperator has a user-defined multiplication/division(Check_Arithmetic_Pair): Use Ada 2005 rules to remove ambiguities whenuser-defined operators are available for fixed-point types.2007-08-14 Thomas Quinot <quinot@adacore.com>Ed Schonberg <schonberg@adacore.com>* sem_cat.ads, sem_cat.adb (Has_Stream_Attribute_Definition): Newformal At_Any_Place indicating, when True, that we want to test foravailability of the stream attribute at any place (as opposed to thecurrent visibility context only).(Missing_Read_Write_Attributes): A stream attribute is missing for thepurpose of enforcing E.2.2(8) only if it is not available at any place.Take into account the Ada2005 pragma Has_Preelaborable_Initializationwhen checking the legality of an extension aggregate in a preelaborablepackage. Treat the literal null as a valid default expression in acomponent declaration for a type with preelaborable initialization.A limited interface is a legal progenitor for the designated type of aremote access to class-wide type.2007-08-14 Thomas Quinot <quinot@adacore.com>Ed Schonberg <schonberg@adacore.com>* sem_ch8.ads, sem_ch8.adb (Find_Type, case of a 'Base attributereference): Use correct entity as denoted entity for the selector ofthe rewritten node.(Find_Direct_Name): Add comment about Generate_Reference incorrectlysetting the Referenced_As_LHS flag for entities that are implicitlydereferenced.(Find_Type): If the type is an internally generated incomplete type,mark the full view as referenced, to prevent spurious warnings.(Find_Selected_Component, Has_Components): Handle properly non-limitedviews that are themselves incomplete types.Handle interfaces visible through limited-with clauses.(Analyze_Subprogram_Renaming): Disambiguate and set the entity of asubprogram generic actual for which we have generated a renaming.Warn when the renaming introduces a homonym ofthe renamed entity, and the renamed entity is directly visible.2007-08-14 Ed Schonberg <schonberg@adacore.com>Hristian Kirtchev <kirtchev@adacore.com>* sem_res.adb (Resolve_Allocator): Propagate any coextensions thatappear in the subtree to the current allocator if it is not a staticcoextension.(Resolve_Allocator): Perform cleanup if resolution has determined thatthe allocator is not a coextension.(Resolve): Skip an interpretation hidden by an abstract operator onlywhen the type of the interpretation matches that of the context.(Resolve): When looping through all possible interpretations of a node,do not consider those that are hidden by abstract operators.(Resolve_Actuals): When verifying that an access to class-wide objectis an actual for a controlling formal, ignore anonymous access tosubprograms whose return type is an access to class_wide type.(Resolve_Slice): If the prefix of the slice is a selected componentwhose type depends on discriminants, build its actual subtype beforeapplying range checks on the bounds of the slice.(Valid_Conversion): In an instance or inlined body, compare root types,to prevent anomalies between private and public views.(Resolve): Improve error message for ambiguous fixed multiplicationexpressions that involve universal_fixed multiplying operations.2007-08-14 Javier Miranda <miranda@adacore.com>Hristian Kirtchev <kirtchev@adacore.com>* exp_ch9.adb (Build_Protected_Entry): Propagate the original sourcelocation to allow the correct generation of errors in case ofrestrictions applied to the expanded code.(Expand_Entry_Barrier): Remove all generated renamings for a barrierfunction if the condition does not reference them.(Expand_Entry_Body_Declarations): Mark the index constant as having avalid value.2007-08-14 Thomas Quinot <quinot@adacore.com>Pablo Oliveira <oliveira@adacore.com>* exp_dist.adb (PolyORB_Support.Build_TypeCode_Function): When creatingtypecode parameters for a union (in a variant record), removeextraneous layer of Any wrapping for member label.(Expand_Receiving_Stubs_Bodies): For an RCI package body that haselabration statements, register the package with the name serverat the beginning, not at the end, of the elaboration statements sothat they can create remote access to subprogram values that designateremote subprograms from the package.2007-08-14 Hristian Kirtchev <kirtchev@adacore.com>* g-catiio.adb (Image): For the case of %s, use Ada.Calendar.Timevalues to compute the number of seconds since the Unix Epoc in order toaccount for Daylight Savings Time. Perform special processing for datesthat are earlier than the Unix Epoc to obtain a negative number.2007-08-14 Emmanuel Briot <briot@adacore.com>* g-comlin.adb (Getopt): Fix handling of "*" switch when not collapsingswitches.2007-08-14 Eric Botcazou <ebotcazou@adacore.com>* gnatlink.adb (Gnatlink): Pass switches to the linker even if thebinder-generated file is not in Ada.Pass -mrtp to the linker if it is GCC and --RTS=rtp has beenrecorded in the ALI file.Pass -fsjlj to the linker if it is GCC and --RTS=sjlj has been recorded.2007-08-14 Vincent Celier <celier@adacore.com>* gnatls.adb: (Corresponding_Sdep_Entry): Always return a value(Output_Source): Do nothing if parameter is No_Sdep_Id* make.adb (Gnatmake): Do not rebuild an archive simply because ashared library it imports has a later time stamp.(Check): Resolve the symbolic links in the path name of the objectdirectory.Check that the ALI file is in the correct object directoryCheck if a file name does not correspond to the mapping of unitsto file names.(Display_Version): New procedure(Initialize): Process switches --version and --helpUse type Path_Name_Type for path name2007-08-14 Paul Hilfinger <hilfinger@adacore.com>* impunit.adb: Re-organize System.Random_Numbers andGNAT.Random_Numbers and add to builds.* Makefile.rtl: Add s-rannum.ad* and g-rannum.ad*, a-assert** s-rannum.ads, s-rannum.adb, g-rannum.ads, g-rannum.adb: New files.* a-assert.ads, a-assert.adb: New files.2007-08-14 Gary Dismukes <dismukes@adacore.com>* layout.adb (Layout_Type): In the case of access-to-subprogram types,if AAMP_On_Target is True, then the size of the type encompasses twoaddresses (a static link and a subprogram address), except in the caseof library-level access types.2007-08-14 Vincent Celier <celier@adacore.com>* output.ads, output.adb (Write_Eol): Remove trailing spaces beforewriting the line.(Write_Eol_Keep_Blanks): New procedure to write a line, includingpossible trailing spaces.(Output_Source_Line): Call Write_Eol_Keep_Blanks to output a source line2007-08-14 Javier Miranda <miranda@adacore.com>* par-ch6.adb (P_Formal_Part): Fix wrong error message associated withnull-excluding access types.2007-08-14 Javier Miranda <miranda@adacore.com>* sem_ch9.adb (Check_Interfaces): New subprogram that factorizes codethat is common to Analyze_Protected_Type and Analyze_Task_Type. In caseof private types add missing check on matching interfaces in thepartial and full declarations.(Analyze_Protected_Type): Code cleanup.(Analyze_Task_Type): Code cleanup.2007-08-14 Javier Miranda <miranda@adacore.com>* sem_disp.adb (Check_Dispatching_Operation): Do not emit warning on agenerated interface thunk.2007-08-14 Ed Schonberg <schonberg@adacore.com>* s-ficobl.ads: Declare AFCB as a tagged incomplete type, to preventobsolescent warning on application of 'Class to an incomplete type.* s-finroo.ads: Declare Root_Controlled as a tagged incomplete type, toprevent obsolescent warning on application of 'Class to an incompletetype.2007-08-14 Pascal Obry <obry@adacore.com>* s-fileio.adb (Is_Open): Add check for usability of the underlyingfile stream.2007-08-14 Cyrille Comar <comar@adacore.com>* s-finimp.adb (Detach_From_Final_List): make this procedure idempotentsince it is potentially used in cases implying double finalization ofthe same object.2007-08-14 Jose Ruiz <ruiz@adacore.com>* s-tasini.adb (Get_Stack_Info): Move this function toSystem.Soft_Links.Tasking because it is common to the full and therestricted run times.(Init_RTS): Do not set the Get_Stack_Info soft link because it is donein SSL.Tasking.Init_Tasking_Soft_Links.* s-solita.adb (Get_Stack_Info): Function moved fromSystem.Tasking.Initialization because it is common to the full and therestricted run times.(Init_Tasking_Soft_Links): Set the tasking soft link for Get_Stack_Info.2007-08-14 Arnaud Charlet <charlet@adacore.com>* s-tpobop.ads, s-tpobop.adb, s-tasren.ads, s-tasren.adb,s-taskin.ads (Requeue_With_Abort): Rename field With_Abort.(PO_Do_Or_Queue, Task_Do_Or_Queue, Requeue_Call): Remove With_Abortparameter.* s-tassta.adb (Task_Wrapper): Increased value of the small overflowguard to 12K.2007-08-14 Gary Dismukes <dismukes@adacore.com>* s-veboop.adb (SU): New named number initialized toSystem.Storage_Unit.(True_Val): The initialization expression is revised to use SU (=Storage_Unit) rather than assuming 8 for the component size of anunpacked Boolean array.2007-08-14 Tristan Gingold <gingold@adacore.com>* tracebak.c: Use tb-ivms.c on OpenVMS Itanium.* tb-ivms.c: New file.* g-trasym-vms-ia64.adb: Fixed for OpenVMS version 8.22007-08-14 Geert Bosch <bosch@adacore.com>* i-forbla.ads, i-forbla.adb, a-ngcoar.adb, a-ngcoar.ads, i-forlap.ads,s-gearop.adb, s-gecobl.adb, s-gecobl.ads, s-gerela.adb, s-gerela.ads:Add required linker pragmas for automatically linking with the gnalasuplinear algebra support library, and the systems math library.Rename cdot to cdotu and zdot to zdotu.Update header comment to describe purpose of package.2007-08-14 Thomas Quinot <quinot@adacore.com>* exp_ch7.adb (Find_Final_List): For an anonymous access type that hasan explicitly specified Associated_Final_Chain, use that list.(Expand_N_Package_Body): Build dispatch tables of library level taggedtypes.(Expand_N_Package_Declaration): Build dispatch tables of library leveltagged types. Minor code cleanup.2007-08-14 Vincent Celier <celier@adacore.com>* gnatchop.adb (Terminate_Program): Remove exception and useTypes.Terminate_Program instead.* osint.ads, osint.adb (Current_Exit_Status): New global variable(Find_Program_Name): Added protection against empty name.(OS_Exit_Through_Exception): New procedure* s-os_lib.ads, s-os_lib.adb (OS_Exit): New procedure body(OS_Exit_Default): New procedure that contains the previousimplementation of procedure OS_Exit.(Final_Value): Remove obsolete Interix stuff.2007-08-14 Thomas Quinot <quinot@adacore.com>* g-socket.ads: Reorganize example code so that it also works onWindows XP.2007-08-14 Tristan Gingold <gingold@adacore.com>* g-trasym.ads: AIX now supports symbolic backtraces.2007-08-14 Ed Schonberg <schonberg@adacore.com>* lib-load.adb (From_Limited_With_Chain): Always scan the stack ofunits being loaded to detect circularities. A circularity may bepresent even if the current chain of pending units to load starts froma limited_with_clause.* lib-load.ads: Change profile of Load_Unit to use a with_clauserather than a boolean flag, in order to detect circularities inwith_clauses.* par-load.adb: Use current with_clause in calls to Load_Unit, ratherthan propagating the From_Limited_With flag, in order to handleproperly circularities involving with_clauses.2007-08-14 Nicolas Setton <setton@adacore.com>* link.c (FreeBSD): Add "const" keyword where needed, to eliminatewarnings.2007-08-14 Arnaud Charlet <charlet@adacore.com>* Makefile.in: GNATRTL_LINEARALGEBRA_OBJS: New variable holding objectsto build for libgnala.libgnat: Add rules to build libgnala.a(LIBGNAT_TARGET_PAIRS for VxWorks): Remove s-osinte-vxworks.adb fromtarget pairs of the VxWorks 6 kernel runtime, use it only for VxWorks 5.Add s-osinte-vxworks-kernel.adb to the target pairs of thekernel run-time lib for VxWorks 6, which would provide a differentimplementation for Task_Cont and Task_Stop than the VxWorks 5 version.x86-solaris section (EH_MECHANISM): Set to -gcc, as this port is nowrunning ZCX by default.Add g-sttsne-locking to LynxOS version.Remove g-sttsne-vxworks.ads; use g-sttsne-locking.ads instead.On x86/darwin, use a-numaux-x86.ad? and system-darwin-x86.ads.* system-darwin-x86.ads: New file.* Make-lang.in: Delete files before copying onto them, so if they areread-only, the copy won't fail.Update dependencies2007-08-14 Pascal Obry <obry@adacore.com>* mdll-fil.adb, * mdll.adb: Implement a more consistent librariesnaming scheme.2007-08-14 Vincent Celier <celier@adacore.com>* mlib-utl.adb (Gcc_Name): Change from constant String to String_Access(Gcc): Initialize Gcc_Name at the first call2007-08-14 Ed Schonberg <schonberg@adacore.com>* sem_ch7.adb (Analyze_Package_Specification): Do not install privatewith_clauses of the enclosing unit when analyzing the packagespecification of a nested instance.2007-08-14 Hristian Kirtchev <kirtchev@adacore.com>* sinfo.ads, sinfo.adb (Is_Coextension, Set_Is_Coextension): Removed.(Is_Dynamic_Coextension, Set_Is_Dynamic_Coextension): New routines.Remove flag Is_Coextension. Add flag Is_Dynamic_Coextension. Update thelayout of N_Allocator.2007-08-14 Thomas Quinot <quinot@adacore.com>* rtsfind.adb (Check_RPC): Add PCS version check.* gnatvsn.ads, gnatvsn.adb: Add PCS version.(Gnat_Free_Software): New function.* sem_dist.ads, sem_dist.adb (Get_PCS_Version): New subprogram. Returnsthe PCS_Version value from s-parint, used to check that it is consistentwith what exp_dist expects.* s-parint.ads (PCS_Version): New entity for checking consistencybetween exp_dist and PCS.* gen-soccon.c: (SO_REUSEPORT): New constant.2007-08-14 Hristian Kirtchev <kirtchev@adacore.com>* a-calfor.adb (Image (Duration; Boolean)): Change type of localvariable Sub_Second to Duration in order to accomodate a larger rangeof arithmetic operations.2007-08-14 Bob Duff <duff@adacore.com>* g-sttsne-locking.ads: Move comments from spec to body.* g-sttsne-locking.adb: Move comments from spec to body.* g-sttsne-vxworks.ads: Removed.* g-sttsne-vxworks.adb: Removed.2007-08-11 Ian Lance Taylor <iant@google.com>* misc.c (gnat_get_alias_set): Change return type toalias_set_type.2007-08-11 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>* decl.c, utils2.c: Fix whitespace in last change.2007-08-11 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>* decl.c (compare_field_bitpos): Constify.* utils2.c (compare_elmt_bitpos): Likewise.2007-07-27 Aurelien Jarno <aurelien@aurel32.net>* s-osinte-kfreebsd-gnu.ads ((sigset_t_ptr): Removed, replaced byanonymous access type.(pthread_sigmask): Now take an access sigset_t.2007-07-05 Joel Sherrill <joel.sherrill@oarcorp.com>* s-osinte-rtems.ads: Correct prototype of pthread_sigmask.2007-06-21 Eric Botcazou <ebotcazou@adacore.com>PR tree-optimization/25737* misc.c (gnat_post_options): Do not force flag_tree_salias to 0.2007-06-15 Andrew Pinski <andrew_pinski@playstation.sony.com>* trans.c (Attribute_to_gnu): When subtracting anoffset from a pointer, use POINTER_PLUS_EXPR withNEGATE_EXPR instead of MINUS_EXPR.(gnat_to_gnu): Likewise.* utils.c (convert): When converting betweenthin pointers, use POINTER_PLUS_EXPR and sizetypefor the offset.* utils2.c (known_alignment): POINTER_PLUS_EXPRhave the same semantics as PLUS_EXPR for alignment.(build_binary_op): Add support for the semantics ofPOINTER_PLUS_EXPR's operands.When adding an offset to a pointer, use POINTER_PLUS_EXPR.2007-06-11 Rafael Ávila de Espíndola <espindola@google.com>* trans.c (Attribute_to_gnu): Use signed_or_unsigned_type_for insteadof get_signed_or_unsigned_type.* misc.c (LANG_HOOKS_SIGNED_TYPE): Remove.2007-06-11 Bob Duff <duff@adacore.com>Thomas Quinot <quinot@adacore.com>* g-stsifd-sockets.adb (Create): Work around strange behavior of'bind' on windows that causes 'connect' to fail intermittently, byretrying the 'bind'.(GNAT.Sockets.Thin.Signalling_Fds): New procedure Close.2007-06-10 Duncan Sands <baldrick@free.fr>* decl.c (gnat_to_gnu_entity): Use pointers to dummy nodes, ratherthan to void, for the fields when making a new fat pointer type.(gnat_substitute_in_type): Now substitute_in_type.* gigi.h (gnat_substitute_in_type): Likewise. Adjust recursive calls.* trans.c (gnat_gimplify_expr): Remove COMPONENT_REF kludge.* utils.c (update_pointer_to): Update fat pointers by updating thedummy node pointers used for the fields.2007-06-06 Thomas Quinot <quinot@adacore.com>Bob Duff <duff@adacore.com>* g-soccon-freebsd.ads, g-soccon-vxworks.ads:,g-soccon-aix.ads, g-soccon-irix.ads, g-soccon-hpux.ads,g-soccon-solaris.ads, g-soccon-vms.ads, g-soccon-tru64.ads: Add newconstant Thread_Blocking_IO, always True by default, set Falseon a per-runtime basis.(Need_Netdb_Buffer): New constant.* g-stheme.adb, g-sttsne.ads, g-sttsne-locking.ads,g-sttsne-locking.adb, g-sttsne-vxworks.ads, g-sttsne-vxworks.adb: Newfiles.* g-socthi-vxworks.ads, g-socthi-vxworks.adb,g-socthi-vms.ads, g-socthi-vms.adb (Safe_Gethostbyname,Safe_Gethostbyaddr, Safe_Getservbyname, Safe_Getservbyport): Use newchild package Task_Safe_NetDB(Host_Error_Messages): Add stub body.(GNAT.Sockets.Thin.Signalling_Fds): New procedure Close.* g-soccon-mingw.ads: Add Windows-specific constants.(Need_Netdb_Buffer): New constant.(GNAT.Sockets.Thin.C_Inet_Addr, Windows version): Remove useless Adawrapper and import inet_addr(3) from the standard sockets librarydirectly instead.(In_Addr): Add alignment clause.(GNAT.Sockets.Thin.Signalling_Fds): New procedure Close.2007-06-06 Robert Dewar <dewar@adacore.com>* a-taster.adb, s-osinte-hpux.ads, s-osinte-solaris-posix.ads,s-osinte-irix.ads, s-interr-sigaction.adb, s-mastop-irix.adb,s-osinte-hpux-dce.ads, s-osinte-interix.ads, s-osinte-solaris.ads,s-taspri-solaris.ads, s-inmaop-vms.adb, s-interr-vms.adb,s-mastop-vms.adb, s-osinte-vms.ads, s-tpopde-vms.adb,s-osinte-mingw.ads, s-interr-vxworks.adb, i-cstrea-vms.adb,a-diocst.adb, a-direio.adb, a-interr.adb, a-sequio.adb, a-siocst.adb,a-ssicst.adb, a-storio.adb, a-ststio.adb, a-stwima.adb, a-tasatt.adb,a-taside.adb, a-tiocst.adb, a-witeio.adb, a-wtcstr.adb, g-crc32.adb,g-dirope.adb, g-dyntab.adb, g-memdum.adb, g-regexp.adb, g-spipat.adb,g-spitbo.adb, g-string.adb, g-string.ads, g-table.adb, g-thread.adb,i-cobol.adb, i-cpoint.adb, i-cstrea.adb, i-cstrin.adb, i-pacdec.adb,s-addima.adb, s-arit64.adb, s-auxdec.adb, s-auxdec.ads,s-auxdec-vms_64.ads, s-carsi8.adb, s-carun8.adb, s-casi16.adb,s-casi32.adb, s-casi64.adb, s-caun16.adb, s-caun32.adb, s-caun64.adb,s-direio.adb, s-fileio.adb, s-finimp.ads, s-geveop.adb, s-imgenu.adb,s-pack03.adb, s-pack05.adb, s-pack06.adb, s-pack07.adb, s-pack09.adb,s-pack10.adb, s-pack11.adb, s-pack12.adb, s-pack13.adb, s-pack14.adb,s-pack15.adb, s-pack17.adb, s-pack18.adb, s-pack19.adb, s-pack20.adb,s-pack21.adb, s-pack22.adb, s-pack23.adb, s-pack24.adb, s-pack25.adb,s-pack26.adb, s-pack27.adb, s-pack28.adb, s-pack29.adb, s-pack30.adb,s-pack31.adb, s-pack33.adb, s-pack34.adb, s-pack35.adb, s-pack36.adb,s-pack37.adb, s-pack38.adb, s-pack39.adb, s-pack40.adb, s-pack41.adb,s-pack42.adb, s-pack43.adb, s-pack44.adb, s-pack45.adb, s-pack46.adb,s-pack47.adb, s-pack48.adb, s-pack49.adb, s-pack50.adb, s-pack51.adb,s-pack52.adb, s-pack53.adb, s-pack54.adb, s-pack55.adb, s-pack56.adb,s-pack57.adb, s-pack58.adb, s-pack59.adb, s-pack60.adb, s-pack61.adb,s-pack62.adb, s-pack63.adb, s-pooloc.adb, s-poosiz.adb, s-scaval.adb,s-sequio.adb, s-shasto.adb, s-stalib.ads, s-stratt.adb, s-strcom.adb,s-taasde.adb, s-tasdeb.adb, s-tasuti.ads, s-tataat.ads, s-tpoben.ads,s-valenu.adb, s-widenu.adb, s-wwdenu.adb, s-addope.adb, a-stzmap.adb,a-ztcstr.adb, a-ztexio.adb, s-osinte-linux-hppa.ads: ReplaceUnchecked_* by Ada.Unchecked_*2007-06-06 Robert Dewar <dewar@adacore.com>* g-string.adb, s-proinf-irix-athread.adb, s-gloloc-mingw.adb,s-tfsetr-default.adb, gnatfind.adb, gnatxref.adb, gprep.adb,g-regexp.adb, g-regexp.ads, g-regpat.ads, g-tasloc.adb, g-tasloc.ads,output.adb, switch-m.ads, tree_in.ads, tree_io.ads, indepsw.ads,g-utf_32.adb, g-utf_32.ads, a-wichun.adb, a-wichun.ads, a-zchuni.adb,a-zchuni.ads: Replace GNAT.xxx by System.xxx when appropriate.* s-utf_32.adb, s-utf_32.ads, s-os_lib.adb, s-os_lib.ads, s-regexp.adb,s-regexp.ads, s-regpat.adb, s-regpat.ads, s-string.adb, s-string.ads,s-tasloc.adb, s-tasloc.ads: New files.2007-06-06 Bob Duff <duff@adacore.com>* g-expect-vms.adb:(Send_Signal, Close): Raise Invalid_Process if the process id is invalid.* g-expect.ads, g-expect.adb (Send): Avoid useless copy of the string.(Send_Signal, Close): Raise Invalid_Process if the process id isinvalid.(Pattern_Matcher_Access): Is now a general access type to be able touse aliased string.2007-06-06 Thomas Quinot <quinot@adacore.com>Arnaud Charlet <charlet@adacore.com>* a-intnam-aix.ads: Adjust comment to account for SIGADAABORT change(SIGEMT is now used instead of SIGTERM on AIX).* s-osinte-aix.ads (Linker_Options): Use -pthread instead of -lpthreads.(Time_Slice_Supported): Set to True.Use SIGEMT instead of SIGTERM as SIGADAABORT.2007-06-06 Hristian Kirtchev <kirtchev@adacore.com>* a-calend.ads, a-calend.adb, a-calend-vms.ads, a-calend-vms.adb ("-"(Time, Time)): Use To_Relative_Time rather than manual calculation toexpress the bounds of Duration as Time. Raise Time_Error when theresult is greater or equal to the higher bound of Duration (on themargin case).("+" (Time, Duration)): Reorder code. Remove the declaration of constantAda_High_And_Leaps.("-" (Time, Duration)): Reorder code. Remove the declaration of constantAda_High_And_Leaps.("-" (Time, Time)): Reorder code.(All_Leap_Seconds): Removed.(Arithmetic_Operations.Add): Remove sign related kludge.(Arithmetic_Operations.Difference): Control the leaps seconds processingwith flag Leap_Support.(Arithmetic_Operations.Subtract): Remove sign related kludge.(Check_Within_Time_Bounds): New procedure.(Clock): Control the leap seconds processing with flag Leap_Support.(Cumulative_Leap_Seconds): Assert that the target supports leap seconds.(Formatting_Operations.Split): Control the leap seconds processing withflag Leap_Support.(Formatting_Operations.Time_Of): Control the leaps seconds processingwith flag Leap_Support. Adjust the year, month and day (if applicable)when the value of day seconds designates a new day.(Split): Use parameter associations for better readability. Integrateflag Is_Ada_05.(Time_Of): Use parameter associations for better readability. Integrateflag Is_Ada_05.* a-calfor.adb (Split): Use parameter associations for betterreadability. Integrate flag Is_Ada_05.(Time_Of): Remove flag Leap_Checks. Use parameter associations forbetter readability. Integrate flag Is_Ada_05.2007-06-06 Arnaud Charlet <charlet@adacore.com>* s-taprop-vms.adb, s-taprop-hpux-dce.adb, s-taprop-vxworks.adb,s-osprim-posix.adb, s-taprop-posix.adb, s-osprim-vxworks.adb,s-taprop-solaris.adb, s-osprim-solaris.adb, s-taprop-dummy.adb,s-osprim-unix.adb, s-osinte-freebsd.adb, s-osinte-freebsd.ads,s-osinte-lynxos.adb, s-osinte-lynxos.ads, s-taprop-tru64.adb,s-taprop-lynxos.adb, s-taprop-irix.adb, s-osinte-tru64.adb,s-osinte-tru64.ads, s-taprop-linux.adb, s-parame.ads,s-parame-vms-alpha.ads, s-parame-vms-ia64.ads, s-parame-hpux.ads,s-parame-vms-restrict.ads, s-parame-ae653.ads, s-parame-vxworks.ads,s-taprop-mingw.adb, s-osinte-lynxos-3.ads, s-osinte-lynxos-3.adb,s-osprim-mingw.adb (Timed_Delay, Timed_Sleep): Register the basetime when entering this routine to detect a backward clock setting(manual setting or DST adjustment), to avoid waiting for a longer delaythan needed.(Time_Duration, To_Timeval, struct_timeval): Removed when not relevant.Remove handling of deferred priority change, and replace by setting thetask priority directly, as required by AI-188.Update comments.(Max_Task_Image_Length): New constant.Replace Warnings (Off) by Unreferenced pragma, cleaner.(Dynamic_Priority_Support): Removed, no longer needed.(Poll_Base_Priority_Change): Ditto.(Set_Ceiling): Add this procedure to change the ceiling priorityassociated to a lock. This is a dummy implementation because dynamicpriority ceilings are not supported by the underlying system.* a-dynpri.adb (Set_Priority): Take into account case where Target isaccepting a RV with its priority boosted.Remove handling of deferred priority change, and replace by setting thetask priority directly, as required by AI-188.* s-taenca.adb (Try_To_Cancel_Entry_Call): Remove special case forSucceeded = True.Remove handling of deferred priority change, and replace by setting thetask priority directly, as required by AI-188.(Wait_For_Completion, Wait_For_Call, Timed_Selective_Wait): Change stateof Self_Id earlier.* s-tasini.ads, s-tasini.adb (Wakeup_Entry_Caller): Relax assertion.(Poll_Base_Priority_Change): Removed.Code clean up: use SSL.Current_Target_Exception.* s-tasren.adb (Task_Count): Call Yield to let a chance to other tasksto run as this is a potentially dispatching point.(Call_Synchronous): Use Local_Defer_Abort.(Callable): Relax assertion.(Selective_Wait): Relax assertion in case abort is not allowed.Remove handling of deferred priority change, and replace by setting thetask priority directly, as required by AI-188.* s-tasuti.adb (Make_Passive): Adjust assertions.Remove handling of deferred priority change, and replace by setting thetask priority directly, as required by AI-188.2007-06-06 Arnaud Charlet <charlet@adacore.com>* system-vxworks-sparcv9.ads, system-solaris-x86.ads,system-irix-o32.ads, system-freebsd-x86.ads, system-lynxos-ppc.ads,system-lynxos-x86.ads, system-vxworks-m68k.ads, system-linux-x86.ads,system-vxworks-mips.ads, system-vxworks-alpha.ads,system-vxworks-x86.ads, system-linux-ppc.ads, system-mingw.ads,system-vms-zcx.ads, system-darwin-ppc.ads, system-vxworks-ppc.ads,system-interix.ads, system-linux-hppa.ads, system-tru64.ads,system-hpux.ads, system-irix-n32.ads, system-solaris-sparc.ads,system-solaris-sparcv9.ads, system-vms.ads, system.ads,system-vms_64.ads, system-hpux-ia64.ads, system-linux-x86_64.ads,system-linux-ia64.ads: Document mapping between Ada and OS priorities.This patch changes the largest non-binary modulus from 2**31-1 to2**32-1.(Compiler_System_Version): Removed, no longer used.Clean up system files by removing flags only used on a single target.Also remove obsolete flags, only used during bootstrap from system.ads(Address): Add a pragma Preelaborable_Initialization.* system-aix.ads: Ditto.(GCC_ZCX_Support): Set to true.Update priority range on AIX and map Ada priorities to targetpriorities appropriately for different scheduling policies.* ttypes.ads: set largest non-binary modulus from 2**31-1 to 2**32-12007-06-06 Vincent Celier <celier@adacore.com>* mlib-tgt-specific.adb, mlib-tgt-specific.ads,mlib-tgt-vms.adb, mlib-tgt-vms.ads: New files.* mlib-tgt.adb, mlib-tgt.ads, mlib-tgt-darwin.adb,mlib-tgt-vxworks.adb, mlib-tgt-mingw.adb, mlib-tgt-lynxos.adb,mlib-tgt-linux.adb, mlib-tgt-solaris.adb, mlib-tgt-vms-alpha.adb,mlib-tgt-vms-ia64.adb, mlib-tgt-aix.adb, mlib-tgt-irix.adb,mlib-tgt-hpux.adb, mlib-tgt-tru64.adb: Make a common body for packageMLib.Tgt, containing the default versions of the exported subprograms.For each platform, create a specific version of the body of new childpackage MLib.Tgt.Specific that contains only the body of subprogramsthat are different from the default.(Archive_Builder_Append_Options): New function.2007-06-06 Matthew Gingell <gingell@adacore.com>* s-osinte-aix.adb: Map Ada priorities to target prioritiesappropriately for different scheduling policies.2007-06-06 Arnaud Charlet <charlet@adacore.com>* s-osinte-linux.ads (sigset_t): Bump alignment to match more closelyits C counterpart.Remove references to Unchecked_Conversion, and use Ada.xxx instead.Replace Unchecked_Conversion by Ada.Unchecked_Conversion.2007-06-06 Vasiliy Fofanov <fofanov@adacore.com>* s-osprim-vms.ads, s-osprim-vms.adb (Initialize): New procedure.Noop on VMS, added for interface commonality.2007-06-06 Eric Botcazou <ebotcazou@adacore.com>Richard Kenner <kenner@vlsi1.ultra.nyu.edu>Olivier Hainque <hainque@adacore.com>* decl.c (gnat_to_gnu_entity) <object>: Manually mark the top of therenamed expression of a full renaming at toplevel.(gnat_to_gnu_entity, case object): If not defining, do not look insidethe values the constant is initialized to if it is an N_Allocator.(gnat_to_gnu_entity) <E_Array_Subtype>: Manually mark the top of theTYPE_SIZE_UNIT of inner types after the stride is elaborated.(make_aligning_type): Accept an extra ROOM argument for storage to bemade available before the aligned field, and an extra BASE_ALIGNargument for callers to pass the alignment guaranteed to be honored forthe whole aligning object. Avoid call to finish_record_type, which onlyinterferes with the sizes we want to set.(gnat_to_gnu_entity) <E_Variable>: Pass the required extra arguments tomake_aligning_type for super-aligned objects on stack.(components_to_record): Pass the adjusted size of the type when creatingfields in the qualified union for the variant part.(gnat_substitute_in_type): Copy TYPE_USER_ALIGN.(gnat_to_gnu_entity, case E_Signed_Integer_Subtype): Likewise forpacked array type.(maybe_pad_type): Set TYPE_USER_ALIGN.(make_aligning_type): Likewise.ALIGN argument is unsigned int.(gnat_to_gnu_entity, case E_Function): Back annotate return mechanism.(gnat_to_gnu_param): Likewise, for parameters.(gnat_to_gnu_entity) <object>: Always instantiate the renaming objectif it is constant and stems from a function call.(gnat_to_gnu_entity) <E_Record_Type>: Set packed to -2 if the alignmentof the record is specified. Adjust accordingly.(adjust_packed): New static function.(gnat_to_gnu_field): Use it to adjust the packedness setting.(components_to_record): Likewise.(gnat_to_gnu_entity) <object>: Do not test the renamed expression forside-effects if the object is deemed constant.(gnat_to_gnu_entity) <E_Array_Type>: Create a name for the fat pointertype instead of merely finalizing it. Tidy.<E_Access_Subprogram_Type>: Retrieve the type from the TYPE_DECL.<E_Access_Type>: Likewise.(defer_debug_incomplete_list): Rename to defer_finalize_list.(defer_debug_level): Delete.(gnat_to_gnu_entity) <debug_deferred>: Likewise<E_Array_Type>: Call rest_of_record_type_compilation on the fat pointertype.<E_Record_Type>: Do not explicitly defer finalizing the type.Adjust for write_record_type_debug_info renaming.<E_Subprogram_Type>: Likewise.Finalize deferred types right after deferred incomplete types areexpanded.(rest_of_type_decl_compilation): New global function.(components_to_record): Rename defer_debug parameter to do_not_finalize.(components_to_record): Propagate the packedness to the fields of thequalified union type if there is a variant part.(gnat_to_gnu_entity) <E_Array_Type>: Use new functioninstead of inline code to adjust the XUT field offsets.(gnat_to_gnu_entity): Adjust for new prototype of finish_record_type.<E_Record_Subtype>: Do not let finish_record_type compute the sizesand write the debug info if the type derives from a discriminated one.(gnat_to_gnu_entity) <E_Array_Type>: Adjust call to create_index_type.<E_Array_Subtype>: Likewise.<E_String_Literal_Subtype>: Likewise.(gnat_to_gnu_entity): Set TYPE_USER_ALIGN on types only if they havean alignment clause.(maybe_pad_type): Update ORIG_SIZE to the minimum required to meet ALIGNbefore giving warning.(prepend_one_attribute_to): New function, helper to prepend an attributeto an attribute list.(gnat_to_gnu_entity) <E_Procedure>: Use it.(prepend_attributes): Likewise.(gnat_to_gnu_entity) <E_Variable>: Use constants of the proper type.<E_Array_Type>: Declare the padding type for the element type, if any.<E_Array_Subtype>: Likewise.(defer_limited_with): New variable.(Gigi_Equivalent_Type): New function.(gnat_to_gnu_entity): Use it at start and use result throughout.(gnat_to_gnu_entity, case E_Access_Type): Rework to useGigi_Equivalent_Type, support Limited_With, allow two levels ofindirection, precompute if unconstrained array to simplify logic, anduse defer_limited_with to defer elaboration of some types from limitedwith.(finalize_from_with_types): New function.2007-06-06 Gary Dismukes <dismukes@adacore.com>Eric Botcazou <ebotcazou@adacore.com>Tristan Gingold <gingold@adacore.com>Olivier Hainque <hainque@adacore.com>* trans.c (Identifier_to_gnu): Change test for deferred constant byadding guard that the entity is an E_Constant before testing presenceof Full_view (and remove unnecessary test that entity is not a type).For a CONST_DECL used by reference, manually retrievethe DECL_INITIAL. Do not invoke fold in the other DECL_P cases either.(struct language_function): Move from utils.c to here.(struct parm_attr): New structure.(parm_attr, parm_attr vector, parm_attr GC vector): New types.(f_parm_attr_cache): New macro.(Attribute_to_gnu) <Attr_Length>: When not optimizing, cache theexpressions for the 'First, 'Last and 'Length attributes of theunconstrained array IN parameters.(Subprogram_Body_to_gnu): Use gnu_subprog_decl throughout.Allocate the information structure for the function earlier, as wellas the language-specific part.If the parameter attributes cache has been populated, evaluate thecached expressions on entry.(takes_address): Add OPERAND_TYPE parameter. Handle N_Function_Call,N_Procedure_Call_Statement and N_Indexed_Component.(Pragma_to_gnu): Translate inspection_point to an asm statementcontainaing a comment and a reference to the object (either its addressfor BLKmode or its value).(Identifier_to_gnu): Use TREE_CONSTANT instead of CONST_DECL to decideto go to DECL_INITIAL. Together with the size constraint relaxationin create_var_decl, enlarges the set of situations in which anidentifier may be used as an initializer without implying elaborationcode.(Subprogram_Body_to_gnu): Do not fiddle with the debug interface but setDECL_IGNORED_P on the function if Needs_Debug_Info is not set on thenode.(maybe_stabilize_reference): Remove lvalues_only parameter.(gnat_stabilize_reference): Adjust for above change.(gnat_to_gnu): Do not set location information on the resultif it is a reference.(add_cleanup): Add gnat_node parameter and set the location of thecleanup to it.(Handled_Sequence_Of_Statements_to_gnu): Adjust calls to add_cleanup.(Exception_Handler_to_gnu_zcx): Likewise.(gigi): Remove the cgraph node if the elaboration procedure is empty.(Subprogram_Body_to_gnu): If a stub is attached to the subprogram, emitthe former right after the latter.(start_stmt_group): Make global.(end_stmt_group): Likewise.(gnu_constraint_error_label_stack, gnu_storage_error_label_stack): Newvars.(gnu_program_error_label_stack): Likewise.(gigi): Initialize them.(call_to_gnu, gnat_to_gnu, emit_check): Add new arg to build_call_raise.(gnat_to_gnu, N_{Push,Pop}_{Constraint,Storage,Program}_Error_Label):New cases.(push_exception_label_stack): New function.(takes_address): New function.* utils.c (struct language_function): Move to trans.c from here.(unchecked_convert): Do not wrap up integer constants inVIEW_CONVERT_EXPRs.(create_var_decl_1): Decouple TREE_CONSTANT from CONST_DECL. Preventthe latter for aggregate types, unexpected by later passes, and relax anarbitrary size constraint on the former.(create_field_decl): Use tree_int_cst_equal instead of operand_equal_pto compare the sizes.(convert_vms_descriptor): When converting to a fat pointer type, beprepared for a S descriptor at runtime in spite of a SB specification.(shift_unc_components_for_thin_pointers): New function.(write_record_type_debug_info): For variable-sized fields, cap thealignment of the pointer to the computed alignment.(finish_record_type): Change HAS_REP parameter into REP_LEVEL.If REP_LEVEL is 2, do not compute the sizes.(build_vms_descriptor): Adjust for new prototype of finish_record_type.(build_unc_object_type): Likewise.(declare_debug_type): New function.* ada-tree.def: USE_STMT: removed (not emitted anymore).* misc.c (gnat_expand_expr): Call to gnat_expand_stmt removed becauseno statement is expandable anymore.(gnat_init_gcc_eh): Do not initialize the DWARF-2 CFI machinery twice.(gnat_handle_option): Only allow flag_eliminate_debug_types to be setwhen the user requested it explicitely.(gnat_post_options): By default, set flag_eliminate_unused_debug_typesto 0 for Ada.(get_alias_set): Return alias set 0 for a type ifTYPE_UNIVERSAL_ALIASING_P is set on its main variant.* ada-tree.h: (TYPE_UNIVERSAL_ALIASING_P): New macro.(DECL_FUNCTION_STUB): New accessor macro.(SET_DECL_FUNCTION_STUB): New setter macro.* lang.opt (feliminate-unused-debug-types): Intercept this flag for Ada.* fe.h (Get_Local_Raise_Call_Entity, Get_RT_Exception_Entity): Newdeclarations.2007-06-06 Jose Ruiz <ruiz@adacore.com>* s-intman-vxworks.ads, s-intman-vxworks.adb (Abort_Task_Signal):Rename to Abort_Task_Interrupt to be able to keep the same interfaceas the rest of the targets.* s-osinte-vxworks.ads s-osinte-vxworks.adb(To_VxWorks_Priority): Remove explicit "in" mode indicator* s-osinte-vxworks6.ads, s-vxwork-arm.ads, system-vxworks-arm.ads:New files.2007-06-06 Robert Dewar <dewar@adacore.com>* a-chahan.ads: Remove obsolescent pragmas* a-chlat1.ads: Minor reformatting2007-06-06 Robert Dewar <dewar@adacore.com>* comperr.adb (Compiler_Abort): New Finalize/Output_Messages interfacefor Errout* errout.adb: New Finalize/Compilation_Errors/Output_Messagesimplementation* errout.ads (Finalize): Changed interface(Output_Messages): New procedure(Compilation_Errors): New Interface* prepcomp.ads, prepcomp.adb (Parse_Preprocessing_Data_File): NewFinalize/Output_Messages interface for Errout(Prepare_To_Preprocess): New Finalize/Output_Messages interface forErrout.2007-06-06 Thomas Quinot <quinot@adacore.com>Olivier Hainque <hainque@adacore.com>Robert Dewar <dewar@adacore.com>* a-except.ads, a-except.adb: (Rmsg_28): Fix description for E.4(18)check.(Raise_Current_Excep): Call Debug_Raise_Exception just beforepropagation starts, to let debuggers know about the event in a reliablefashion.(Local_Raise): Moved to System.ExceptionsMore convenient to have this as a separate unit* s-except.adb, s-except.ads: New files.* a-exextr.adb (Unhandled_Exception): Delete - replaced byDebug_Unhandled_Exception in System.Exceptions where it belongstogether with a couple of other debug helpers.(Notify_Unhandled_Exception): Use Debug_Unhandled_Exception instead ofthe former Unhandled_Exception.* exp_ch11.ads, exp_ch11.adb: (Possible_Local_Raise): New procedure(Warn_No_Exception_Propagation): New procedure(Warn_If_No_Propagation): Rewritten for new warning generation(Expand_Exception_Handlers): New warning generation(Expand_N_Raise_xxx_Error): Rewritten for new warnings(Add_Exception_Label): Use Special_Exception_Package_Used for testinstead of Most_Recent_Exception_Used (accomodates Exception_Traces)(Expand_Local_Exception_Handlers): Unconditionally add extra block wrapeven if restriction is set (makes life easier in Check_Returns)(Expand_Local_Exception_Handlers): Follow renamed entity chain whenchecking exception identities.(Expand_Local_Exception_Handlers): Do not optimize when all others case(Expand_Local_Exception_Handlers): Set Exception_Junk flag on generatedblock for handler (used by Check_Returns)(Expand_Local_Exception_Handlers): Local_Raise now takes an address(Expand_N_Handled_Sequence_Of_Statements): Properly handle -gnatd.x toremove all exception handlers when optimizing local raise statements.(Find_Local_Handler): Use Get_Renamed_Entity(Expand_N_Handled_Sequence_Of_Statements): If the handled sequence ismarked analyzed after expanding exception handlers, do not generateredundant cleanup actions, because they have been constructed already.2007-06-06 Thomas Quinot <quinot@adacore.com>* a-finali.ads (Ada.Finalization): Add missing pragma Remote_Types. Thepresence of this categorization pragma is mandated by the language.(Limited_Controlled): Add missing pragma Preelaborable_Initializationfor this type.2007-06-06 Vincent Celier <celier@adacore.com>Robert Dewar <dewar@adacore.com>* bcheck.adb, binde.adb, binderr.adb, binderr.ads, butil.adb,butil.ads, erroutc.adb, erroutc.ads, errutil.adb, errutil.ads,err_vars.ads, exp_tss.adb, exp_tss.ads, fmap.adb, fmap.ads,fname.adb, fname.ads, fname-sf.adb, fname-uf.adb, fname-uf.ads,lib-sort.adb, lib-util.adb, lib-util.ads, lib-xref.adb, makeutl.ads,makeutl.adb, nmake.adt, osint.adb, osint.ads, osint-b.adb,par-load.adb, prj-attr.adb, prj-dect.adb, prj-err.adb, prj-makr.adb,prj-part.adb, prj-pp.adb, prj-proc.adb, prj-tree.adb, prj-tree.ads,prj-util.adb, prj-util.ads, scans.adb, scans.ads, sem_ch2.adb,sinput-c.adb, styleg-c.adb, tempdir.adb, tempdir.ads, uname.adb,uname.ads, atree.h, atree.ads, atree.adb, ali-util.ads, ali-util.adb,ali.ads, ali.adb:Move Name_Id, File_Name_Type and Unit_Name_Type from package Types topackage Namet. Make File_Name_Type and Unit_Name_Type types derived fromMame_Id. Add new type Path_Name_Type, also derived from Name_Id.Use variables of types File_Name_Type and Unit_Name_Type in errormessages.(Get_Name): Add parameter Ignore_Special, and set it reading file name(New_Copy): When debugging the compiler, call New_Node_Debugging_Outputhere.Define flags Flag217-Flag230 with associated subprograms(Flag_Word5): New record type.(Flag_Word5_Ptr): New access type.(To_Flag_Word5): New unchecked conversion.(To_Flag_Word5_Ptr): Likewise.(Flag216): New function.(Set_Flag216): New procedure.2007-06-06 Arnaud Charlet <charlet@adacore.com>* a-stzunb.adb, a-stwiun.adb, a-strunb.adb: (Insert): Use 'Lengthinstead of 'Size.* a-stwifi.ads, a-stzfix.ads: Minor reformatting2007-06-06 Javier Miranda <miranda@adacore.com>* a-tags.ads, a-tags.adb (Tag_Size): This constant is now internal tothe package.(Object_Specific_Data_Array): This is now internal to the package.(Object_Specific_Data): This is now internal to the package.(Select_Specific_Data_Element): This is now internal to the package.(Select_Specific_Data_Array): This is now internal to the package.(Select_Specific_Data): This is now internal to the package.(Offset_To_Top_Function_Ptr): This is now public.(To_Offset_To_Top_Function_Ptr): Removed.(Storage_Offset_Ptr,To_Storage_Offset_Ptr): These declarations are nowlocal to subprogram Offset_To_Top.(Predefined_DT): Removed.(Typeinfo_Ptr): Removed.(OSD): This function is now internal to this package.(SSD): This function is now internal to this package.(DT): New function that displaces the pointer to the table of primitivesto get access to the enclosing wrapper record.(IW_Membership): Code cleanup.(Offset_To_Top): Code cleanup.(Predefined_DT): Removed.(Register_Interface_Tag): Removed.(Set_Interface_Table): Removed.(Set_Offset_Index): Removed.(Set_Offset_To_Top): Code cleanup.(Set_OSD): Removed.(Set_Signature): Removed.(Set_SSD): Removed.(Set_Tagged_Kind): Removed.(Typeinfo_Ptr): Removed.(TSD): Removed.(Displace): Add missing check on null actual.* exp_disp.ads, exp_disp.adb(Select_Expansion_Utilities): Removed.(Build_Common_Dispatching_Select_Statements): Moved to exp_atags.(Expand_Dispatching_Call): Update calls to Get_Prim_Op_Address becausethe interface requires a new parameter.(Make_Disp_Asynchronous_Select_Spec, Make_Disp_Conditional_Select_Spec,Make_Disp_Get_Prim_Op_Kind_Spec, Make_Disp_Timed_Select_Spec): Replacecalls to subprograms Build_T, Build_S, etc. by the corresponding code.Done to remove package Select_Expansion_Utilities.(Make_DT): New implementation for statically allocated dispatch tables.(Make_Secondary_DT): Moved to the scope of Make_DT.(Register_Primitive): Code cleanup plus incoporate the use of the newfunction DT_Address_Attribute.(Expand_Interface_Thunk): The profile of this subprogram has beenchanged to return the Thunk_Id and the corresponding code.(Fill_DT_Entry): Removed. Its functionality is now provided bysubprogram Register_Primitive.(Fill_Secondary_DT_Entry): Removed. Its functionality is now provided bysubprogram Register_Primitive.(Register_Primitive): New subprogram that incorporates the previousfunctionalities of Fill_DT_Entry and Fill_Secondary_DT_Entry.(Build_Common_Dispatching_Select_Statements): Remove formal Typ. Thiswas only required to call Make_DT_Access_Action, which is now removed.(Ada_Actions): Removed(Action_Is_Proc): Removed(Action_Nb_Arg): RemovedReplace all the calls to Make_DT_Access_Action by direct calls toMake_Procedure_Call_Statement or Make_Function_Call.(Set_DTC_Entity_Value): New subprogram.(Set_All_DT_Position): Add call to new subprogram Set_DTC_Entity_Value.(Expand_Interface_Thunk): Add missing support for primitives that arefunctions with a controlling result (case in which there is no needto generate the thunk).* exp_atag.ads, exp_atag.adb(Build_DT): New subprogram that displaces the pointer to reference thebase of the wrapper record.(Build_Typeinfo_Offset): Removed.(RTE_Tag_Node): Removed.(Build_Common_Dispatching_Select_Statements): Moved here from exp_disp(Build_Get_RC_Offset): Removed.(Build_Inherit_Predefined_Prims): Removed.(Build_Inherit_TSD: Removed.(Build_New_TSD): Removed.(Build_Set_External_Tag): Removed.(Build_Set_Predefined_Prim_Op_Address): Add documentation.(Build_Set_Prim_Op_Address): Add documentation.(Build_Set_TSD): Removed.* rtsfind.ads, rtsfind.adb(Load_Fail): If load fails and we are not in configurable run-timemode, then raise Unrecoverable_Error.(Text_IO_Kludge): Generate an error message if a run-time library isnot available in a given run-time (ie. zfp run-time).(RTE_Record_Component): Add code to check that the component we searchfor is not found in two records in the given run-time package.(RE_DT_Offset_To_Top_Size, RE_DT_Predef_Prims_Size): Removed(RE_DT_Predef_Prims_Offset): New entity(RE_Static_Offset_To_Top): New entity(RE_HT_Link): New entity.(System_Address_Image): Addition of this run-time package.(RE_Address_Image): New entity.(RE_Abstract_Interface): Removed.(RE_Default_Prim_Op_Count): Removed.(RE_DT_Entry_Size): Removed.(RE_DT_Min_Prologue_Size): Removed.(RE_DT_Prologue_Size): Removed.(RE_Ifaces_Table_Ptr): Removed.(RE_Interface_Data_Ptr): Removed.(RE_Type_Specific_Data): Removed.(RE_Primary_DT): Removed.(RE_Register_Interface_Tag): Removed.(RE_Set_Offset_Index): Removed.(RE_Set_OSD): Removed.(RE_Set_SSD): Removed.(RE_Set_Signature): Removed.(RE_Set_Tagged_Kind): Removed.(RE_Address_Array): New entity.(RE_DT): New entity.(RE_Iface_Tag): New entity.(RE_Interfaces_Table): New entity.(RE_No_Dispatch_Table): New entity.(RE_NDT_Prims_Ptr): New entity.(RE_NDT_TSD): New entity.(RE_Num_Prims): New entity.(RE_Offset_To_Top_Function_Ptr): New entity.(RE_OSD_Table): New entity.(RE_OSD_Num_Prims): New entity.(RE_Predef_Prims): New entity(RE_Predef_Prims_Table_Ptr): New entity.(RE_Primary_DT): New entity.(RE_Signature): New entity.(RE_SSD): New entity.(RE_TSD): New entity.(RE_Type_Specific_Data): New entity.(RE_Tag_Kind): New entity.2007-06-06 Thomas Quinot <quinot@adacore.com>* a-textio.ads, a-textio.adb (Write): Add explicit size clause for theC imported variable.(Skip_Line): Do not reset Before_LM_PM immediately when Before_LM is seton entry.2007-06-06 Robert Dewar <dewar@adacore.com>* a-tienio.adb (Get): Adjust buffer size to accomodate one extracharacter2007-06-06 Vincent Celier <celier@adacore.com>* a-tifiio.adb (Put, internal): For negative numbers, check that thereis room for at least one digit and the minus sign.(Put.Put_Character): Never put a character outside of the range ofstring To.2007-06-06 Olivier Hainque <hainque@adacore.com>Eric Botcazou <ebotcazou@adacore.com>* utils2.c (build_allocator): Provide the extra arguments tomake_aligning_type for super-aligned objects allocated from the defaultpool. Leave enough room for a pointer before the aligning field, andstore the system's allocator return value there.(build_call_alloc_dealloc): When releasing a super-aligned object,retrieve the system's allocator return value from where build_allocatorhas stored it, just ahead of the adjusted address we are passed.(build_call_raise): Handle properly the generation of line numbers whenthe node is marked No_Location.(compare_elmt_bitpos): Use tree_int_cst_compare. Stabilize the sortby using DECL_UID on ties.(build_binary_op) <EQ_EXPR>: Accept fat pointer types with the samemain variant.(build_call_raise): Handle converting exception into goto; support newargument KIND.(build_component_ref): Add new arg to build_call_raise.2007-06-06 Hristian Kirtchev <kirtchev@adacore.com>* a-ztflau.adb, a-wtflau.adb, a-tiflau.adb (Load_Real): Do not parse"." in the case of nnn.xxx when nnn terminates with an underscore.Parse the remaining "#" or ":" in the case of nnn#.xxx#2007-06-06 Robert Dewar <dewar@adacore.com>* a-tigeau.ads, a-tigeau.adb: (Store_Char): Change Buf to IN OUT2007-06-06 Arnaud Charlet <charlet@adacore.com>Vincent Celier <celier@adacore.com>Robert Dewar <dewar@adacore.com>* bindgen.adb (Gen_Output_File_Ada): Generate pragma No_Run_Time whenneeded.(Gen_Output_File_Ada, Gen_Output_File_C): Never use __attribute((destructor)) for adafinal, even when switch -a is used.Do not issue pragma Linker_Destructor for adafinal when switch -a isused.(Gen_Object_Files_Options): Add formatting of Linker Options, whenOutput_Linker_Option_List is set. Suppress this formatting whenZero_Formatting is set.Add case for CLI_Target.(System_Restrictions_Used): New flag, used to avoid generating with ofSystem_Restrictions and initialization of the data unless there issome use of System.Restrictions in the partition.(Check_System_Restrictions_Used): New procedure* s-stalib.adb: Remove with of System.Restrictions. No longer neededsince we only with this unit in the binder file if it is used elsewherein the partition.2007-06-06 Vincent Celier <celier@adacore.com>* bindusg.adb: Add line for @<response file>Add lines for new switches -R and -Z* gnatbind.adb (Gnatbind): Do not include sources from the GNAThierarchy in the list of files of the closure when -R is used(Gnatbind): Accept arguments starting with '@' to indicate responsefiles and take the arguments from the response files.If List_Closure is set, display the referenced files2007-06-06 Javier Miranda <miranda@adacore.com>Robert Dewar <dewar@adacore.com>Ed Schonberg <schonberg@adacore.com>* checks.ads, checks.adb (Apply_Address_Clause_Check): Handle case inwhich the address-clause is applied to in-mode actuals (allowed by13.1(22)).(Apply_Discriminant_Check): Do not generate a check if the type isconstrained by a current instance.(Activate_Division_Check): New procedure(Activate_Overflow_Check): New procedure(Activate_Range_Check): New procedureCall these new Activate procedures instead of setting flags directly(Apply_Array_Size_Check): Removed, no longer needed.Code clean up: remove obsolete code related to GCC 2.(Get_E_Length): Protect against bomb in case scope is standard(Selected_Range_Checks): If the node to be checked is a conversion toan unconstrained array type, and the expression is a slice, use thebounds of the slice to construct the required constraint checks.Improve NOT NULL error messages(Apply_Constraint_Check): If the context is a null-excluding accesstype, diagnose properly the literal null.2007-06-06 Pascal Obry <obry@adacore.com>* clean.adb (Clean_Archive): Use untouched casing for the archive nameand the corresponding .deps file.(Clean_Interface_Copy_Directory): Use untouched casing for the librarysrc directory. Minor code-clean-up. Use untouched casing for filesread into the library src dir.(Clean_Library_Directory): Idem.(Parse_Cmd_Line): Accept new switch -aP2007-06-06 Javier Miranda <miranda@adacore.com>Ed Schonberg <schonberg@adacore.com>Robert Dewar <dewar@adacore.com>Eric Botcazou <ebotcazou@adacore.com>Arnaud Charlet <charlet@adacore.com>* einfo.ads, einfo.adb (Available_View): New synthesized attributeapplicable to types that have the With_Type flag set. Returns thenon-limited view of the type, if available, otherwise the type itself.For class-wide types, there is no direct link in the tree, so we haveto retrieve the class-wide type of the non-limited view of the Etype.New attributes Static_Initialization and Static_Elaboration_Desired.Remove the pragma Thread_Body, and the associated flagIs_Thread_Body in entities, and all related code.(Suppress_Value_Tracking_On_Call): New flagE_Exception has Esize and Alignment fields(Universal_Aliasing): New function.(Set_Universal_Aliasing): New procedure.(Write_Entity_Flags): Deal with Universal_Aliasing flag.(Check_Nested_Access): New procedure.(Has_Up_Level_Access, Set_Has_Up_Level_Access): New procedures.(Find_Direct_Name, Note_Possible_Modification): Use Check_Nested_Access.(Related_Interface): New attribute. Present in dispatch table pointercomponents of records. Set to point to the entity of the correspondinginterface type.(Is_By_Reference_Type): Recurse on the full view of an incomplete type.(Original_Access_Type): Remove, not needed.(Root_Type): Handle properly subtypes of class-wide-types.Update comments.* sem_ch4.adb (Analyze_Explicit_Dereference): Add support forclass-wide types visible through limited-with clauses.(Try_Primitive_Operation): When examining all primitive operations of atagged type, do not consider subprograms labeled as hidden unless theybelong to a private generic type with a tagged parent.(Try_Object_Operation): Extensive rewriting, to handle properly variousoverloading cases, when several ancestors may have class-wide operationsthat are possible candidates, and when the overloaded functions returnarray types and have defaulted parameters so that the call may beinterpreted as an indexing.(Analyze_Allocator): Remove Mark_Allocator and its invocation.(Process_Function_Call): use Next, rather than Next_Actual, to analyzesuccessive actuals before analyzing the call itself.(Try_Primitive_Operation): A primitive operation is compatible with theprefix if the prefix has a synchronized type and the type of the formalis its corresponding record, as can be the case when the primitiveoperation is declared outside of the body of the type.(Traverse_Homonyms): New subprocedure of Try_Class_Wide_Operation, toperform homonym traversal, looking for class-wide operation matches(formerly done in statements of Try_Class_Wide_Operation). Matches onaccess parameters are now restricted to anonymous access types.(Mark_Allocator): An allocator with a discriminant association parent isa coextension.(Try_One_Prefix_Interpretation): If the type of the object isincomplete, as can be happen when it is a limited view obtained througha limited_with_clause, the selected component is not part of a prefixedcall.(Complete_Object_Operation): Diagnose properly an object that is notaliased when the corresponding controlling formal is an accessparameter.(Try_Primitive_Operation, Try_Class_Wide_Operation): Diagnose properlyambiguous calls in prefixed notation, where two primitives differ onlyin that the controlling argument of one is an access parameter.* sem_ch6.adb (Has_Single_Return): Add guard in code that determineswhether a function that returns an unconstrained type can be inlined.(Process_Formals): Diagnose properly the illegal use of an incompletetype in the profile of an access_to_subprogram declaration.(Check_Synchronized_Overriding): Nothing check for concurrent types, theoperations are attached to the corresponding record.(Analyze_Subprogram_Specification): Add variables Formal and Formal_Typ.When processing a primitive of a concurrent type which implements aninterface change the type of all controlling formals to that of thecorresponding record type.(Check_Synchronized_Overriding): Relax the conditional logic when tryingto determine the tagged type to which a primitive belongs.(Check_Conventions): Capture condition to ignore a primitive operation(which is shared between the loop in Check_Conventions and the one inCheck_Convention) in a new local function Skip_Check.(Check_Convention): Rename Prim_Op to Second_Prim_Op to avoid possibleconfusion with Check_Conventions' own Prim_Op local variable.(Create_Extra_Formals): Test for a tagged result type rather than acontrolling result when determining whether to add a BIP_Alloc_Formformal and a BIP_Final_List formal to the function.(Check_Conformance); For parameters that are anonymous access types,subtype conformance requires that the not null and the constantindicators must match(Check_Synchronized_Overriding): New parameter Formal_Typ. Add machineryto retrieve the appropriate type when processing a concurrent typedeclared within a generic. Minor comment reformatting. Change invocationof Overrides_Synchronized_Primitive to Find_Overridden_Synchronized_Pri-mitive.(Analyze_Subprogram_Body): If the return type of a function is ananonymous access to the limited view of a class-wide type, and thenon-limited view of the type is available, update the type of thefunction so that code can be generated.(Process_Formals): In case of access-subtype itype whose designatedtype is also an itype (situation that happens now with access tosubprograms) we mark the access-type itype with the Has_Delayed_Freezeattribute to avoid backend problems.(Check_Return_Subtype_Indication): Replace R_Type with R_Stm_Type ininit of R_Stm_Type_Is_Anon_Access. Also check that base types of theanonymous types' designated types are same before testingSubtypes_Statically_Match.(Create_Extra_Formals): Test for a named access parameter that is acontrolling formal as an additional condition for adding anaccessibility level formal. This can occur in the subp type created fordispatching calls in Expand_Dispatching_Call, and allows callingCreate_Extra_Formals from that procedure rather than special-casing theextra formals there.(Create_Extra_Formals): Add BIP_Alloc_Form and BIP_Final_List formalswhen the function has a controlling result.(Check_Returns): Add much more knowledge of the optimization of localraise statements to gotos, to retain proper warnings in this case.(Check_Statement_Sequence): Ignore N_Push_xxx_Label and N_Pop_xxx_Labelnodes when looking for last statement.* sem_type.ads, sem_type.adb (Specific_Type): Add support forclass-wide types visible through limited with clauses.(Add_One_Interp): If the operands are anonymous access types, thepredefined operator on universal_access is immediately visibles(Find_Unique_Type): Handle anonymous access to subprogram types just asother anonymous access types.(Disambiguate): Take into account CIL convention.(Interface_Present_In_Ancestor): Add support for class-wide interfaces.2007-06-06 Robert Dewar <dewar@adacore.com>* sinput.ads, sinput.adb, uintp.ads, urealp.adb, stringt.adb,sem_elim.adb, prj-strt.adb, repinfo.ads, repinfo.adb, namet.ads,elists.ads, elists.adb, lib.ads, lib.adb (Unlock): New procedure.Fix lower bound of tables.Add rep clauses.* nlists.adb: Ditto.(Prev_Node, Next_Node): Change index type to Int so that it properlycovers the range First_Node_Id - 1 up.2007-06-06 Javier Miranda <miranda@adacore.com>Ed Schonberg <schonberg@adacore.com>Bob Duff <duff@adacore.com>Hristian Kirtchev <kirtchev@adacore.com>* exp_aggr.ads, exp_aggr.adb:(Build_Record_Aggr_Code): Add missing initialization of secondary tagsin extension aggregates.(Flatten): Other conditions being met, an aggregate is static if thelow bound given by component associations is different from the lowbound of the base index type.(Packed_Array_Aggregate_Handled): If the component type is itself apacked array or record, the front-end must expand into assignments.(Gen_Ctrl_Actions_For_Aggr): In call to Init_Controller, pass False toInit_Pr, instead of Ancestor_Is_Expression.(Gen_Ctrl_Actions_For_Aggr): When processing an aggregate of acoextension chain root, either generate a list controller or use thealready existing one.(Static_Array_Aggregate): New procedure to construct a positionalaggregate that can be handled by the backend, when all bounds andcomponents are compile-time known constants.(Expand_Record_Aggregate): Force conversion of aggregates of taggedtypes covering interface types into assignments.(Replace_Type): move to Build_Record_Aggr_Code.(Expand_Record_Aggr_Code): if the target of the aggregate is aninterface type, convert to the definite type of the aggregate itself,so that needed components are visible.(Convert_Aggr_In_Object_Decl): If the aggregate has controlledcomponents and the context is an extended return statement do notcreate a transient block for it, to prevent premature finalizationbefore the return is executed.(Gen_Assign): Do not generate a call to deep adjust routine if thecomponent type is itself an array of controlled (sub)-componentsinitialized with an inner aggregate.(Component_Check): New name for Static_Check. This name is now moreappropriate, and documentation is added which was missing.(Component_Check): Add test for bit aligned component value(Component_Not_OK_For_Backend): Renames Has_Delayed_Nested_Aggregate_Or_Tagged_Comps, name is more appropriate given added function below.(Component_Not_OK_For_Backend): Check for bit aligned component ref.2007-06-06 Hristian Kirtchev <kirtchev@adacore.com>Javier Miranda <miranda@adacore.com>Robert Dewar <dewar@adacore.com>* exp_attr.adb (Expand_N_Attribute_Reference): Case Callable andTerminated: Add unchecked type conversion from System.Address toSystem.Tasking.Task_Id when calling the predefined primitive_disp_get_task_id.Disable new Ada 05 accessibility check for JVM.NET targets, whichcannot be implemented in a practical way.(Expand_N_Attribute_Reference: case Attribute_Tag): The use of 'Tag inthe sources always references the tag of the actual object. Therefore,if 'Tag is applied in the sources to class-wide interface objects wegenerate code that displaces "this" to reference the base of the object.(Expand_N_Attribute_Reference, case Size): Return specified size ifknown to front end.(Expand_N_Attribute_Reference): The expansion of the 'Address attributehas code that displaces the pointer of the object to manage interfacetypes. However this code must not be executed when the prefix is asubprogram. This bug caused the wrong expansion of the internallygenerated assignment that fills the dispatch table when the primitiveis a function returning a class-wide interface type.(Expand_N_Attribute_Reference:Attribute_Valid): Remove incorrect call toSet_Attribute_Name for Name_Unaligned_Valid.2007-06-06 Ed Schonberg <schonberg@adacore.com>Gary Dismukes <dismukes@adacore.com>* exp_ch13.adb (Expand_N_Attribute_Definition_Clause, case 'Address):If the initialization is the equivalent aggregate of the initializationprocedure of the type, do not remove it.(Expand_N_Attribute_Definition_Clause): Exclude access variablesinitialized to null from having their expression reset to empty andnote this exception in the comment.2007-06-06 Hristian Kirtchev <kirtchev@adacore.com>Robert Dewar <dewar@adacore.com>Ed Schonberg <schonberg@adacore.com>Gary Dismukes <dismukes@adacore.com>* exp_ch2.adb: Remove "with" and "use" clauses for Namet and Snames.Add "with" and "use" clauses for Sem_Attr.(Expand_Current_Value): Do not replace occurences of attributereferences where the prefix must be a simple name.* sem_attr.ads, sem_attr.adb: Remove "with" and "use" clauses forNamet. Add new arrays Attribute_Name_Modifies_Prefix andAttribute_Requires_Simple_Name_Prefix.(Name_Modifies_Prefix): Body of new function.(Requires_Simple_Name_Prefix): Body of new function.(Resolve_Attribute, case Access): Improve error message for case ofmismatched conventions.(Analyze_Attribute, case 'Tag): The prefix the attribute cannot be of anincomplete type.(Analyze_Attribute, case 'Access): If the type of the prefix is aconstrained subtype for a nominal unconstrained type, use its base typeto check for conformance with the context.(Resolve_Attribute): Remove test of the access type being associatedwith a return statement from condition for performing accessibilitychecks on access attributes, since this case is now captured byIs_Local_Anonymous_Access.(Analyze_Access_Attribute): Set Address_Taken on entity(Analyze_Attribute, case Address): Set Address_Taken on entity(OK_Self_Reference): Traverse tree to locate enclosing aggregate whenvalidating an access attribute whose prefix is a current instance.(Resolve_Attribute): In case of attributes 'Code_Address and 'Addressapplied to dispatching operations, if freezing is required then we setthe attribute Has_Delayed_Freeze in the prefix's entity.(Check_Local_Access): Set flag Suppress_Value_Tracking_On_Call incurrent scope if access of local subprogram taken(Analyze_Access_Attribute): Check legality of self-reference even if theexpression comes from source, as when a single component association inan aggregate has a box association.(Resolve_Attribute, case 'Access): Do not apply accessibility checks tothe prefix if it is a protected operation and the attribute isUnrestricted_Access.(Resolve_Attribute, case 'Access): Set the Etype of the attributereference to the base type of the context, to force a constraint checkwhen the context is an access subtype with an explicit constraint.(Analyze_Attribute, case 'Class): If the prefix is an interface and thenode is rewritten as an interface conversion. leave unanalyzed afterresolution, to ensure that type checking against the context will takeplace.2007-06-06 Ed Schonberg <schonberg@adacore.com>Javier Miranda <miranda@adacore.com>Robert Dewar <dewar@adacore.com>* exp_ch3.adb (Make_Controlling_Function_Wrappers): generate wrapper awrapper when the full view of the controlling type of an inheritedfunction that dispatches on result implements interfaces.(Expand_N_Object_Declaration): In cases where the type of thedeclaration is anonymous access, create finalization list for it.(Expand_N_Object_Declaration): Generate a persistent_bss directive onlyif the object has no explicit initialization, to match description offunctionality of pragam Persistent_BSS.(Build_Equivalent_Array_Aggregate, Build_Equivalent_Record_Aggregate):new function to build static aggregates, to replace initialization callwhen static initialization is desired.(Freeze_Type): Generate a list controller for an access type wheneverits designated type has controlled anonymous access discriminants.(Build_Equivalent_Aggregate): New procedure to compute a staticaggregate to be used as default initialization for composite types,instead of a generating a call to the initialization procedure for thetype.(Build_Initialization_Call): When available, replace a call to theinitialization procedure with a copy of the equivalent static aggregatefor the type.(Expand_N_Object_Declaration): Use New_Occurrence_Of in generateddeclarations for objects of a class-wide interface type, rather thanjust identifiers, to prevent visibility problems.(Expand_N_Object_Declaration): When expanding the declaration for anobject of a class-wide interface type, preserve the homonym chain ofthe original entity before exchanging it with that of the generatedrenaming declaration.(Freeze_Enumeration_Type): Don't raise CE if No_Exception_Propagationactive, because there is no way to handle the exception.(Freeze_Record_Type): In case of CPP_Class types add a call to Make_DTto do a minimum decoration of the Access_Disp_Table list.(Expand_Record_Controller): Avoid the addition of the controller betweenthe component containing the tag of a secondary dispatch table and itsadjacent component that stores the offset to the base of the object.This latter component is only generated when the parent type hasdiscriminants ---documented in Add_Interface_Tag_Components).(Apply_Array_Size_Check): Removed, no longer needed.(Expand_N_Full_Type_Declaration): If the type has anonymous accesscomponents, create a Master_Entity for it only if it contains tasks.(Build_Init_Procedure): Suppress the tag assignment compiling underno run-time mode.(Freeze_Record_Type): Remove code associated with creation of dispatchtable.(Init_Secondary_Tags): Update type of actuals when generating calls toAda.Tags.Set_Offset_To_Top(Stream_Operation_OK): Disable use of streams compiling under norun-time mode(Expand_N_Object_Declaration): Don't do Initialize_Scalars initalizationif Has_Init_Expression set.(Build_Init_Procedure): Replace call to Fill_DT_Entry by call toRegister_Primitive, which provides the same functionality.(Requires_Init_Proc): Return false in case of interface types.(Add_Secondary_Tables): Use the new attribute Related_Interface tocleanup the code.(Predefined_Primitive_Freeze): Do not assume that an internal entityis always associated with a predefined primitive because the internalentities associated with interface types are not predefined primitives.Therefore, the call to Is_Internal is replaced by a call to thefunction Is_Predefined_Dispatching_Operation.(Make_Eq_If): When generating the list of comparisons for thecomponents of a given variant, omit the controller component that ispresent if the variant has controlled components.2007-06-06 Javier Miranda <miranda@adacore.com>Hristian Kirtchev <kirtchev@adacore.com>Bob Duff <duff@adacore.com>* exp_ch4.adb (Complete_Coextension_Finalization): Add machinery tohandle the creation of finalization lists and calls for nestedcoextensions when the root of the chains is part of a return statement.(Inside_A_Return_Statement): New function inside Complete_Coextension_Finalization.(Expand_Record_Equality): Skip components that are interface types.(Displace_Allocator_Pointer): Add missing support for interface subtypes(Expand_N_Allocator): Replace invocation of Is_Local_Access_Discriminantwith Rewrite_Coextension. Change the condition for detecting coextensionroot nodes.(Is_Local_Access_Discriminant): Removed.(Rewrite_Coextension): New routine which rewrites a static coextensionas a temporary and uses its unrestricted access in the construction ofthe outer object.(Complete_Coextension_Finalization): New routine. Generate finalizationattachment calls to all delayed coextensions.(Expand_N_Allocator): Call Complete_Coextension_Finalization wheneverthe allocator is not a coextension itself and has delayed coextensions.If the current allocator is controlled, but also a coextension, delaythe generation of the finalization attachment call.Rename local variable "Node" to "Nod" in order to avoid confusion with"Elists.Node".(Expand_Allocator_Expression): Call Adjust for initialized allocators oflimited types that are not inherently limited. Such an allocator isillegal, but is generated by the expander for a return statement, tocopy the result onto the secondary stack. This is the only case where alimited object can be copied. Generate code to displace the pointerto the object if the qualified expression is a class-wide interfaceobject. Such displacement was missing and hence the copy of the objectwas wrong.(Apply_Accessibility_Check): Handle allocated objects initialized inplace.(Displace_Allocator_Pointer): Subsidiary procedure to Expand_N_Allocatorand Expand_Allocator_Expression. Allocating class-wide interface objectsthis routine displaces the pointer to the allocated object to referencethe component referencing the corresponding secondary dispatch table.Expand_Allocator_Expression): Add missing support to allocate class-wideinterface objects initialized with a qualified expression.(Get_Allocator_Final_List): Test for an anonymous access type that is afunction result type, and use the finalization list associated with thefunction scope in that case (such an anonymous type should not betreated like an access parameter's type).2007-06-06 Ed Schonberg <schonberg@adacore.com>Gary Dismukes <dismukes@adacore.com>Javier Miranda <miranda@adacore.com>* exp_ch5.adb (Expand_N_Assignment_Statement): For the assignment of acontrolled type, use Make_Handler_For_Ctrl_Operation to construct therequired exception handler.(Expand_Simple_Function_Return, Expand_N_Return_Statement): Handleproperly the case of a function whose return type is a limitedclass-wide interface type. Modify the code of the accessibilitycheck to handle class-wide interface objects. In this case we need todisplace "this" to reference the primary dispatch table to get accessto the TSD of the object (to evaluate its accessibility level).(Expand_N_Extended_Return_Statement): Test for a tagged result typerather than a controlling result as one of the conditions forgenerating tests of the implicit BIP_Alloc_Form formal. Theinitialization assignment is also handled according to whether theresult is tagged instead of controlling.In the case where the init assignment is inserted in the "then" part ofthe allocation conditional, rewrite the target to be a dereference ofthe implicit BIP_Object_Access formal.If the returned value is unconstrained and created on the secondarystack, mark the enclosing block and function so that the secondarystack is not reclaimed on return.Treat returns from functions with controlling results similarly toreturns from functions with unconstrained result subtypes.If the object returned is unconstrained, and an allocator must becreated for it, analyze the allocator once the block for the extendedreturn is installed, to ensure that finalizable componentsof the expression use the proper finalization list. Guard the call toMove_Final_List with a check that there is something to finalize.(Make_Tag_Ctrl_Assignment): Use "old" handlingof controlled type assignment for virtual machines, since new code usesunsupported features (such as direct access to bytes in memory).2007-06-06 Gary Dismukes <dismukes@adacore.com>Ed Schonberg <schonberg@adacore.com>* exp_ch6.ads, exp_ch6.adb (Expand_Call): When adding an extraaccessibility actual, check for the case of an aliased object that hasbeen rewritten as an Access attribute, and assign Prev to Prev_Orig sowe fall into processing for the attribute rather than the name of theobject.(Expand_Inline_Call): If an actual is a literal, and the correspondingformal has its address taken in the body, create a temporary to capturevalue. If the return type is a limited interface, do not treat thereturn value as Controlled.(Is_In_Place_Function): If the return type is a limited interface,treat as returning in place. The actual returned object may not alwaysbe limited, but the caller has to assume that it is returned in place.(Add_Final_List_Actual_To_Build_In_Place_Call): If the call is thecontext of an allocator, use the correct finalization chain (that is,the chain belonging to the access type, rather than the chain belongingto the current scope).(Add_Alloc_Form_Actual_To_Build_In_Place_Call): Test for a taggedresult type rather than a controlling result as a precondition foradding an allocation form actual to a build-in-place call.(Add_Final_List_Actual_To_Build_In_Place_Call): Ditto.(Freeze_Subprogram): Code cleanup. Remove all the code that register theprimitive in the dispatch tables. This work is now done by Make_DT whenthe type is frozen.(Register_Predefined_DT_Entry): Removed.(Add_Return): If end label is not present, use sloc of last statementfor generated return statement in procedure, for better gdb behavioron expanded code.(Add_Access_Actual_To_Build_In_Place_Call): Set parent fields of theobject address nodes to ensure proper processing by routines likeInsert_After*.(Expand_Call): Fix generation of validity check for parameter(Add_Alloc_Form_Actual_To_Build_In_Place_Call): Return without passingthe allocation form parameter if the result subtype is constrained,except when the function has a controlling result.(Add_Final_List_Actual_To_Build_In_Place_Call): Test Controlled_Typerather than Is_Controlled and Has_Controlled_Component, since we want toinclude class-wide result types in this treatment. Also test for acontrolling result, since that also requires passing a finalizationlist.(Make_Build_In_Place_Call_In_Allocator): Call Add_Alloc_Form_Actual_*even when the result subtype is constrained, to handle calls involvingcontrolling results.(Make_Build_In_Place_Call_In_Anonymous_Context): Add_Alloc_Form_Actual_*is now called even when the result subtype is constrained, to handlecalls involving controlling results.(Make_Build_In_Place_Call_In_Assignment): Remove test for Is_Constrainedon call to Add_Alloc_Form_Actual_To_Build_In_Place_Call (that procedurenow performs the test).(Make_Build_In_Place_Call_In_Object_Declaration):Add_Alloc_Form_Actual_* is now called even when the result subtype isconstrained, to handle calls involving controlling results.(Add_Return): Accomodate rewritten pattern from local raise to gototransformation, so that we still recognize an transfer statementand do the right thing here in that case.(Expand_N_Subprogram_Body): Add dummy Push/Pop_xxx_Label nodes at startand end of subprogram code.(Register_Interface_DT_Entry, Register_Predefined_DT_Entry): Add missingsupport for primitives that are functions (without formals) with acontrolling result.(Inherited_From_Formal): If the actual subtype has not generic parenttype, it is not an actual for a formal derived type, and there is nooperation to inherit from the formal.2007-06-06 Ed Schonberg <schonberg@adacore.com>Thomas Quinot <quinot@adacore.com>* exp_ch7.ads, exp_ch7.adb (Expand_Cleanup_Actions): Set Sloc ofinserted cleanup code appropriately for GDB use.(Make_Deep_Proc): Use Make_Handler_For_Ctrl_Operation to createexception handler for Deep_Adjust or Deep_Finalize.(Make_Handler_For_Ctrl_Operation): New subprogram. When runtime entityRaise_From_Controlled_Operation is available, use a call to thatsubprogram instead of a plain "raise Program_Error" node to raiseProgram_Error if an exception is propagated from an Adjust or Finalizeoperation.(Insert_Actions_In_Scope_Around): If the statement to be wrappedappears in the optional statement list of a triggering alternative, thescope actions can be inserted directly there, and not in the list thatincludes the asynchronous select itself.2007-06-06 Ed Schonberg <schonberg@adacore.com>Robert Dewar <dewar@adacore.com>Hristian Kirtchev <kirtchev@adacore.com>* exp_ch9.ads, exp_ch9.adb (Build_Protected_Entry): Set sloc ofgenerated exception handler appropriately when debugging generated code.Deal properly with No_Exception_Propagation restriction mode.(Expand_N_Abort_Statement): Add an unchecked type conversion fromSystem.Address to System.Tasking.Task_Id when processing the result ofthe predefined primitive _disp_get_task_id.(Expand_N_Asynchronous_Select): Clarify comment.(Expand_N_Protected_Type_Declaration): Minor code cleanup.(Find_Parameter_Type): New routine inside Type_Conformant_Parameters.(Type_Conformant_Parameters): New parameter Prim_Op_Typ. Code cleanup.(Add_Private_Declarations, Build_Protected_Body): Use proper slocs forprivals and for generated call to Complete_Entry_Body, for better gdbbehavior.(Copy_Result_Type): Utility to construct a parameter and result profilefor protected functions whose return type is an anonymous access tosubprogram.(Build_Protected_Sub_Spec and Expand_Access_Protected_Subprogram_Type):call the above.(Build_Task_Activation_Call): Insert Activate_Tasks call at properpoint when the local-raise-to-goto transformation has taken place.2007-06-06 Javier Miranda <miranda@adacore.com>Nicolas Setton <setton@adacore.com>* exp_dbug.adb (Get_Encoded_Name): Modified to continue providing itsfunctionality when the backend is generating code.Otherwise any serious errorreported by the backend calling the frontend routine Error_Msgchanges the Compilation_Mode to Check_Semantics, disables thefunctionality of this routine and causes the generation ofspureous additional errors.* exp_dbug.ads (Pointers to Unconstrained Arrays): Document thedebugging information now generated by the compiler for fat-pointertypes.Document the contents of DW_AT_producer in the GNAT Vendor extensions toDWARF2/3.Document GNAT Vendor extensions to DWARF 2/3 and the "-gdwarf+" switch.2007-06-06 Thomas Quinot <quinot@adacore.com>* exp_dist.ads, exp_dist.adb (Make_Transportable_Check): New subprogram(GARLIC_Support.Build_Subprogram_Receiving_Stubs,PolyORB_Support.Build_Subprogram_Receiving_Stubs):For a remote call to a function with a classwide return type, apply anE.4(18) check to the returned value.(Add_RACW_Primitive_Declarations_And_Bodies): Do not generate stubs forstream attributes of the designated type of an RACW, as they are notdispatching primitive operations.2007-06-06 Geert Bosch <bosch@adacore.com>* exp_fixd.adb (Integer_Literal): Add optional argument to construct anegative literal(Do_Divide_Fixed_Fixed): Add comments to indicate Frac is alwayspositive(Do_Divide_Fixed_Universal): Handle case of negative Frac.(Do_Multiply_Fixed_Fixed): Add coments to indicate Frac is alwayspositive(Do_Multiply_Fixed_Universal): Handle case of negative Frac.2007-06-06 Javier Miranda <miranda@adacore.com>* exp_imgv.adb (Expand_Value_Attribute): Disable compilation of thisattribute compiling package Ada.Tags under No_Run_Time_Mode.2007-06-06 Javier Miranda <miranda@adacore.com>* exp_intr.adb (Expand_Unc_Deallocation): Add missing support fordeallocation of class-wide interface objects.(Expand_Dispatching_Constructor_Call): Take into account that if theresult of the dispatching constructor is an interface type, thefunction returns a class-wide interface type; otherwise the returnedobject would be actual. The frontend previously accepted returninginterface types because Expand_Interface_Actuals silently performedthe management of the returned type "as if" it were a class-wideinterface type.(Expand_Dispatching_Constructor_Call): Replace call toMake_DT_Access_Action by direct call to Make_Function_Call.2007-06-06 Robert Dewar <dewar@adacore.com>Ed Schonberg <schonberg@adacore.com>* exp_pakd.adb (Expand_Packed_Not): Use RM_Size rather than ESize tocompute masking constant, since we now set Esize properly to theunderlying size.(Create_Packed_Array_Type): Set proper Esize value adjusted as requiredto match the alignment.(Create_Packed_Array_Type): Use Short_Short_Unsigned as base type forpacked arrays of 8 bits or less.* freeze.adb (Freeze_Entity): When freezing the formals of asubprogram, freeze the designated type of a parameter of an access typeonly if it is an access parameter.Increase size of C convention enumeration object(Freeze_Entity, array type case): Make sure Esize value is properlyadjusted for the alignment if it is known.(Freeze_Entity, array type case): When checking bit packed arrays forthe size being incorrect, check RM_Size, not Esize.(Freeze_Record_Type): Check for bad discriminated record convention(In_Exp_Body): Return true if the body is generated for a subprogramrenaming, either an attribute renaming or a renaming as body.(Check_Itype): If the designated type of an anonymous access componentis a non-protected subprogram type, indicate that it is frozen, toprevent out-of-scope freeze node at some subsequent call.(Freeze_Subprogram): On OpenVMS, reject descriptor passing mechanismonly if the subprogram is neither imported nor exported, as well as theNCA descriptor class if the subprogram is exported.2007-06-06 Ed Schonberg <schonberg@adacore.com>Arnaud Charlet <charlet@adacore.com>Robert Dewar <dewar@adacore.com>Gary Dismukes <dismukes@adacore.com>* exp_prag.adb (Expand_Pragma_Import_Or_Interface): Remove properly adefault initialization on an imported object, when there is noinitialization call generated for it.(Expand_Pragma_Assert): Add handling of No_Exception_Propagationrestriction* snames.h, snames.ads, snames.adb, par-prag.adb: New pragmaStatic_Elaboration_Desired.Remove pragma Thread_Body.Implement a new pragma No_BodyRemoves the Explicit_Overriding pragmaRemove Optional_Overriding pragma(Prag): Deal with Universal_Aliasing.(Name_CIL, Name_CIL_Constructor, Convention_CIL,Pragma_CIL_Constructor): New names.* sem_cat.adb (Validate_Object_Declaration): An initialization thatuses the equivalent aggregate of a type must be treated as an implicitinitialization.(Get_Categorization): Check a unit for pragma Preelaborate only if ithas none of the other categories.(Process_Import_Or_Interface_Pragma): Report an error for an attemptto apply Import to an object renaming declaration.* sem_prag.adb (Process_Import_Or_Interface): Warn that a type importedfrom a C++ class should be declared as limited and that it will beconsidererd limited.(Analyze_Pragma): Warn that a type specified with pragma CPP_Classshould be declared as limited and that it will be considererd limited.(Ada_2005_Pragma): New procedure, used to deal with Ada 2005 pragmas(Analyze_Pragma, case Export): Diagnose export of enumeration literal(Analyze_Pragma): Deal with Universal_Aliasing.(Sig_Flags): Likewise.(Set_Encoded_Interface_Name): Suppress encoding when compiling for AAMP.(Overflow_Checks_Unsuppressed): New flag.(Process_Suppress_Unsuppress): Set Overflow_Checks_Unsuppressed.(Analyze_Pragma [case Pack]): Ignore pragma Pack and post warning incase of JVM or .NET targets, and compiling user code.Add debugging convenience routine rv2007-06-06 Robert Dewar <dewar@adacore.com>* exp_strm.adb (Make_Field_Attributes): Avoid _Parent components thatare interface type.(Build_Elementary_Input_Call): For floating-point use right type in theabsence of strange size or stream size clauses.(Build_Elementary_Write_Call): Same fix(Has_Stream_Standard_Rep): Returns False if Stream_Size attributeset to value that does not match base type size.2007-06-06 Ed Schonberg <schonberg@adacore.com>* exp_util.ads, exp_util.adb (Expand_Subtype_From_Expr): In Ada2005, anobject of a limited type can be initialized with a call to a functionthat returns in place. If the limited type has unknown discriminants,and the underlying type is a constrained composite type, build an actualsubtype from the function call, as is done for private types.(Side_Effect_Free): An expression that is the renaming of an object orwhose prefix is the renaming of a object, is not side-effect freebecause it may be assigned through the renaming and its value must becaptured in a temporary.(Has_Controlled_Coextensions): New routine.(Expand_Subtype_From_Expr): Do nothing if type is a limited interface,as is done for other limited types.(Non_Limited_Designated_Type): new predicate.(Make_CW_Equivalent_Type): Modified to handle class-wide interfaceobjects.Remove all handling of with_type clauses.* par-ch10.adb: Remove all handling of with_type clauses.* lib-load.ads, lib-load.adb (Load_Main_Source): Do not get thechecksum if the main source could not be parsed.(Loat_Unit): When processing a child unit, determine properly whetherthe parent unit is a renaming when the parent is itself a child unit.Remove handling of with_type clauses.* sinfo.ads, sinfo.adb (Is_Static_Coextension): New function.(Set_Is_Static_Coextension): New procedure.(Has_Local_Raise): New function(Set_Has_Local_Raise): New procedure(Renaming_Exception): New field(Has_Init_Expression): New flag(Delay_Finalize_Attach): Remove because flag is obsolete.(Set_Delay_Finalize_Attach): Remove because flag is obsolete.Remove all handling of with_type clauses.(Exception_Junk): Can now be set in N_Block_Statement2007-06-06 Vincent Celier <celier@adacore.com>Robert Dewar <dewar@adacore.com>* frontend.adb (Frontend): Return immediately if the main source couldnot be parsed, because of preprocessing errors.* gnat1drv.adb (gnat1drv): Handle RE_Not_Available gracefully.(Gnat1drv): Exit with errors if the main source could not be parsed,because of preprocessing errors.(Check_Rep_Info): New procedure2007-06-06 Robert Dewar <dewar@adacore.com>* g-hesorg.ads, g-heasor.ads,g-busorg.ads, g-bubsor.ads: Update documentationGNAT.Heap/Bubble_Sort_G is now pure2007-06-06 Robert Dewar <dewar@adacore.com>* g-catiio.ads, g-catiio.adb (Image): Check for null picture string2007-06-06 Robert Dewar <dewar@adacore.com>Ed Schonberg <schonberg@adacore.com>* g-comlin.ads, g-comlin.adb:Add new warning for renaming of function return objects* opt.adb (Tree_Write, Tree_Read): Use proper expressions for size(Tree_Read): Use size of object instead of type'object_size, since thelatter is incorrect for packed array types.(Tree_Write): Same fix* opt.ads: Add new warning for renaming of function return objects(Generating_Code): New boolean variable used to indicate that thefrontend as finished its work and has called the backend to processthe tree and generate the object file.(GCC_Version): Is now private(Static_Dispatch_Tables): New constant declaration.(Overflow_Checks_Unsuppressed): New flag.(Process_Suppress_Unsuppress): Set Overflow_Checks_Unsuppressed.(List_Closure): New flag for gnatbind (-R)Zero_Formatting: New flag for gnatbind (-Z)(Special_Exception_Package_Used): New flag.(Warn_On_Unrepped_Components): New flag.* sem_ch8.adb (Check_Library_Unit_Renaming): Check that the renamedunit is a compilation unit, rather than relying on its scope, so thatStandard can be renamed.(Analyze_Object_Renaming): Add new warning for renaming of functionreturn objects.Also reject attempt to rename function return object in Ada 83 mode.(Attribute_Renaming): In case of tagged types, add the body of thegenerated function to the freezing actions of the type.(Find_Type): A protected type is visible right after the reserved word"is" is encountered in its type declaration. Set the entity and typerather than emitting an error message.(New_Scope): Properly propagate Discard_Names to inner scopes(Check_Nested_Access): New procedure.(Has_Nested_Access, Set_Has_Nested_Access): New procedures.(Find_Direct_Name, Note_Possible_Modification): Use Check_Nested_Access.* sem_warn.ads, sem_warn.adb: Improvements to infinite loop warningAdd new warning for renaming of function return objects(Check_References): Suppress warnings for objects whose type orbase type has Warnings suppressed.(Set_Dot_Warning_Switch): Add processing for -gnatw.c/C(Set_Warning_Switch): Include new -gnatwc in -gnatwa2007-06-06 Vincent Celier <celier@adacore.com>Emmanuel Briot <briot@adacore.com>Olivier Hainque <hainque@adacore.com>* g-debpoo.ads, g-debpoo.adb (Free_Physically.Free_Blocks): Use theabsolute value of Header.Block_Size when displaying the freed physicalmemory in traces.(Allocate): Compute Storage_Address using Integer_Address, notStorage_Offset, because the range of Storage_Offset may not be largeenough.(Configure): New parameter Low_Level_Traces(Allocate, Deallocation, Free_Physically): Added low-level traces(Configure): new parameter Errors_To_Stdout.(Output_File): new subprogram(Deallocate, Dereference): Send error messages to the proper stream(Print_Pool, Print_Info_Stdout): Make sure the output goes to stdout, asdocumented. Previous code would send it to the current output filedefined in GNAT.IO, which might not be stdout(Is_Valid): Adjust comment to mention that a positive reply means thatHeader_Of may be used to retrieve the allocation header associated withthe subprogram Storage address argument. Return False early if thisaddress argument is misaligned.2007-06-06 Vincent Celier <celier@adacore.com>* gnatcmd.adb (GNATCmd): Accept switch -aP for commands that acceptswitch -P(ASIS_Main): New global variable(Get_Closure): New procedure(GNATCmd): Set ASIS_Main when -P and -U with a main is used for gnatcheck, metric or pretty. Call Get_Closure in this case.(Check_Files): For GNAT LIST, check all sources of all projects whenAll_Projects is True.(GNATCmd): Accept -U for GNAT LIST2007-06-06 Vincent Celier <celier@adacore.com>* gnatlink.adb (Gnatlink): Do not specify -static-libgcc when --LINK=has been specifiedCorrect error message when invocation of the linker failsAdd explicit size clause for the C imported variablesObject_List_File_Supported and Using_GNU_Linker to emphasize thatwe expect char size.Read target parameters earlier, since this is needed to setTarget_VM properly. Also do not use -static/shared-libgcc for non GCCtargets.2007-06-06 Vincent Celier <celier@adacore.com>* gnatls.adb:Add 3 spaces before the default project directory when displayingthe project search path.Add new command line switch '-l' to display license information.2007-06-06 Vasiliy Fofanov <fofanov@adacore.com>* gmem.c: Add support for timestamps on memory operations.* memtrack.adb, gnatmem.adb: Add support for timestamps on memoryoperations (not used currently, just foundation for futureenhancements). Add possibility to perform full dump of gmem.out file.(Print_Back_Traces): Declare accesses to root arrays constants sincethey aren't modified.(Print_Back_Traces): allocate root arrays on the heap rather than stack.2007-06-06 Vincent Celier <celier@adacore.com>* gnatsym.adb: Update Copyright notice(Parse_Cmd_Line): Accept new switch -D(Gnatsym): In Direct policy (switch -D) copy reference file to symbolfile.* prj.ads (Policy): New policy Direct(Yes_No_Unknown): New enumeration type(Project_Data): New component Libgnarl_Needed* prj-nmsc.adb (Check_For_Source): When recording a source file makeuse the untouched pathname casing.(Get_Directories): Ensure that the Display_Exec_Directory is using theproper casing on non case-sensitive platforms like Windows.(Get_Unit): Accept file names x__... and x~... (where x = a, g, i or s)on all platforms, as it is not possible to know which one is allowedbefore processing the project files.(Check_Stand_Alone_Library): Check that Library_Reference_Symbol_File isspecified when symbol policy is Direct. Check that when there is asymbol file defined (either by default or with attributeLibrary_Symbol_File) it is not the same as the reference symbol file.(Check_Stand_Alone_Library): Recognize new symbol policy Direct.(Look_For_Sources): Allow Locally_Removed_Files to be declare in nonextending projects.(Record_Ada_Source): Record a source that has been locally removed in animported project.* symbols.ads (Policy): New policy Direct* symbols-vms.adb (Initialize): Take new policy Direct in casestatement2007-06-06 Vincent Celier <celier@adacore.com>* g-os_lib.ads, g-os_lib.adb (Normalize_Pathname.Get_Directory):Correct obvious bug (return Dir; instead of return Directory;).(Normalize_Pathname): Use Reference_Dir'Length, not Reference_Dir'Last2007-06-06 Thomas Quinot <quinot@adacore.com>* g-pehage.adb (Produce): Open output files in Binary mode, so thatthey have UNIX line endings (LF only) even on Windows, and thus passall GNAT style checks.2007-06-06 Emmanuel Briot <briot@adacore.com>* g-regpat.adb (Quote): Fix improper quoting of '.'2007-06-06 Thomas Quinot <quinot@adacore.com>* g-soccon.ads: Add new constant Thread_Blocking_IO, always True bydefault, set False on a per-runtime basis.(Need_Netdb_Buffer): New constant.* g-socket.ads, g-socket.adb: Import new packageGNAT.Sockets.Thin.Task_Safe_NetDB.(Raise_Host_Error): Use Host_Error_Message from platform-specific thinbinding to obtain proper message.(Close_Selector): Use GNAT.Sockets.Thin.Signalling_Fds.Close.Replace various occurrences of Arry (Arry'First)'Address with theequivalent Arry'Address (GNAT always follows implementation advice from13.3(14)).(Get_Host_By_Address, Get_Host_By_Name,Get_Service_By_Name, Get_Service_By_Port): Do not use GNAT.Task_Lock;instead, rely on platform-specific task safe netdb operations providedby g-socthi.* g-socthi.ads, g-socthi.adb (Initialize): Remove obsolete formalparameter Process_Blocking_IO.(Host_Error_Messages): Add stub body.(GNAT.Sockets.Thin.Signalling_Fds): New procedure Close.(Safe_Gethostbyname, Safe_Gethostbyaddr, Safe_Getservbyname,Safe_Getservbyport): Move functions into new child packageTask_Safe_NetDB.(Nonreentrant_Gethostbyname, Nonreentrant_Gethostbyaddr,Nonreentrant_Getservbyname, Nonreentrant_Getservbyport): New routines.(In_Addr): Add alignment clause.2007-06-06 Robert Dewar <dewar@adacore.com>* g-trasym.ads, g-traceb.ads: Update list of supported targetsAdd note about symbolic traceback2007-06-06 Pascal Obry <obry@adacore.com>* hostparm.ads (Normalized_CWD): Use the host directory separatorinstead of the hardcoded forward slash which is not the propercharacter on Windows for example.(Java_VM): Removed.2007-06-06 Vincent Celier <celier@adacore.com>Arnaud Charlet <charlet@adacore.com>* a-clrefi.adb, a-clrefi.ads: New files* impunit.adb: Add s-os_lib in the list of user visible units.(Non_Imp_File_Names_95): Add a-clrefi to this listRemove obsolete run-time entries.(Non_Imp_File_Names_05): Add Ada 2005 entries for:"a-exetim" -- Ada.Execution_Time"a-extiti" -- Ada.Execution_Time.Timers* mlib-prj.ads, mlib-prj.adb(Build_Library): Use untouched object dir and library dir. At thesame time makes sure that the checks are done using the canonicalform. Removes hard-coded directory separator and use the proper hostone instead.(Process_Project): Do not look in object directory to check if libgnarlis needed for a library, if there is no object directory.(Build_Library): Scan the ALI files to decide if libgnarl is needed forlinking.(Build_Library): When invoking gnatbind, use a response file if thetotal size of the arguments is too large.* Makefile.rtl: (g-sttsne): New object file.Add entry for a-clrefi, s-utf_32, System.Exceptions* Make-lang.in: Remove bogus dependency of s-memory.o on memtrack.o.(GNAT_ADA_OBJS, GNATBIND_OBJS): Add s-except.o.(GNATBIND_OBJS): Add new objects a-clrefi.o and a-comlin.oChange g-string to s-string, g-os_lib to s-os_libChange all g-utf_32 references to s-utf_322007-06-06 Tristan Gingold <gingold@adacore.com>Olivier Hainque <hainque@adacore.com>* init.c: Do not adjust IP of an imported VMS exception of ia64.LIB$STOP is called to raise an exception and the IP of the exceptionis the instruction right after the call.(__gnat_adjust_context_for_raise, AIX): Implement.(__gnat_error_handler, AIX): Accept SIGINFO related arguments and calladjust_context_for_raise before Raise_From_Signal_Hanler.(__gnat_install_handler, AIX): Add SA_SIGINFO to the sa_flags, to ensuresiginfo is passed to the handler, necessary to let the zcx propagationengine unwind past it.2007-06-06 Olivier Hainque <hainque@adacore.com>* initialize.c (__gnat_initialize for vxworks): Update documentationon the ZCX support, using different sets of crtstuff objects than withGCC 3.4.2007-06-06 Robert Dewar <dewar@adacore.com>* layout.ads, layout.adb (Adjust_Esize_Alignment): Move spec to packagespec from body(Layout_Type): Fix recomputation of size from alignment.2007-06-06 Ed Schonberg <schonberg@adacore.com>Javier Miranda <miranda@adacore.com>* sem_ch12.adb (Analyze_Associations): Diagnose use of an othersassociation in an instance.(Copy_Generic_Node): If the node is a string literal, no need to copyits descendants.(Is_Generic_Formal): For a formal subprogram, the declaration is thegrandparent of the entity.(Analyze_Formal_Interface_Type): Transform into a full type declaration,to simplify handling of formal interfaces that derive from other formalinterfaces.(Instantiate_Subprogram_Body): The defining unit name of the body ofthe instance should be a defining identifier.(Install_Formal_Packages): make global to the package, for use ininstantiations of child units.(Analyze_Package_Instantiation): Do not attempt to set information on anenclosing master of an entry when expansion is disabled.(Instantiate_Type): If the actual is a tagged synchronized type and thegeneric ancestor is an interface, create a generic actual for thecorresponding record.(Analyze_Formal_Derived_Interface_Type): Rewrite as a derived typedeclaration, to ensure that the interface list is processed correctly.(Inline_Instance_Body): If enclosing scope is an instance body, removeits entities from visibiility as well.(Pre_Analyze_Actuals): if the actual is an allocator with constraintsgiven with a named association, analyze the expression only, not thediscriminant association itself.(Reset_Entity): If the analysis of a selected component is transformedinto an expanded name in the prefix of a call with parameters, do nottransform the original node into an expanded name, to prevent visibilityerrors in the case of nested generics.(Check_Private_View): For an array type, check whether the index typesmay need exchanging.2007-06-06 Arnaud Charlet <charlet@adacore.com>Vincent Celier <celier@adacore.com>* lib-writ.adb: Handle Convention_CIL in addition to Convention_Java,since both are separated.Add support for imported CIL packages.Add further special handling of "value_type" for CIL.Add special handling of pragma Import for CIL.* make.ads, make.adb: When switch -eS is used, direct all outputs tostandard output instead of standard error, except errors.(Absolute_Path): Use untouched casing for the parent directory.(Add_Library_Search_Dir): Use the untouched directory name.(Add_Source_Search_Dir): Idem.(Change_To_Object_Directory): Update output to use proper casing.(Create_Binder_Mapping_File): Use the untouched filename to setALI_Name.(Gnatmake): Use untouched library and executable directory names.(Insert_Project_Sources): Use untouched filename for spec and body.(Is_In_Object_Directory): Use untouched object directory.(Mark_Directory): Idem.(Collect_Arguments_And_Compile): Ensure that Full_Source_File alwayscontains the non-canonical filename in all cases.(Change_To_Object_Directory): In verbose mode, display the name of theobject directory we're changing to.(Compile_Sources): Make sure, when a project file is used, to compilethe body of the unit, when there is one, even when only the spec isrecorded in an ALI file.(Gcc_Switches, Binder_Switches, Linker_Switches): Tables moved from thespec to the body.(Report_Compilation_Failed): New procedure(Bind, Display_Commands, Compile_Sources, Initialize, Scan_Make_Arg):procedures moved from the spec to the body.(Extract_Failure): Removed, not usedReplace explicit raises of exception Bind_Failed and Link_Failed withcalls to Make_Failed with the proper message.Replace explicit raises of exception Compilation_Failed with calls toprocedure Report_Compilation_Failed.(Initialize): Create mapping files unconditionally when using projectfiles.* sem_mech.adb: (Name_CIL, Name_CIL_Constructor, Convention_CIL,Pragma_CIL_Constructor): New names.* targparm.ads, targparm.adb(Compiler_System_Version): Removed, no longer used.(Get_Target_Parameters): Relax checks on system.ads validity. Addhandling of two new system flags: JVM and CLI.2007-06-06 Jose Ruiz <ruiz@adacore.com>Arnaud Charlet <charlet@adacore.com>* Makefile.in (LIBGNAT_TARGET_PAIRS for VxWorks 6): For the RTP runtime, use the default s-interr body that provides interrupt supportbased on signals.(LIBGNAT_TARGET_PAIRS for x86-linux): Use specialized versions ofa-exetim.ad{s,b}, a-extiti.ad{s,b}, a-rttiev.ad{s,b}, s-osinte.ad{s,b},g-soccon.ads, and s-taprop.adb for the marte run time.(EXTRA_GNATRTL_TASKING_OBJS for x86-linux): Execution time clocks andtimers are supported on marte.(EH_MECHANISM for marte): Do not use ZCX.(THREADSLIB for marte): Use -lmarte.Add mlib-tgt-vms.o to the list of objects for gnatmake for VMSAdd mlib-tgt-specific.o to gnatmake objectsmlib-tgt-<platforms>.adb is now the body of MLib.Tgt.Specific, nolonger of MLib.Tgt.(LIBGNAT_TARGET_PAIRS for vxworks): When building a run time for VxWorks6, either kernel or rtp, use a specialized version of s-osinte.ads.2007-06-06 Pascal Obry <obry@adacore.com>* mkdir.c (__gnat_mkdir): Add support for UTF-8.2007-06-06 Vincent Celier <celier@adacore.com>* mlib.ads, mlib.adb (Build_Library): Do not use hard-coded directoryseparator, use instead the proper host directory separator.(Copy_ALI_Files): Make sure that an already existing ALI file in theALI copy dir is writable, before doing the copy.* mlib-utl.ads, mlib-utl.adb:(Gcc): If length of command line is too long, put the list of objectfiles in a response file, if this is supported by the platform.(Ar): If invocation of the archive builder is allowed to be done inchunks and building it in one shot would go above an OS dependentlimit on the number of characters on the command line, build the archivein chunks.2007-06-06 Vincent Celier <celier@adacore.com>* osinte-c.ads, osint-c.adb (Set_Library_Info_Name): Fail if base nameof specified object file is not equal to base name of source.2007-06-06 Javier Miranda <miranda@adacore.com>Hristian Kirtchev <kirtchev@adacore.com>Ed Schonberg <schonberg@adacore.com>* sem_ch3.adb (Process_Full_View): Propagate the CPP_Class attribute tothe full type declaration.(Analyze_Component_Declaration): Add local variable E to capture theinitialization expression of the declaration. Replace the occurences ofExpression (N) with E.(OK_For_Limited_Init_In_05): Allow initialization of class-widelimited interface object with a function call.(Array_Type_Declaration): If the declaration lacks subtype marks forindices, create a simple index list to prevent cascaded errors.(Is_Null_Extension): Ignore internal components created for secondarytags when checking whether a record extension is a null extension.(Check_Abstract_Interfaces): Add missing support for interface subtypesand generic formals.(Derived_Type_Declaration): Add missing support for interface subtypesand generic formals.(Analyze_Object_Declaration): If an initialization expression ispresent, traverse its subtree and mark all allocators as staticcoextensions.(Add_Interface_Tag_Component): When looking for components that may besecondary tags, ignore pragmas that can appear within a recorddeclaration.(Check_Abstract_Overriding): an inherited function that dispatches onresult does not need to be overriden if the controlling type is a nullextension.(Mentions_T): Handle properly a 'class attribute in an anonymous accesscomponent declaration, when the prefix is an expanded name.(Inherit_Component): If the derivation is for a private extension,inherited components remain visible and their ekind should not be setto Void.(Find_Type_Of_Object): In the case of an access definition, always setIs_Local_Anonymous_Access. We were previously not marking the anonymousaccess type of a return object as a local anonymous type.(Make_Index): Use Ambiguous_Character to report ambiguity on a discreterange with character literal bounds.(Constrain_Array): Initialize the Packed_Array_Type field to Empty.(Access_Subprogram_Declaration): Indicate that the type declarationdepends on an incomplete type only if the incomplete type is declaredin an open scope.(Analyze_Subtype_Declaration): Handle properly subtypes ofsynchronized types that are tagged, and that may appear as genericactuals.(Access_Subprogram_Declaration): An anonymous access to subprogram canappear as an access discriminant in a private type declaration.(Add_Interface_Tag_Components): Complete decoration of the componentcontaining the tag of a secondary dispatch table and the componentcontaining the offset to the base of the object (this latter componentis only generated when the parent type has discriminants --as documentedin this routine).(Inherit_Components): Use the new decoration of the tag components toimprove the condition that avoids inheriting the components associatedwith secondary tags of the parent.(Build_Discriminanted_Subtype): Indicate to the backend that thesize of record types associated with dispatch tables is known atcompile time.(Analyze_Subtype_Declaration): Propagate Is_Interface flag when needed.(Analyze_Interface_Declaration): Change setting of Is_Limited_Interfaceto include task, protected, and synchronized interfaces as limitedinterfaces.(Process_Discriminants): Remove the setting ofIs_Local_Anonymous_Access on the type of (anonymous) accessdiscriminants of nonlimited types.(Analyze_Interface_Type_Declaration): Complete the decoration of theclass-wide entity it is is already present. This situation occurs ifthe limited-view has been previously built.(Enumeration_Type_Declaration): Initialize properly the Enum_Pos_To_Repfield.(Add_Interface_Tag_Components.Add_Tag): Set the value of the attributeRelated_Interface.2007-06-06 Ed Schonberg <schonberg@adacore.com>* sem_aggr.adb (Resolve_Record_Aggregate): Ignore internal componentsof the type that specify the position of interface tags when the typeinherits discriminated array components from the parent type.If a component is initialized with a box, check for the presence of adefault expression in its declaration before using its defaultinitialization procedure.(Resolve_Record_Aggregate): If a component is box-initialized, and thecomponent type has a discriminants, create a partial aggregate for itby copying the discriminants of the component subtype.Reject attempt to initialize a discriminant with a box.(Array_Aggr_Subtype): Indicate to the backend that the size of arraysassociated with dispatch tables is known at compile time.(Get_Value): If an association in a record aggregate has a boxassociation, and the corresponding record component has a defaultexpression, always copy the default expression, even when theassociation has a single choice, in order to create a properassociation for the expanded aggregate.2007-06-06 Ed Schonberg <schonberg@adacore.com>Robert Dewar <dewar@adacore.com>* par-ch12.adb (P_Generic_Associations): The source position of anOthers association is that of the others keyword, not that of the tokenthat follows the box.(P_Formal_Type_Definition): Handle formal access types that carry anot null indicator.* par-ch3.adb (P_Known_Discriminant_Part_Opt, P_Component_Items): Ifmultiple identifier are present, save Scan_State before scanning thecolon, to ensure that separate trees are constructed for eachdeclaration.(P_Identifier_Declarations): For object declaration, set new flagHas_Init_Expression if initialization expression present.(P_Null_Exclusion): Properly diagnose NOT NULL coming before NULLImprove NOT NULL error messages2007-06-06 Robert Dewar <dewar@adacore.com>* par-ch4.adb: (P_Name): Recover from literal used as name2007-06-06 Vincent Celier <celier@adacore.com>* prep.ads, prep.adb (Expression): New Boolean parameter Complemented,defaulted to False.In the "not" case, recursive call with Complemented set to True.Do not allow "or" or "and" operators when Complemented is True.2007-06-06 Vincent Celier <celier@adacore.com>* prj.adb (Project_Empty): Gives default value for new componentLibgnarl_Needed* prj-attr.ads: Minor reformatting* prj-env.ads, prj-env.adb (For_All_Object_Dirs): Register objectdirectory using the untouched casing.(For_All_Source_Dirs): Idem.* prj-ext.ads, prj-ext.adb (Search_Directories): New table to recorddirectories specified with switches -aP.(Add_Search_Project_Directory): New procedure(Initialize_Project_Path): Put the directories in tableSearch_Directories in the project search path.(Initialize_Project_Path): For VMS, transform into canonical form theproject path.2007-06-06 Arnaud Charlet <charlet@adacore.com>* restrict.ads, restrict.adb (No_Exception_Handlers_Set): Only returntrue if configurable run-time or No_Run_Time is set.(Set_Restriction): Avoid setting restriction No_Elaboration_Code whenprocessing an unit which is not the one being compiled.2007-06-06 Arnaud Charlet <charlet@adacore.com>* s-arit64.adb: Replace System.Pure_Exceptions by Ada 05 syntax.Replace UC by Ada.UC* s-bitops.adb: Get rid of System.Pure_Exceptions.Replace UC by Ada.UC2007-06-06 Robert Dewar <dewar@adacore.com>* scng.adb: (Check_End_Of_Line): Deal with very long lines2007-06-06 Robert Dewar <dewar@adacore.com>* sem.ads, sem.adb (Semantics): Save and restore Global_Discard_NamesRemove no longer used nodes.2007-06-06 Javier Miranda <miranda@adacore.com>Ed Schonberg <schonberg@adacore.com>Robert Dewar <dewar@adacore.com>* sem_ch10.ads, sem_ch10.adb (Analyze_Compilation_Unit): Disable checkon obsolescent withed unit in case of limited-withed units.(Analyze_Compilation_Unit): Add guard to code that removed aninstantiation from visibility, to prevent compiler aborts wheninstantiation is abandoned early on.(Install_Limited_Withed_Unit): Recognize a limited-with clause on thecurrent unit being analyzed, and Distinguish local incomplete typesfrom limited views of types declared elsewhere.(Build_Limited_Views.Decorate_Tagged_Type): Add documentationto state that the class-wide entity is shared by the limited-viewand the full-view.(Analyze_With_Clause): Improve placement of flag for case ofunimplemented unit.(Analyze_With_Clause): Recognize use of GNAT.Exception_Traces in amanner similar to GNAT.Current_Exception. This is a violation ofrestriction (No_Exception_Propagation), and also inhibits theoptimization of local raise to goto.(Analyze_With_Clause): Check for Most_Recent_Exception being with'ed,and if so set Most_Recent_Exception_Used flag in Opt, and also checkfor violation of restriction No_Exception_Propagation.2007-06-06 Javier Miranda <miranda@adacore.com>Hristian Kirtchev <kirtchev@adacore.com>Gary Dismukes <dismukes@adacore.com>* sem_ch11.adb (Analyze_Exception_Handlers): Add barrier to avoid theuse of entity Exception_Occurrence if it is not available in thetarget run-time.* sem_ch9.adb (Analyze_Protected_Type, Analyze_Task_Type): Whenconcurrent types are declared within an Ada 2005 generic, build theircorresponding record types since they are needed for overriding-relatedsemantic checks.(Analyze_Protected_Type): Rearrange and simplify code for testing that aprotected type does not implement a task interface or a nonlimitedinterface.(Analyze_Task_Type): Rearrange and simplify code for testing that a tasktype does not implement a protected interface or a nonlimited interface.(Single_Task_Declaration, Single_Protected_Declaration): use originalentity for variable declaration, to ensure that debugging informationis correcty generated.(Analyze_Protected_Type, Analyze_Task_Type): Do not call expanderroutines if the expander is not active.(Analyze_Task_Body): Mark all handlers to stop optimization of localraise, since special things happen for task exception handlers.* sem_disp.adb (Check_Controlling_Formals): Add type retrieval forconcurrent types declared within a generic.(Check_Dispatching_Operation): Do not emit warning about late interfaceoperations in the context of an instance.(Check_Dispatching_Call): Remove restriction against calling adispatching operation with a limited controlling result.(Check_Dispatching_Operation): Replace calls to Fill_DT_Entry andRegister_Interface_DT_Entry by calls to Register_Primitive.(Check_Dispatching_Formals): Handle properly a function with acontrolling access result.2007-06-06 Robert Dewar <dewar@adacore.com>Arnaud Charlet <charlet@adacore.com>* sem_ch13.adb (Analyze_Attribute_Definition_Clause, case Stream_Size):Check for restriction No_Implementation_Attributes if in Ada 95 mode.(Storage_Pool): Do not crash when RE_Stack_Bounded_Pool is not available(Analyze_Attribute_Definition_Clause [External_Tag]): Generate errormessage when using a VM, since this attribute is not supported.(Analyze_Record_Representation_Clause): Give unrepped component warnings* usage.adb: Add new warning for renaming of function return objectsIndicate that -gnatwp and -gnatwP concern front-end inliningAdd line for -gnatygAdd usage information for -gnatw.c/C2007-06-06 Robert Dewar <dewar@adacore.com>Ed Schonberg <schonberg@adacore.com>* sem_ch5.adb(Find_Var): Do not consider function call in test for infinite loopwarning if warnings set off for function entity.(One_Bound): Do not create a temporary for a loop bound if it is acharacter literal.(Analyze_Assignment): Traverse the right hand side of an assignment andmark all allocators as static coextensions.(Analyze_Assignment): Exempt assignments involving a dispatching callto a function with a controlling access result from the check requiringthe target to be class-wide.2007-06-06 Hristian Kirtchev <kirtchev@adacore.com>Ed Schonberg <schonberg@adacore.com>Robert Dewar <dewar@adacore.com>Javier Miranda <miranda@adacore.com>* sem_res.ads, sem_res.adb (Process_Allocator): Do not propagate thechain of coextensions when an allocator serves as the root of such achain.(Propagate_Coextensions): Remove the test for the root being anallocator.(Resolve_Allocator): Add condition to ensure that all future decorationoccurs on an allocator node. Add processing and cleanup for staticcoextensions.(Valid_Conversion): If the operand type is the limited view of aclass-wide type, use the non-limited view is available to determinelegality of operation.(Ambiguous_Character): move to spec, for use elsewhere.(Ambiguous_Character): Handle Wide_Wide_Character in Ada 2005 mode(Resolve_Range): Diagnose properly an ambiguous range whose bounds arecharacter literals.(Resolve_Arithmetic_Op): Call Activate_Division_Check instead of settingDo_Division_Check flag explicitly.(Resolve_Actuals): If the actual is of a synchronized type, and theformal is of the corresponding record type, this is a call to aprimitive operation of the type, that is declared outside of the type;the actual must be unchecked-converted to the type of the actual(Resolve_Call): Kill all current values for any subprogram call ifflag Suppress_Value_Tracking_On_Call is set.(Resolve_Type_Conversion): Generate error message the the operandor target of interface conversions come from a limited view.(Check_Infinite_Recursion): Ignore generated calls(Check_Allocator_Discrim_Accessibility): New procedure for checkingthat an expression that constrains an access discriminant in anallocator does not denote an object with a deeper level than theallocator's access type.(Resolve_Allocator): In the case of an allocator initialized by anaggregate of a discriminated type, check that associations for anyaccess discriminants satisfy accessibility requirements by callingCheck_Allocator_Discrim_Accessibility.(Resolve_Equality_Op): Handle comparisons of anonymous access tosubprogram types in the same fashion as other anonymous access types.(Resolve_Concatenation_Arg): Remove initial character '\' in an errormessage that is not a continuation message.(Resolve_Type_Conversion): Add missing support for conversion tointerface type.(Resolve_Actuals): Introduce a transient scope around the call if anactual is a call to a function returning a limited type, because theresulting value must be finalized after the call.(Resolve_Actuals): If the call was given in prefix notations, checkwhether an implicit 'Access reference or implicit dereference must beadded to make the actual conform to the controlling formal.2007-06-06 Robert Dewar <dewar@adacore.com>Javier Miranda <miranda@adacore.com>* sem_ch7.adb (Check_Anonymous_Access_Types): Fix error for null body(Derive_Inherited_Private_Subprogram): Code cleanup. In case of explicitoverriding of an inherited private subprogram now there is no need toinherit its dispatching slot and reduce the size of the dispatch table.Set_All_DT_Position now ensures that the same slot is now assigned toboth entities. This is required to statically build the dispatch table.(Declare_Inherited_Private_Subprograms): Rewriten to avoid the needof calling Set_All_DT_Position to re-evaluate the position of theentries in the dispatch table. Such reevaluation is not desired ifthe tagged type is already frozen.2007-06-06 Hristian Kirtchev <kirtchev@adacore.com>Gary Dismukes <dismukes@adacore.com>Robert Dewar <dewar@adacore.com>Javier Miranda <miranda@adacore.com>* sem_util.ads, sem_util.adb (May_Be_Lvalue): A prefix of an attributereference acts as an lvalue when the attribute name modifies the prefix(Is_Coextension_Root): New routine.(Mark_Static_Coextensions): New routine.(Type_Access_Level): Revise code for checking the level of theanonymous access type of a return object.(Safe_To_Capture_Value): Not safe to capture if Address_Taken(Matches_Prefixed_View_Profile): Remove the no longer necessaryretrieval of the corresponding controlling record type.(Find_Overridden_Synchronized_Primitive): Code cleanup. Add handling ofconcurrent types declared within a generic as well as class wide types.Emit a mode incompatibility error whenever a protected entry or routineoverride an interface routine whose first parameter is not of mode"out", "in out" or access to variable.(Overrides_Synchronized_Primitive): Rename toFind_Overridden_Synchronized_Primitive.(Collect_Interface_Components): New subprogram that collects all thecomponents of a tagged record containing tags of secondary dispatchtables.(Add_Global_Declaration): New procedure(Abstract_Interface_List): Handle properly the case of a subtype of aprivate extension.(Type_Access_Level): In the case of a type whose parent scope is areturn statement, call Type_Access_Level recursively on the enclosingfunction's result type to determine the level of the return object'stype.(Build_Elaboration_Entity): Build name of elaboration entity from thescope chain of the entity, rather than the unit name of the file name.(Check_Nested_Access): New procedure.(Has_Up_Level_Access, Set_Has_Up_Level_Access): New procedures.(Find_Direct_Name, Note_Possible_Modification): Use Check_Nested_Access.(Get_Renamed_Entity): Utility routine for performing common operationof chasing the Renamed_Entity field of an entity.2007-06-06 Robert Dewar <dewar@adacore.com>* sem_elab.adb (Check_A_Call): Specialize elaboration warnings onelaboration model(Check_A_Call): Add check for entry call which was causing blowup2007-06-06 Olivier Hainque <hainque@adacore.com>* raise-gcc.c (__gnat_eh_personality): Tweak the signature and addspecial code on ia64-vms to handle major incompatibilities between theGCC unwinding ABI and the VMS Condition Handling Facility, both callingthis routine with a very different set of arguments and expectations onthe return value.2007-06-06 Thomas Quinot <quinot@adacore.com>* socket.c (__gnat_close_signalling_fd): New function.(__gnat_safe_gethostbyaddr, __gnat_safe_gethostbyname,__gnat_safe_getservbyname, __gnat_safe_getservbyport):New supporting functions for task safe Netdb operations.2007-06-06 Thomas Quinot <quinot@adacore.com>Olivier Hainque <hainque@adacore.com>* a-except-2005.ads, a-except-2005.adb(Raise_From_Controlled_Operation): New procedure in(private part of) Ada.Exceptions (standard runtime version). Used toprovide informational exception message when Program_Error is raised asa result of an Adjust or Finalize operation propagating an exception.(Rmsg_28): Fix description for E.4(18) check.(Raise_Current_Excep): Call Debug_Raise_Exception just beforepropagation starts, to let debuggers know about the event in a reliablefashion.Take the address of E and dereference to make sure it is homed on stackand prevent the stores from being deleted, necessary for properdebugger behavior on "break exception" hits.(Local_Raise): Moved to System.Exceptions* s-finimp.adb (Raise_From_Finalize): Code to construct an appropriateexception message from the current occurrence and raise Program_Errorhas been moved to Ada.Exceptions.Raise_From_Controlled_Operation.2007-06-06 Jose Ruiz <ruiz@adacore.com>Arnaud Charlet <charlet@adacore.com>* s-taprob.adb (Unlock): Change the ceiling priority of the underlyinglock, if needed.* s-taprop.ads (Set_Ceiling): Add this procedure to change the ceilingpriority associated to a lock.* s-tpoben.adb ([Vulnerable_]Complete_Task, Lock_Entries): Relaxassertion to take into account case of no abort restriction.(Initialize_Protection_Entries): Add initialization for the fieldNew_Ceiling associated to the protected object.(Unlock_Entries): Change the ceiling priority of the underlying lock, ifneeded.* s-solita.adb (Get_Current_Excep): Moved back to s-tasini/s-tarest,since this function needs to be set consistently with Update_Exception.* s-tarest.adb (Get_Current_Excep): Moved back to s-tasini/s-tarest,since this function needs to be set consistently with Update_Exception.* s-taskin.ads: Update comments onInterrupt_Server_Blocked_On_Event_Flag.(Unbind_Handler): Fix handling of server_task wakeup(Server_Task): Set self's state so that Unbind_Handler can takeappropriate actions.(Common_ATCB): Now use a constant from System.Parameters to determinethe max size of the Task_Image field.* s-tassta.adb (Task_Wrapper): Now pass the overflow guard to theInitialize_Analyzer function.([Vulnerable_]Complete_Task, Lock_Entries): Relax assertion totake into account case of no abort restriction.([Vulnerable_]Complete_Master): Modify assertion.* s-tataat.adb (Finalize): Use the nestable versions ofDefer/Undefer_Abort.* s-tpobop.adb (Protected_Entry_Call): Relax assertion.* s-tpobop.ads: Update comments.* s-tposen.adb (Protected_Single_Entry_Call): Call Lock_Entry insteadof locking the object manually, to avoid inconsistencies betweenLock/Unlock_Entry assertions.* s-interr.ads, s-interr.adb (Server_Task): Fix race condition whenterminatingapplication and System.Parameters.No_Abort is True.Update comments on Interrupt_Server_Blocked_On_Event_Flag.(Unbind_Handler): Fix handling of server_task wakeup(Server_Task): Set self's state so that Unbind_Handler can takeappropriate actions.2007-06-06 Thomas Quinot <quinot@adacore.com>* s-finroo.ads, s-finroo.adb (Read, Write): Use null proceduredeclarations instead of an explicit null body, for conciseness.2007-06-06 Robert Dewar <dewar@adacore.com>* sem_eval.adb (Eval_Relational_Op): nothing to do if an operand is anillegal aggregate and the type is still Any_Composite.(Subtypes_Statically_Match): Fix problem of empty discriminant list2007-06-06 Ed Schonberg <schonberg@adacore.com>* sem_smem.adb (Check_Shared_Var): Check explicitly for as task object,to prevent subsequent expansion.2007-06-06 Robert Dewar <dewar@adacore.com>* sinput-l.ads, sinput-l.adb: implement a new pragma No_Body2007-06-06 Ed Schonberg <schonberg@adacore.com>Robert Dewar <dewar@adacore.com>* sprint.ads, sprint.adb (Sprint_Node_Actual): Output aggregate forexceptions.(Write_Itype): Handle case of string literal subtype, whichcomes up in this context.(Update_Itype): when debugging expanded code, update sloc of itypesassociated with defining_identifiers and ranges, for gdb use.(Sprint_Node_Actual): Add static keyword to object or exceptiondeclaration output if Is_Statically_Allocated is True.(Sprint_End_Label): Set entity of end marker for a subprogram, package,or task body, so that the tree carries the proper Sloc information fordebugging use.(Write_Indent): In Dump_Source_Text mode, ignore implicit label nodes2007-06-06 Arnaud Charlet <charlet@adacore.com>* s-secsta.adb (Chunk): Ensure this object has a static size known atcompile time, to avoid dynamic memory allocation(Elaboration code): Only use dynamic memory allocation when needed.2007-06-06 Quentin Ochem <ochem@adacore.com>* s-stausa.ads, s-stausa.adb (Initialize_Analyzer): Added parameter"Overflow_Guard".(Stack_Analyzer): Added field "Overflow_Guard"(Task_Result): Added field "Overflow_Guard".(Index_Str): New constant.(Task_Name_Str): New constant.(Actual_Size_Str): New constant.(Pattern_Array_Element_Size): New constant.(Get_Usage_Range): New subprogram.(Output_Result): Added parameter Max_Size_Len and Max_Actual_Use_Len.Now align the output.Added comments.(Initialize): Added value for Overflow_Guard.(Fill_Stack): Use constant Pattern_Array_Elem_Size when relevant.Update the value of the overflow guard according to the actualbeginning of the pattern array.(Initialize_Analyzer): Added parameter Overflow_Guard.Take this parameter into accound when computing the max size.(Compute_Result): Use constant Pattern_Array_Elem_Size when relevant.(Report_Result): Removed extra useless procedure.Updated call to Output_Result.Moved full computation of the Task_Result here.2007-06-06 Thomas Quinot <quinot@adacore.com>* g-soccon-darwin.ads, gen-soccon.c: Add new constantThread_Blocking_IO, always True by default, set False on a per-runtimebasis.Add Windows-specific constantsAdd new constant Need_Netdb_Buffer.Add new macros to indicate whether getXXXbyYYY is thread safe and, ifnot, whether to use getXXXbyYYY_r.* gsocket.h: Add new constant Need_Netdb_Buffer.Add new macros to indicate whether getXXXbyYYY is thread safe and, ifnot, whether to use getXXXbyYYY_r.2007-06-06 Eric Botcazou <ebotcazou@adacore.com>* s-stoele.ads, s-stoele.adb: Move inline_always subprograms earlierthan their first call.Add type Dummy_Communication_Block used in the generation of the pre-defined dispatching primitive _disp_asynchronous_select.(Storage_Element): Put Pragma Universal_Aliasing on it.2007-06-06 Vincent Celier <celier@adacore.com>* a-dirval-vms.adb, a-dirval.ads, a-dirval.adb (Windows): New Booleanfunction.* a-dirval-mingw.adb (Is_Valid_Path_Name): Forbid a path with a driveletter if it is not followed by a '/' or a '\'.(Windows): New Boolean function* a-direct.ads, a-direct.adb: Remove unnecessary and misplaced pragmaAda 2005.(Containing_Directory): On Windows, keep at least one '/' or '\' after adrive letter.(Containing_Directory): Raise Use_Error when the directory is a rootdirectory.(Extension): When returning the result, use a conversion to Result_Type,not a qualification.2007-06-06 Robert Dewar <dewar@adacore.com>* stylesw.ads, stylesw.adb (Set_GNAT_Style_Check): New procedure(Set_Style_Check_Options): Recognize new -gnatyg style switch* switch-c.adb (Scan_Front_End_Switches, case -gnatg): SetWarn_On_Non_Local_Exception to False, to turn off warnings forNo_Exception_Propagation in ZFP runtime.(Scan_Front_End_Switches): Fix handling of --RTS switch for non GCCback-ends.(Scan_Front_End_Switches): For 'g', call Set_GNAT_Style_Checks2007-06-06 Vincent Celier <celier@adacore.com>* switch-b.adb (Scan_Binder_Switches): Add processing for newswitches -R and -Z* switch-m.adb (Normalize_Compiler_Switches): Do not record switch -E(Scan_Make_Switches): Recognize new switch -aP2007-06-06 Matthew Gingell <gingell@adacore.com>Jose Ruiz <ruiz@adacore.com>* s-stchop-vxworks.adb (Set_Stack_Info): Instead of trying to map theVxWorks task descriptor in the Ada run time, call a C subprogram(__gnat_get_stack_info) that extracts the required information.* sysdep.c: Back out temporary lynxos workaround.(__gnat_get_stack_info): Add this procedure that passes to the Ada runtime the stack information associated to the currently executing task.Only VxWorks systems require this function.2007-06-06 Eric Botcazou <ebotcazou@adacore.com>* tracebak.c (FRAME_OFFSET): Add parameter FP. On SPARC/Solaris, do notadd the stack bias if the offset is computed from a frame address.(__gnat_backtrace): Adjust for above change.2007-06-06 Thomas Quinot <quinot@adacore.com>* types.h, types.ads: Rename PE_Illegal_CW_Actual_E_4_18 toPE_Non_Transportable_Actual.(By_Descriptor_Last): New constant.(By_Copy_Return): Likewise.2007-06-06 Vincent Celier <celier@adacore.com>* vms_conv.adb (Process_Argument): Keep arguments starting with '+' asis.* vms_data.ads: Add entries for -gnatw.x and -gnatw.X/STYLE_CHECKS=GNAT: Change meaning to -gnatyg/GNAT_INTERNAL: New compiler qualifier corresponding to -gnatgAdd missing comment for /OPTIMIZE=SPACEAdd entry for OPTIMIZE=SPACEAdd new qualifier /ALL_PROJECTS (= -U) for GNAT LISTAdd documentation for new qualifiers corresponding to -gnatw.c/.C2007-06-06 Vincent Celier <celier@adacore.com>Robert Dewar <dewar@adacore.com>* xgnatugn.adb: Allow dots to be used in ug_words (-gnatw.c and-gnatw.C)* gnat_ugn.texi: Fix ordering of -g switch for gnatmakeDocument gnatbind switch -a(case Constructions): Document that variables declarations are allowedfor previously declared variables.Fix external lib project example-gnatg: Indicate new VMS qualifier /GNAT_INTERNALIndicate that "#if not X or Y then" is not allowed in input files tognatprep.Document gnatw.x and gnatw.X warning flagsMention -Winline switch to activate warnings when back-end inlining isineffective.Add gnatcheck rule descriptionsDescribe how to use the GNAT driver to call a tool on a closure.Describe how to run project-wide checks or metrics.Document gnatbind's -R optionUpdated to account for Ada 2005 support* gnat_rm.texi (Case Construction): Allow variable declarations forpreviously declared variables.(Representation Clauses and Pragmas): Lift restriction on alignmentclauses for record types.(Ada.Characters.*): Fix typo in reference to A.3.3(27).Document No_Exception_Propagation restrictionDocument No_Body pragmaUpdated to account for Ada 2005 support; corrected some typos(Implementation Defined Pragmas): Document pragma Universal_Aliasing.* gnat-style.texi: Make it clear that we never use mode IN forprocedures or functions* ug_words: Add entries for -gnatw.x and -gnatw.XAdd entries for -gnatw.c/.C2007-06-06 Pascal Obry <obry@adacore.com>Vincent Celier <celier@adacore.com>* makegpr.adb (Add_Archive_Path): Use untouched object and librarydirs and library name.(Build_Global_Archive): Idem. Minor code clean-up. Removes duplicatecomments.(Build_Library): Idem.(Compile_Individual_Sources): Idem.(Compile_Link_With_Gnatmake): Idem.(Compile_Sources): Idem.(Get_Imported_Directories): Idem.(Link_Executables): Idem. Same change for the executable dir.(Check_Compilation_Needed): C_Source_Path new variable containingthe canonical form of Source_Path to check against the source namesin the dependency file.(Build_Global_Archive, Compile_Individual_Sources, Compile_Sources): Inverbose mode, display the name of the object directory we're changingto.(Saved_Switches): New name of table X_Switches(Scan_Arg): Recognize new switch -aP and save in table Saved_Switches(Usage): New line for switch -aP(Get_Imported_Directories.Add): Make sure that Add_Arg is True beforetesting if a directory should be added to the search path.2007-06-06 Javier Miranda <miranda@adacore.com>* a-cidlli.ads, a-cdlili.ads, a-cohama.ads, a-coinve.ads,a-convec.ads (Empty_Vector, Empty_Map, Empty_List): Move this objectdeclaration after freezing point of all its associated tagged types;otherwise such types are frozen too early.2007-06-06 Robert Dewar <dewar@adacore.com>* a-reatim.adb: Documentation addition* g-cgideb.adb: Minor code reorganization* tree_io.adb, treepr.adb, cstand.adb, krunch.adb, par.adb,mdll-utl.adb, par-ch5.adb, par-tchk.adb, s-exctab.ads, s-memory.ads,s-osprim.ads, s-restri.ads, s-soflin.ads: Minor reformatting.* debug.ads, debug.adb (Get_Debug_Flag_K): Remove unused obsoletefunction. Change name New_Scope to Push_Scope(Get_Debug_Flag_K): Remove unused obsolete function.* exp_ch8.adb, inline.adb, sem_ch8.ads: Change name New_Scope toPush_Scope.* makeusg.adb: Update Copyright noticeAdd line for switch -aP* makeusg.adb: Fix wording of some usage messages* s-assert.adb (Raise_Assert_Failure): Add call toDebug_Raise_Assert_Failure.* s-unstyp.ads (type Packed_Bytes2): Change alignment to use 'Min(2, Standard'Alignment) for compatibility with AAMP (where alignmentis restricted to 1).* s-wchjis.adb: Remove use of System.Pure_Exceptions* tbuild.ads, tbuild.adb (Make_Implicit_Exception_Handler): Set thenode location to No_Location when we're not debugging the expandedcode.2007-05-22 Alexandre Oliva <aoliva@redhat.com>* misc.c (enumerate_modes): Consider log2_b to always be one.2007-05-14 Rafael Ávila de Espíndola <espindola@google.com>* misc.c (LANG_HOOKS_UNSIGNED_TYPE): Remove.2007-05-02 Pascal Obry <obry@adacore.com>* gnatchop.adb (Write_Source_Reference_Pragma): Change implementationto use Stream_IO.File_Type. This is needed to make use of the UTF-8encoding support of Stream_IO.(Write_Unit): Idem.* adaint.h, adaint.c (__gnat_os_filename): New routine. Returns thefilename and corresponding encoding to match the OS requirement.(__gnat_file_exists): Do not call __gnat_stat() on Windows as thisroutine will fail on specific devices like CON: AUX: ...PR ada/29856: Add missing braces2007-04-22 Andrew Pinski <andrew_pinski@playstation.sony.com>PR ada/31660* ada-tree.h (lang_tree_node): Fix typo in chain_next.2007-04-21 Jan Hubicka <jh@suse.cz>* misc.c (gnat_expand_body): Don't call target for destructors,avoid redundant check on syntax errors.2007-04-21 Andrew Pinski <andrew_pinski@playstation.sony.com>* ada-tree.h (lang_tree_node): Use GENERIC_NEXTinstead of checking GIMPLE_STMT_P in chain_next.2007-04-17 Andreas Krebbel <krebbel1@de.ibm.com>PR ada/31576* system-linux-alpha.ads: Disable constant condition warning for theDefault_Bit_Order variable.* system-linux-s390.ads: Likewise.* system-linux-s390x.ads: Likewise.* system-linux-sparc.ads: Likewise.2007-04-06 Javier Miranda <miranda@adacore.com>Matt Heaney <heaney@adacore.com>Robert Dewar <dewar@adacore.com>a-coprnu.ads, a-cohata.ads, a-chtgop.ads, a-chtgop.adb, a-cgcaso.ads,a-cgarso.ads, a-secain.ads, a-slcain.ads, a-shcain.ads, a-chtgke.ads,a-chtgke.ads, a-coprnu.ads, a-contai.ads, a-chtgke.ads, a-chtgke.adb,a-stwiha.ads, a-strhas.ads, a-lfztio.ads, a-liztio.ads, a-llfzti.ads,a-llizti.ads, a-sfztio.ads, a-siztio.ads, a-ssizti.ads, a-stzfix.ads,a-stzhas.ads, a-szuzha.ads, a-tiunio.ads, a-wwunio.ads, a-ztcoio.ads,a-ztinio.ads, a-zttest.ads, a-zzunio.ads, a-astaco.ads, a-charac.ads,a-chlat1.ads, ada.ads, a-dynpri.ads, a-flteio.ads, a-fwteio.ads,a-inteio.ads, a-intnam.ads, a-ioexce.ads, a-iwteio.ads, a-lfteio.ads,a-lfwtio.ads, a-liteio.ads, a-liwtio.ads, a-llftio.ads, a-llfwti.ads,a-llitio.ads, a-lliwti.ads, a-ncelfu.ads, a-ngcefu.ads, a-ngelfu.ads,a-nlcefu.ads, a-nlcoty.ads, a-nlelfu.ads, a-nllcef.ads, a-nllcty.ads,a-nllefu.ads, a-nscefu.ads, a-nscoty.ads, a-nselfu.ads, a-nucoty.ads,a-nuelfu.ads, a-numeri.ads, a-sfteio.ads, a-sfwtio.ads, a-siteio.ads,a-siwtio.ads, a-ssitio.ads, a-ssiwti.ads, a-storio.ads, a-strfix.ads,a-string.ads, a-stwifi.ads, a-titest.ads, a-unccon.ads, a-uncdea.ads,a-wtcoio.ads, a-wtinio.ads, a-wttest.ads, calendar.ads, directio.ads,i-c.ads, ioexcept.ads, machcode.ads, sequenio.ads, text_io.ads,unchconv.ads, unchdeal.ads, a-widcha.ads, a-zchara.ads, a-stboha.ads,a-stfiha.ads, a-coteio.ads, a-envvar.ads, a-lcteio.ads, a-llctio.ads,a-scteio.ads, a-swbwha.ads, a-swfwha.ads, a-szbzha.ads, a-szfzha.ads,a-tiboio.ads, a-wwboio.ads, a-zzboio.ads, a-dispat.ads, a-tgdico.ads,expander.adb, g-socket.ads, par-labl.adb, sinput-c.adb, s-tarest.ads,s-stchop.ads, g-expect-vms.adb, s-taprop-lynxos.adb,s-taprop-tru64.adb, s-taprop-irix.adb,s-taprop-hpux-dce.adb, s-traceb-hpux.adb,s-taprop-linux.adb, s-taprop-dummy.adb, s-osprim-unix.adb,s-osprim-solaris.adb, s-taprop-solaris.adb, s-taprop-vms.adb,s-osprim-mingw.adb, s-taprop-mingw.adb, s-osprim-posix.adb,s-taprop-posix.adb, a-exexpr-gcc.adb, a-ststio.adb, a-ststio.ads,a-textio.adb, a-textio.ads, a-tideau.adb, a-tideau.ads, a-witeio.adb,a-witeio.ads, a-wtdeau.adb, a-wtdeau.ads, g-calend.adb, g-calend.ads,g-dirope.adb, g-expect.ads, gnatchop.adb, g-spipat.adb, g-spipat.ads,s-direio.adb, s-direio.ads, s-fatgen.adb, s-fatgen.ads, s-parint.adb,s-sequio.adb, s-sequio.ads, s-taprop.ads, s-valdec.adb, s-valdec.ads,s-valint.adb, s-valint.ads, s-vallld.adb, s-vallld.ads, s-vallli.adb,s-vallli.ads, s-valllu.adb, s-valllu.ads, s-valrea.adb, s-valrea.ads,s-valuns.adb, s-valuns.ads, s-valuti.adb, s-valuti.ads, xref_lib.adb,s-stchop.adb, i-vxwork-x86.ads, a-crbtgo.ads, a-crbtgo.adb,a-coorse.ads, a-coorse.adb, a-cohama.ads, a-cohama.adb, a-ciorse.ads,a-ciorse.adb, a-cihama.ads, a-cihama.adb, a-chtgop.ads, a-chtgop.ads,a-coormu.adb, a-ciormu.adb, a-cihase.adb, a-cihase.ads, a-cohase.adb,a-cohase.ads, a-swuwha.ads, a-ciormu.ads, a-coormu.ads, a-rbtgso.ads,a-stunha.ads, a-ciorma.adb, a-coorma.adb, a-ztdeau.adb, a-ztdeau.ads,a-ztexio.adb, a-ztexio.ads: Addition of null-exclusion to anonymousaccess types.Update documentation.Minor rewording.2007-04-06 Robert Dewar <dewar@adacore.com>* system-linux-ia64.ads, system-freebsd-x86.ads, system-lynxos-ppc.ads,system-lynxos-x86.ads, system-linux-x86_64.ads, system-tru64.ads,system-vxworks-sparcv9.ads, system-solaris-x86.ads, system-irix-o32.ads,system-irix-n32.ads, system-hpux.ads, system-vxworks-m68k.ads,system-linux-x86.ads, system-vxworks-mips.ads, system-interix.ads,system-solaris-sparc.ads, system-solaris-sparcv9.ads, system-vms.ads,system-mingw.ads, system-vms-zcx.ads, system-vxworks-ppc.ads,system-vxworks-alpha.ads, system-vms_64.ads, system-darwin-ppc.ads,system-vxworks-x86.ads, system-linux-ppc.ads, system-linux-hppa.ads,system-hpux-ia64.ads, targparm.adb,targparm.ads (Functions_Return_By_DSP_On_Target): Removed* system.ads: Move Functions_Return_By_DSP to obsolete section,kept for bootstrap purposes only.2007-04-06 Arnaud Charlet <charlet@adacore.com>* s-osinte-lynxos-3.ads, s-osinte-hpux.ads, s-osinte-solaris-posix.ads,s-osinte-freebsd.ads, s-osinte-aix.ads, s-osinte-darwin.ads,s-taprop-posix.adb (Create_Task): Fix handling of Task_Info.(PTHREAD_SCOPE_PROCESS, PTHREAD_SCOPE_SYSTEM): New constants.2007-04-06 Robert Dewar <dewar@adacore.com>* a-except.adb, a-except.ads, a-except-2005.ads, a-except-2005.adb(Local_Raise): New dummy procedure called when a raise is convertedto a local goto. Used for debugger to detect that the exceptionis raised.* debug.adb: Document new d.g flag (expand local raise statements togotos even if pragma Restriction (No_Exception_Propagation) is not set)* exp_sel.adb: Use Make_Implicit_Exception_Handler* exp_ch11.adb (Expand_Exception_Handlers): Use new flag -gnatw.x tosuppress warnings for unused handlers.(Warn_If_No_Propagation): Use new flag -gnatw.x to suppresswarnings for raise statements not handled locally.(Get_RT_Exception_Entity): New function(Get_Local_Call_Entity): New function(Find_Local_Handler): New function(Warn_If_No_Propagation): New procedure(Expand_At_End_Handler): Call Make_Implicit_Handler(Expand_Exception_Handlers): Major additions to deal with local handlers(Expand_N_Raise_Constraint_Error, Expand_N_Raise_Program_Error,Expand_N_Raise_Storage_Error, (Expand_N_Raise_Statement): Add handlingfor local raise* exp_ch11.ads (Get_RT_Exception_Entity): New function(Get_Local_Call_Entity): New function* gnatbind.adb (Restriction_List): Add No_Exception_Propagation to listof restrictions that the binder will never suggest adding.* par-ch11.adb (P_Exception_Handler): Set Local_Raise_Statements fieldto No_Elist.* restrict.adb (Check_Restricted_Unit): GNAT.Current_Exception may notbe with'ed in the presence of pragma Restriction(No_Exception_Propagation).* sem.adb (Analyze): Add entries for N_Push and N_Pop nodes* sem_ch11.adb (Analyze_Exception_Handler): If there is a choiceparameter, then the handler is not a suitable target for a local raise,and this is a violation of restriction No_Exception_Propagation.(Analyze_Handled_Statements): Analyze choice parameters in exceptionhandlers before analyzing statement sequence (needed for properdetection of local raise statements).(Analyze_Raise_Statement): Reraise statement is a violation of theNo_Exception_Propagation restriction.* s-rident.ads: Add new restriction No_Exception_Propagation* tbuild.ads, tbuild.adb (Make_Implicit_Exception_Handler): Newfunction, like Make_Exception_Handler but sets Local_Raise_Statementsto No_List.(Add_Unique_Serial_Number): Deal with case where this is called duringprocessing of configuration pragmas.2007-04-06 Thomas Quinot <quinot@adacore.com>Pat Rogers <rogers@adacore.com>Pascal Obry <obry@adacore.com>* g-stsifd-sockets.adb: New file.* g-socthi.ads, g-socket.adb, g-socthi-vxworks.adb,g-socthi-vxworks.ads, g-socthi-mingw.ads, g-socthi-vms.ads,g-socthi-vms.adb: Move signallingfd management to a nested package, so that they can conveniently bemoved to a subunit that is shared across Windows, VMS, and VxWorks(Ada implementation) or completed with imported bodies from socket.c(UNIX case).(Read_Signalling_Fd, Write_Signalling_Fd, Create_Signalling_Fds): Newsubprograms.(Check_Selector): Use Read_Signalling_Fd to read and discard data fromthe signalling file descriptor.(Abort_Selector): Use Write_Signalling_Fd to write dummy data to thesignalling file descriptor.(Create_Selector): Use new C-imported subprogram Create_Signalling_Fdsinstead of creating a pair of sockets for signalling here.* g-socthi.adb: Ditto.Set the runtime process to ignore SIGPIPEs on platforms that supportneither SO_NOSIGPIPE nor MSG_NOSIGNAL functionality.* g-socthi-mingw.adb: Ditto.(WS_Version): Use Windows 2.2.Use Winsock 2.2 (instead of 1.1) for the GNAT.Socket API.* g-soliop-mingw.ads: Link with ws2_32 for Windows 2.x support.Use Winsock 2.2 (instead of 1.1) for the GNAT.Socket API.* Makefile.in: New libgnat pair g-stsifd.adb<g-stsifd-sockets.adb.added GNAT byte swapping facilityUpdate FreeBSD THREADSLIB from -lc_r to -lpthread, for FreeBSD 6.* g-bytswa.adb, g-bytswa-x86.adb, g-bytswa.ads: New files.* socket.c (__gnat_read_signalling_fd, __gnat_write_controlling_fd):New subprograms.(__gnat_create_signalling_fds): New subprogram.Set the runtime process to ignore SIGPIPEs on platforms that supportneither SO_NOSIGPIPE nor MSG_NOSIGNAL functionality.2007-04-06 Hristian Kirtchev <kirtchev@adacore.com>Vincent Celier <celier@adacore.com>* a-calend-vms.ads, a-calend.ads, a-calend.adb, a-calend-vms.adb:New version of Ada.Calendar which supports the new upper bound of Adatime (2399-12-31 86_399.999999999).The following modifications have been made to the package:- New representation of time as count of nanoseconds since the start ofAda time (1901-1-1 0.0).- Target independent Split and Time_Of routines which service bothAda 95 and Ada 2005 code.- Target independent interface to the Ada 2005 children of Calendar.- Integrated leap seconds into Ada 95 and Ada 2005 mode.- Handling of non-leap centenial years.- Updated clock function.- Updated arithmetic and comparison operators.* a-caldel.adb (To_Duration): Add call to target independent routine inAda.Calendar to handle the conversion of time to duration.* sysdep.c (__gnat_localtime_tzoff): Test timezone before setting off(UTC Offset).If timezone is obviously incorrect (outside of -14 hours .. 14 hours),set off to 0.(__gnat_localtime_tzoff for Lynx and VxWorks): Even though thesetargets do not have a natural time zone, GMT is used as a default.(__gnat_get_task_options): New.* a-direct.adb (Modification_Time): Add with and use clauses forAda.Calendar and Ada.Calendar.Formatting. Remove with clause for Ada.Unchecked_Conversionsince it is no longer needed.(Duration_To_Time): Removed.(OS_Time_To_Long_Integer): Removed.(Modification_Time): Rewritten to use Ada.Calendar and Ada.Calendar.Formatting Time_Of routines which automatically handle time zones,buffer periods and leap seconds.* a-calari.ads, a-calari.adb ("+", "-", Difference): Add calls totarget independent routines in Ada.Calendar.* a-calfor.ads, a-calfor.adb:Code cleanup and addition of validity checks in various routines.(Day_Of_Week, Split, Time_Of): Add call to target independent routine inAda.Calendar.* a-catizo.ads, a-catizo.adb (UTC_Time_Offset): Add call to targetindependent routine in Ada.Calendar.2007-04-06 Olivier Hainque <hainque@adacore.com>* adaint.c:(convert_addresses): Adjust prototype and dummy definition to expect anextra file_name argument.* gmem.c (__gnat_convert_addresses): Wrapper to convert_addresses,filling the now expected file_name argument with the appropriateargv[0] expansion.(__gnat_gmem_a2l_initialize, __gnat_gmem_read_next_frame): Use it.(tracebk): Array of void * instead of char *, corresponding to whatconvert_addresses expects.(exename): New static global, to hold the executable file name to beused in all convert_addresses invocations.(gmem_read_backtrace, __gnat_gmem_symbolic): Account for tracebk typechange.(__gnat_gmem_a2l_initialize): Resolve exename.(__gnat_convert_addresses): Use exename as the convert_addressesfile_name argument.* g-trasym.adb (Symbolic_Traceback): Adjust signature of imported"convert_addresses", now expecting a filename argument. Import thenecessary entities to compute the filename to use and pass it toconvert_addresses.2007-04-06 Matt Gingell <gingell@adacore.com>* system-aix.ads: Back out previous change.(Functions_Return_By_DSP): Removed2007-04-06 Pascal Obry <obry@adacore.com>* s-osprim-mingw.adb (Timed_Delay): Use the right clock (standard oneor the monotonic used by Ada.Real_Time) to compute the sleep durationon Windows.2007-04-06 Jose Ruiz <ruiz@adacore.com>* s-osinte-vxworks.ads, s-osinte-vxworks.adb (VX_FP_TASK): Remove thisfunction. Its value changes in different VxWorks versions, and it isnow handled by the function __gnat_get_task_options.* s-taprop-vxworks.adb (Create_Task): Call the function__gnat_get_task_options to get the required options for creating a task.2007-04-06 Pascal Obry <obry@adacore.com>Thomas Quinot <quinot@adacore.com>* adaint.c: Replace all occurences of S2WS to S2WSU (Unicode) whendealing with filename.(__gnat_fopen): Call the proper macro (8bits or UTF8) to convert thefilename from a standard string to a wide-string depending on theencoding value.(__gnat_freopen): Idem.(__gnat_current_time): New function (wrapper for time(3) standard Cfunction).* g-os_lib.ads (Current_Time): New function. Returns the currentsystem time as an OS_Time value.* s-osprim.ads (Clock): Add more precise definition of UNIX epoch.(Monotonic_Clock): Same.2007-04-06 Quentin Ochem <ochem@adacore.com>* ali.ads, ali.adb (Get_Nat): Raise an exception if the file cursor isnot on a natural.(Scan_ALI): Cancel the xref line if there has been a reading ALI error.2007-04-06 Jose Ruiz <ruiz@adacore.com>* a-retide.adb: Add elaboration code to ensure that the tasking runtime is initialized when using delay operations even when no task iscreated.2007-04-06 Javier Miranda <miranda@adacore.com>* a-tags.ads, a-tags.adb (Object_Specific_Data): Removecomponent Num_Prim_Ops.(Set_Num_Prim_Ops): Removed.Remove all the assertions because all the routines of thispackage are inline always.(Get_Offset_Index): Add support to primary dispatch tables.Move the documentation about the dispatch table to a-tags.ads(Set_External_Tag): Removed(Inherit_TSD): Removed.(Interface_Data_Element, Interfaces_Array, Interface_Data): Declarationsmoved to a-tags.ads(Displace, IW_Membership, Inherit_TSD, Interface_Ancestor_Tags,Register_Interface_Tag, Set_Offset_To_Top): Update all the occurrencesof the TSD field "Table" because this field has been renamed to"Ifaces_Table".(Inherit_CPP_DT): Removed.(K_Typeinfo, K_Offset_To_Top, K_Tagged_Kind, K_Signature,Cstring, Tag_Table, Type_Specific_Data, Dispatch_Table): Thesedeclarations have been moved to a-tags.ads(Check_Size): Removed.(Expanded_Name): Updated to get access to the new field of TSDcontaining the address of the expanded name.(Get_Access_Level/Set_Access_Level): Removed.(Get_Predefined_Prim_Op_Address): Removed.(Set_Predefined_Prim_Op_Address): Removed.(Get_Prim_Op_Address/Set_Prim_Op_Address): Removed.(Get_Remotely_Callable/Set_Remotely_Callable): Removed.(Set_Expanded_Name): Removed.(Inherit_DT): Removed.(Inherit_CPP_DT): Removed.(Set_RC_Offset): Removed.(Set_TSD): Removed.(Base_Address): New function that displaces "this" to point to the baseof the object (that is, to point to the primary tag of the object).2007-04-06 Ed Schonberg <schonberg@adacore.com>Javier Miranda <miranda@adacore.com>* exp_ch3.ads, exp_ch3.adb (Analyze_N_Full_Type_Declaration): For ananonymous access component, do not create a master_id if type alreadyhas one, as may happen if the type is a subcomponent of a packed arraytype.(Build_Init_Procedure, Component_Needs_Simple_Initialization,Initialize_Tag): Remove code associated with the old CPP pragmas.CPP_Virtual and CPP_Vtable are no longer supported.(Build_Offset_To_Top_Internal): Add support for concurrent record types(Build_Offset_To_Top_Functions): Add support for concurrent record types(Freeze_Record_Type): Remove call toInit_Predefined_Interface_Primitives.(Init_Secondary_Tags.Initialize_Tag): New subprogram containing all thecode required to initialize the tags of the secondary dispatch tables.This leaves the algoritm more clear.(Init_Secondary_Tags): Add support for concurrent record types(Make_Predefined_Primitive_Specs): Code cleanup.(Predefined_Primitive_Bodies): Code cleanup.(Build_Master_Renaming): New local subprogram.(Expand_N_Full_Type_Declaration): Build the master_id associated withanonymous access to task type components.(Expand_N_Subtype_Indication): The bounds of a range constraint in asubtype indication are resolved during analysis, and must not be donehere.(Stream_Operation_OK): Check Restriction_Active before RTE_Available.2007-04-06 Geert Bosch <bosch@adacore.com>Ed Schonberg <schonberg@adacore.com>Javier Miranda <miranda@adacore.com>Bob Duff <duff@adacore.com>* exp_ch4.adb (Expand_N_Type_Conversion): Remove special processingfor conversion of a Float_Type'Truncation to integer.* exp_attr.adb (Is_Inline_Floating_Point_Attribute): New function tocheck if a node is an attribute that can be handled directly by theback end.(Expand_N_Attribute_Reference): Suppress expansion of floating-pointattributes that can be handled directly by the back end.(Expand_N_Attribute_Reference, case 'Access and 'Unchecked_Access):use new predicate Is_Access_Protected_Subprogram_Type.(Expand_N_Attribute_Reference, case 'Write): The reference is legal forand Unchecked_Union if it is generated as part of the default Outputprocedure for a type with default discriminants.(Expand_N_Attribute_Reference): Avoid the expansion of dispatching callsif we are compiling under restriction No_Dispatching_Calls.(Constrained): Use Underlying_Type, in case the type is private withoutdiscriminants, but the full type has discriminants.(Expand_N_Attribute_Reference): Replace call to Get_Access_Level bycall to Build_Get_Access_Level.(Expand_N_Attribute_Reference): The use of 'Address with class-wideinterface objects requires a call to the run-time subprogram thatreturns the base address of the object.(Valid_Conversion): Improve error message on illegal attempt to storean anonymous access to subprogram value into a record component.* sem_res.adb (Resolve_Equality_Op): Detect ambiguity for "X'Access =null".(Simplify_Type_Conversion): New procedure that performs simplificationof Int_Type (Float_Type'Truncation (X)).(Resolve_Type_Conversion): Call above procedure after resolving operandand before performing checks. This replaces the existing ineffectivecode in Exp_Ch4.(Set_String_Literal_Subtype): When creating the internal static lowerbound subtype for a string literal, use a newly created copy of thesubtree representing the lower bound.(Resolve_Call): Exclude build-in-place function calls from transientscope treatment. Update comments to describe this exception.(Resolve_Equality_Op): In case of dispatching call check violation ofrestriction No_Dispatching_Calls.(Resolve_Call): If the call returns an array, the context imposes thecomponent type of the array, and the function has one non-defaultedparameter, rewrite the call as the indexing of a call with a singleparameter, to handle an Ada 2005 syntactic ambiguity for calls writtenin prefix form.(Resolve_Actuals): If an actual is an allocator for an access parameter,the master of the created object is the innermost enclosing statement.(Remove_Conversions): For a binary operator, check if type of secondformal is numeric, to check if an abstract interpretation is presentin the case of exponentiation as well.2007-04-06 Ed Schonberg <schonberg@adacore.com>Bob Duff <duff@adacore.com>* atree.h, atree.ads, atree.adb (Copy_Node_With_Replacement): Whencopying a parameter list in a call, set properly the First_Named_Formaland Next_Named_Formal fields in the new list and in the enclosing call.(Watch_Node,New_Node_Breakpoint,New_Node_Debugging_Output): Shortennames, to ease typing in the debugger. Improve comments.(Watch_Node): New variable, intended to be set in the debugger.(New_Node_Breakpoint): New do-nothing procedure to set a breakpoint on,called when the watched node is created.(New_Node_Debugging_Output): Combined version of local proceduresNew_Node_Debugging_Output and New_Entity_Debugging_Output, now global,with a parameter so that conditional breakpoints like "if Node = 12345"work.(New_Node, New_Entity): Call the global New_Node_Debugging_Output.Add Elist1 function2007-04-06 Thomas Quinot <quinot@adacore.com>Ed Schonberg <schonberg@adacore.com>Gary Dismukes <dismukes@adacore.com>* checks.ads, checks.adb (Selected_Range_Checks): No range check isrequired for a conversion between two access-to-unconstrained-arraytypes.(Expr_Known_Valid): Validity checks do not apply to discriminants, butto discriminant constraints on discriminant objects. This rule mustapply as well to discriminants of protected types in private components.(Null_Exclusion_Static_Checks): If No_Initialization is set on anobject of a null-excluding access type then don't require thethe object declaration to have an expression and don't emit arun-time check.2007-04-06 Arnaud Charlet <charlet@adacore.com>Eric Botcazou <botcazou@adacore.com>* gnatvsn.ads, comperr.adb (Get_Gnat_build_Type): Renamed Build_Typeand made constant.* comperr.ads, comperr.adb (Compiler_Abort): Add third parameterFallback_Loc. Use it as the sloc info when Current_Error_Node doesn'tcarry any.* fe.h (Compiler_Abort): Add third parameter.* misc.c (internal_error_function): Build third argument from currentinput location and pass it to Compiler_Abort.2007-04-06 Gary Dismukes <dismukes@adacore.com>* cstand.adb (Create_Standard): When the target's storage unit size isgreater than a byte, set Has_Non_Standard_Rep and Has_Pragma_Pack onStandard_String.2007-04-06 Nicolas Roche <roche@adacore.com>* cstreams.c (__gnat_full_name): Fix issues on VxWorks 6.x for whichabsolute path can have the following form: device:/a/b. In this case'/' should be inserted between the path and the filename.2007-04-06 Olivier Hainque <hainque@adacore.com>Eric Botcazou <botcazou@adacore.com>* decl.c (gnat_to_gnu_entity) <E_Constant>: Associate an externalVAR_DECL to a CONST_DECL we make for a public constant when we know thecorresponding definition has created the so made visible variable.Handle anonymous access to protected subprogram.(gnat_to_gnu_entity) <E_Variable>: Do not make the underlying type of anobject with an address clause volatile. Re-enable original fix.<E_Subprogram_Type>: Set TYPE_REF_CAN_ALIAS_ALL on the reference typetoo.(gnat_to_gnu_entity) <E_Class_Wide_Type>: Retrieve the TYPE_DECLassociated with either the Equivalent or Root type, instead of thenaked type node.(gnat_to_gnu_entity): Manually mark the top of the DECL_FIELD_OFFSETsubtree for every field of a global record type.(gnat_to_gnu_entity) <E_Record_Subtype>: If the subtype hasdiscriminants, invoke again variable_size on its newly computed sizes.2007-04-06 Robert Dewar <dewar@adacore.com>Thomas Quinot <quinot@adacore.com>Ed Schonberg <schonberg@adacore.com>Bob Duff <duff@adacore.com>* einfo.ads, einfo.adb: (First_Component_Or_Discriminant): New function(Next_Component_Or_Discriminant): New function and procedure(First_Index, First_Literal, Master_Id,Set_First_Index, Set_First_Literal, Set_Master_Id):Add missing Ekind assertions.(Is_Access_Protected_Subprogram_Type): New predicate.(Has_RACW): New entity flag, set on package entities to indicate thatthe package contains the declaration of a remote accecss-to-classwidetype.(E_Return_Statement): This node type has the Finalization_Chain_Entityattribute, in case the result type has controlled parts.(Requires_Overriding): Add this new flag, because "requiresoverriding" is subtly different from "is abstract" (see AI-228).(Is_Abstract): Split Is_Abstract flag into Is_Abstract_Subprogram andIs_Abstract_Type. Make sure these are called only when appropriate.(Has_Pragma_Unreferenced_Objects): New flag* exp_ch5.adb (Expand_N_Assignment_Statement): If the left-hand side isclass-wide, the tag of the right-hand side must be an exact match, notan ancestor of that of the object on left-hand side.(Move_Activation_Chain): New procedure to create the call toSystem.Tasking.Stages.Move_Activation_Chain.(Expand_N_Extended_Return_Statement): Generate code to callSystem.Finalization_Implementation.Move_Final_List at the end of areturn statement if the function's result type has controlled parts.Move asserts to Build_In_Place_Formal.(Move_Final_List): New function to create the call statement.(Expand_N_Assignment_Statement): In case of assignment to a class-widetagged type, replace generation of call to the run-time subprogramCW_Membership by call to Build_CW_Membership.(Expand_N_Return_Statement): Replace generation of call to the run-timesubprogram Get_Access_Level by call to Build_Get_Access_Level.(Expand_N_Simple_Function_Return): Replace generation of call to therun-time subprogram Get_Access_Level by call to Build_Get_Access_Level.* exp_ch6.ads, exp_ch6.adb (Expand_Call): Use new predicateIs_Access_Protected_Subprogram_Type, to handle both named and anonymousaccess to protected operations.(Add_Task_Actuals_To_Build_In_Place_Call): New procedure to add themaster and chain actual parameters to a build-in-place function callinvolving tasks.(BIP_Formal_Suffix): Add new enumeration literals to complete the casestatement.(Make_Build_In_Place_Call_In_Allocator,Make_Build_In_Place_Call_In_Anonymous_Context,Make_Build_In_Place_Call_In_Assignment,Make_Build_In_Place_Call_In_Object_Declaration): CallAdd_Task_Actuals_To_Build_In_Place_Call with the appropriate master.(Expand_Inlined_Call): If the subprogram is a null procedure, or astubbed procedure with a null body, replace the call with a nullstatement without using the full inlining machinery, for efficiencyand to avoid invalid values in source file table entries.* exp_ch8.adb (Expand_N_Object_Renaming_Declaration): Add support forrenamings of calls to build-in-place functions.* rtsfind.adb (RTE_Record_Component_Available): New subprogram thatprovides the functionality of RTE_Available to record components.(RTU_Entity): The function Entity has been renamed to RTU_Entityto avoid undesired overloading.(Entity): New subprogram that returns the entity for the referenedunit. If this unit has not been loaded, it returns Empty.(RE_Activation_Chain_Access, RE_Move_Activation_Chain): New entities.Remove no longer used entities.(RE_Finalizable_Ptr_Ptr, RE_Move_Final_List): New entities.(RE_Type_Specific_Data): New entity.(RE_Move_Any_Value): New entity.(RE_TA_A, RE_Get_Any_Type): New entities.(RE_Access_Level, RE_Dispatch_Table, E_Default_Prim_Op_Count,RE_Prims_Ptr, RE_RC_Offset, RE_Remotely_Callable,RE_DT_Typeinfo_Ptr_Size, RE_Cstring_Ptr, RE_DT_Expanded_Name): Added.(Entity): New subprogram that returns the entity for the referenedunit. If this unit has not been loaded, it returns Empty.(RTE): Addition of a new formal that extends the search to the scopesof the record types found in the chain of the package.* sem_ch6.ads, sem_ch6.adb (Check_Overriding_Indicator): Print"abstract subprograms must be visible" message, whether or not the typeis an interface; that is, remove the special case for interface types.(Analyze_Function_Return): Remove error message "return of task objectsis not yet implemented" because this is now implemented.(Create_Extra_Formals): Add the extra master and activation chainformals in case the result type has tasks.Remove error message "return of limited controlled objects is not yetimplemented".(Create_Extra_Formals): Add the extra caller's finalization list formalin case the result type has controlled parts.(Process_Formals): In case of access formal types there is no needto continue with the analysis of the formals if we already notifiederrors.(Check_Overriding_Indicator): Add code to check overriding of predefinedoperators.(Create_Extra_Formals): Prevent creation of useless Extra_Constrainedflags for formals that do not require them,.(Enter_Overloaded_Entity): Do not give -gnatwh warning message unlesshidden entity is use visible or directly visible.(Analyze_Abstract_Subprogram_Declaration,Analyze_Subprogram_Body,Analyze_Subprogram_Declaration,Analyze_Subprogram_Specification,Check_Conventions,Check_Delayed_Subprogram,Make_Inequality_Operator,New_Overloaded_Entity): Split Is_Abstract flag intoIs_Abstract_Subprogram and Is_Abstract_Type.* s-finimp.ads, s-finimp.adb (Move_Final_List): New procedure to movea return statement's finalization list to the caller's list, used forbuild-in-place functions with result type with controlled parts.Remove no longer used entities.* s-taskin.ads (Activation_Chain): Remove pragma Volatile. It is nolonger needed, because the full type is now limited, and therefore apass-by-reference type.(Foreign_Task_Level): New constant.* s-tassta.ads, s-tassta.adb (Move_Activation_Chain): New procedure tomove tasks from the activation chain belonging to a return statement tothe one passed in by the caller, and update the master to the onepassed in by the caller.(Vulnerable_Complete_Master, Check_Unactivated_Tasks): Check the masterof unactivated tasks, so we don't kill the ones that are being returnedby a build-in-place function.(Create_Task): Ignore AI-280 for foreign threads.2007-04-06 Ed Schonberg <schonberg@adacore.com>Robert Dewar <dewar@adacore.com>Bob Duff <duff@adacore.com>Gary Dismukes <dismukes@adacore.com>* errout.adb (Unwind_Internal_Type): Use predicateIs_Access__Protected_Subprogram_Type.* freeze.adb (Size_Known): Use First/Next_Component_Or_Discriminant(Freeze_Entity, packed array case): Do not override explicitly setalignment and size clauses.(Freeze_Entity): An entity declared in an outer scope can be frozen ifthe enclosing subprogram is a child unit body that acts as a spec.(Freeze_Entity): Use new predicate Is_Access_Protected_Subprogram_Type.(Freeze_Record_Type): New Ada 2005 processing for reverse bit orderRemove all code for DSP option* layout.adb (Layout_Record_Type): Use First/Next_Component_Or_Discriminant(Layout_Type): Use new predicate Is_Access_Protected_Subprogram_Type,to handle properly the anonymous access case.* sem_attr.adb (Build_Access_Object_Type): Use E_Access_Attribute_Typefor all access attributes, because overload resolution should work thesame for 'Access, 'Unchecked_Access, and 'Unrestricted_Access. Thiscauses the error message for the ambiguous "X'Access = Y'Access" and"X'Unrestricted_Access = Y'Access" and so forth to match.(Resolve_Attribute, case 'Access): Remove use of Original_Access_Type,now that anonymous access to protected operations have their own kind.(Resolve_Attribute): In case of dispatching call check the violation ofrestriction No_Dispatching_Calls.(Check_Array_Type): Check new -gnatyA array index style option* sem_ch3.ads, sem_ch3.adb (Derived_Type_Declaration): Reject anattempt to derive from a synchronized tagged type.(Analyze_Type_Declaration): If there is a incomplete tagged view of thetype, inherit the class-wide type already created, because it mayalready have been used in a self-referential anonymous access component.(Mentions_T): Recognize self-referential anonymous access componentsthat use (a subtype of) the class-wide type of the enclosing type.(Build_Derived_Record_Type): Add earlier setting of Is_Tagged_Type. PassDerived_Type for Prev formal on call toCheck_Anonymous_Access_Components rather than Empty.(Make_Incomplete_Type_Declaration): Add test for case where the type hasa record extension in deciding whether to create a class-wide type,rather than just checking Tagged_Present.(Replace_Anonymous_Access_To_Protected_Subprogram): Procedure appliesto stand-alone object declarations as well as component declarations.(Array_Type_Declaration): Initialize Packed_Array_Type to Empty, toprevent accidental overwriting when enclosing package appears ina limited_with_clause.(Array_Type_Declaration): If the component type is an anonymous access,the associated_node for the itype is the type declaration itself.(Add_Interface_Tag_Components): Modified to support concurrenttypes with abstract interfaces.(Check_Abstract_Interfaces): New subprogram that verifies the ARMrules 3.9.4 (15/2), 9.1 (9.d/2) and 9.4 (11.d/2).(Build_Derived_Record_Type): Add call to Analyze_Interface_Declarationto complete the decoration of synchronized interface types. Add alsoa call to Check_Abstract_Interfaces to verify the ARM rules.(Derive_Interface_Subprograms): Modified to support concurrent typeswith abstract interfaces.(Analyze_Subtype_Indication): Resolve the range with the given subtypemark, rather than delaying the full resolution depending on context.(Analyze_Component_Declaration,Analyze_Interface_Declaration,Analyze_Object_Declaration,Analyze_Subtype_Declaration,Array_Type_Declaration,Build_Derived_Record_Type,Build_Discriminated_Subtype,Check_Abstract_Overriding,Check_Completion,Derive_Interface_Subprograms,Derive_Subprogram,Make_Class_Wide_Type,Process_Full_View,Record_Type_Declaration): Split Is_Abstract flag intoIs_Abstract_Subprogram and Is_Abstract_Type. Make sure these arecalled only when appropriate.(Copy_And_Swap): Copy Has_Unreferenced_Objects flag from full typeto private type.(Analyze_Subtype_Declaration): For an access subtype declaration, createan itype reference for the anonymous designated subtype, to preventscope anonmalies in gigi.(Build_Itype_Reference): New utility, to simplify construction of suchreferences.2007-04-06 Vincent Celier <celier@adacore.com>* errutil.adb (Initialize): Initialize warnings table, if all warningsare suppressed, supply an initial dummy entry covering all possiblesource locations.* make.adb (Scan_Make_Arg): Reject options that should start with "--"and start with only one, such as "-RTS=none".(Collect_Arguments): Do not check for sources outside of projects.Do not collect arguments if project is externally built.(Compile_Sources): Do nothing, not even check if the source is up todate, if its project is externally built.(Compile): When compiling a predefined source, add -gnatpgas the second switch, after -c.(Compile_Sources): Allow compilation of Annex J renames without -a(Is_In_Object_Directory): Check if the ALI file is in the objecteven if there is no project extension.(Create_Binder_Mapping_File): Only put a unit in the mapping file forgnatbind if the ALI file effectively exists.(Initialize): Add the directory where gnatmake is invoked in front ofthe path if it is invoked from a bin directory, even without directoryinformation, so that the correct GNAT tools will be used when spawnedwithout directory information.* makeusg.adb: Change switch -S to -eSAdd lines for new switches -we, -wn and -wsAdd line for new switch -p* prj-proc.adb (Process): Set Success to False when Warning_Mode isTreat_As_Error and there are warnings.* switch-m.ads, switch-m.adb (Normalize_Compiler_Switches): Do not skip-gnatww Change gnatmake switch -S to -eS(Scan_Make_Switches): Code reorganisation. Process separately multicharacter switches and single character switches.(Scan_Make_Switches): New Boolean out parameter Success. Set Success toFalse when switch is not recognized by gnatmake.(Scan_Make_Switches): Set Setup_Projects True when -p or--create-missing-dirs is specified.* fname.adb (Is_Predefined_File_Name): Return True for annex Jrenamings Calendar, Machine_Code, Unchecked_Conversion andUnchecked_Deallocation only when Renamings_Included is True.* par.adb: Allow library units Calendar, Machine_Code,Unchecked_Conversion and Unchecked_Deallocation to be recompiled evenwhen -gnatg is not specified.(P_Interface_Type_Definition): Remove the formal Is_Synchronized becausethere is no need to generate always a record_definition_node in caseof synchronized interface types.(SIS_Entry_Active): Initialize global variable to False(P_Null_Exclusion): For AI-447: Add parameter Allow_Anonymous_In_95 toindicate cases where AI-447 says "not null" is legal.* makeutl.ads, makeutil.adb (Executable_Prefix_Path): New function* makegpr.adb (Check_Compilation_Needed): Take into account dependencyfiles with with several lines starting with the object fileb name.(Scan_Arg): Set Setup_Projects True when -p or --create-missing-dirsis specified.(Initialize): Add the directory where gprmake is invoked in front of thepath, if it is invoked from a bin directory or with directoryinformation, so that the correct GNAT tools will be used when invokeddirectly.(Check_Compilation_Needed): Process correctly backslashes on Windows.* vms_data.ads: Update switches/qualifiers2007-04-06 Ed Schonberg <schonberg@adacore.com>Thomas Quinot <quinot@adacore.com>* exp_aggr.adb:If the array component is a discriminated record, the array aggregateis non-static even if the component is given by an aggregate withstatic components.(Expand_Record_Aggregate): Use First/Next_Component_Or_Discriminant(Convert_Aggr_In_Allocator): If the allocator is for an accessdiscriminant and the type is controlled. do not place on a finalizationlist at this point. The proper list will be determined from theenclosing object.(Build_Record_Aggr_Code): If aggregate has box-initialized components,initialize record controller if needed, before the components, to ensurethat they are properly finalized.(Build_Record_Aggr_Code): For the case of an array component that has acorresponding array aggregate in the record aggregate, perform slidingif required.2007-04-06 Javier Miranda <miranda@adacore.com>Gary Dismukes <dismukes@adacore.com>Ed Schonberg <schonberg@adacore.com>* exp_ch13.adb (Expand_External_Tag_Definition): Replace call to therun-time subprogram Set_External_Tag by call to Build_Set_External_Tag.* exp_ch4.adb (Expand_Allocator_Expression): Don't perform a run-timeaccessibility on class-wide allocators if the allocator occurs at thesame scope level as the allocator's type. The check is guaranteed tosucceed in that case, even when the expression originates from aparameter of the containing subprogram.(Expand_N_Op_Eq): Do nothing in case of dispatching call if compilingunder No_Dispatching_Calls restriction. During the semantic analysiswe already notified such violation.(Tagged_Membership): Constant folding. There is no need to checkthe tag at run-time if the type of the right operand is nonclass-wide abstract.Replace call to Is_Ancestor by call to Is_Parentto support concurrent types with interface types.(Expand_N_Allocator): Add an assertion associated with the generationof the master_id.(Expand_N_Slice): Do not enable range check to nodes associatedwith the frontend expansion of the dispatch table.(Is_Local_Access_Discriminant): Subsidiary function toExpand_N_Allocator.(Tagged_Membership): Replace generation of call to the run-timesubprogram CW_Membership by call to Build_CW_Membership.(Expand_Allocator_Expression): Replace generation of call to therun-time subprogram Get_Access_Level by call to Build_Get_Access_Level.* exp_disp.ads, exp_disp.adb (Make_DT): Code reorganization toinitialize most the TSD components by means of an aggregate.Modify the declaration of the object containing the TSDbecause we now expand code that has a higher level of abstraction.The TSD has a discriminant containing the Inheritance Depth Level,value that is used in the membership test but also to fix the sizeof the table of ancestors.(Expand_Interface_Conversion): Insert function body at the closest placeto the conversion expression, to prevent access-before-elaborationerrors in the backend.Code improved to reduce the size of the dispatch table ifcompiling under restriction No_Dispatching_Calls plus code cleanup.Code reorganization plus removal of calls to Set_Num_Prim_Ops(Make_Secondary_DT): Remove call to Set_Num_Prim_Ops.(Expand_Dispatching_Call): Minor code reorganization plus addition ofcode to return immediately if compiling under No_Dispatching_Callsrestriction.(Set_All_DT_Position): Remove code associated with the old CPP pragmas.CPP_Virtual and CPP_Vtable are no longer supported.(Expand_Interface_Conversion): Add missing support for interface typederivations.(Expand_Interface_Actuals): Replace calls to Is_Ancestor by calls toIs_Parent to support concurrent types with interfaces.(Init_Predefined_Interface_Primitives): Removed.(Make_Secondary_DT): Modified to support concurrent record types.(Set_All_DT_Position): Modified to support concurrent record types.(Ada_Actions, Action_Is_Proc, Action_Nb_Arg): Remove entries associatedwith Get_External_Tag, Inherit_TSD, Set_External_Tag.(Ada_Actions, Action_Is_Proc, Action_Nb_Arg): Remove entry associatedwith CW_Membership.(Ada_Actions, Action_Is_Proc, Action_Nb_Arg): Remove entries associatedwith Get_Access_Level, Get_Predefined_Prim_Op_Address,Get_Prim_Op_Address Get_RC_Offset, Get_Remotely_Callable, Inherit_DT,Set_Access_Level, Set_Expanded_Name, Set_Predefined_Prim_Op_Address,Set_Prim_Op_Address, Set_RC_Offset, Set_Remotely_Callable, Set_TSD.(Expand_Dispatching_Call): Replace generation of call to the run-timesubprograms Get_Predefined_Prim_Op_Address and Get_Prim_Op_Address bycalls to Build_Get_Predefined_Prim_Op_Address, and Build_Get_Prim_Op_Address.(Fill_DT_Entry, Fill_Secondary_DT_Entry): Replace generation of call tothe run-time subprograms Set_Predefined_Prim_Op_Address and Set_Prim_Op_Address by calls to Build_Set_Predefined_Prim_Op_Address, andBuild_Set_Prim_Op_Address.(Get_Remotely_Callable): Subprogram removed.(Init_Predefined_Interface_Primitives): Replace generation of call tothe run-time subprograms Inherit_DT by call to Build_Inherit_Predefined_Prims.* sem_elab.adb (Set_Elaboration_Constraint): Replace the call toFirst (Parameter_Associations ()) with the call to First_Actual thatreturns an actual parameter expression for both named and positionalassociations.* sem_disp.adb (Check_Dispatching_Call): In case of dispatching callcheck violation of restriction No_Dispatching_Calls.(Check_Controlling_Type): A formal of a tagged incomplete type is acontrolling argument.* exp_util.ads, exp_util.adb (Type_May_Have_Bit_Aligned_Components): UseFirst/Next_Component_Or_Discriminant(Insert_Actions): Add entries for new N_Push and N_Pop nodes(Find_Implemented_Interface): Removed. All the calls to this subprogramspecify Any_Limited_Interface, and this functionality is alreadyprovided by the function Has_Abstract_Interfaces.(Find_Interface, Find_Interface_Tag, Find_Interface_ADT): Modified tosupport concurrent types implementing interfaces.(Find_Implemented_Interface): Removed. All the calls to this subprogramspecify kind Any_Limited_Interface, and this functionality is alreadyprovided by the function Has_Abstract_Interfaces.(Remove_Side_Effects): replace Controlled_Type byCW_Or_Controlled_Type whenever the issue is related tousing or not the secondary stack.* par-ch12.adb (P_Formal_Type_Definition): Update calls toP_Interface_Type_Definition to fulfill the new interface (the formalIs_Synchronized is no longer required).* Make-lang.in (GNAT_ADA_OBJS): Addition of exp_atag.oUpdate dependencies.* exp_atag.ads, exp_atag.adb: New file2007-04-06 Ed Schonberg <schonberg@adacore.com>Bob Duff <duff@adacore.com>Cyrille Comar <comar@adacore.com>* exp_ch7.ads, exp_ch7.adb (Find_Final_List): If the access type isanonymous, use finalization list of enclosing dynamic scope.(Expand_N_Package_Declaration): For a library package declarationwithout a corresponding body, generate RACW subprogram bodies in thespec (just as we do for the task activation call).(Convert_View): Split Is_Abstract flag into Is_Abstract_Subprogram andIs_Abstract_Type. Make sure these are called only when appropriate.Remove all code for DSP option(CW_Or_Controlled_Type): new subprogram.2007-04-06 Eric Botcazou <botcazou@adacore.com>Ed Schonberg <schonberg@adacore.com>Gary Dismukes <dismukes@adacore.com>* exp_ch9.ads, exp_ch9.adb (Family_Offset): Add new 'Cap' booleanparameter. If it is set to true, return a result capped according tothe global upper bound for the index of an entry family.(Family_Size): Add new 'Cap' boolean parameter. Pass it to Family_Offset(Build_Find_Body_Index): Adjust for above change.(Entry_Index_Expression): Likewise.(Is_Potentially_Large_Family): New function extracted from...(Collect_Entry_Families): ...here. Call it to detect whether the familyis potentially large.(Build_Entry_Count_Expression): If the family is potentially large, callFamily_Size with 'Cap' set to true.(Expand_N_Protected_Type_Declaration, Expand_N_Protected_Body): Generatea protected version of an operation declared in the private part ofa protected object, because they may be invoked through a callback.(Set_Privals): If the type of a private component is an anonymous accesstype, do not create a new itype for each protected body.If the body of a protected operation createscontrolled types (including allocators for class-widetypes), thebody of the corresponding protected subprogram must include afinalization list.(Build_Activation_Chain_Entity): Build the chain entity for extendedreturn statements.(Type_Conformant_Parameters): Use common predicate Conforming_Typesto determine whether operation overrides an inherited primitive.(Build_Wrapper_Spec): Add code to examine the parents while lookingfor a possible overriding candidate.(Build_Simple_Entry_Call): Set No_Initialization on the object used tohold an actual parameter value since its initialization is separatedfrom the the declaration. Prevents errors on null-excluding accessformals.2007-04-06 Thomas Quinot <quinot@adacore.com>Pablo Oliveira <oliveira@adacore.com>* exp_dist.ads, exp_dist.adb (Build_To_Any_Call, Build_From_Any_Call):Do an Unchecked_Conversion to handle the passage from the UnderlyingType to the Base Type when calling Build_To_Any_Call andBuild_From_Any_Call.(Build_Actual_Object_Declaration): Set Object's Ekind to E_Variable orE_Constant, depending upon Variable formal.(GARLIC_Support.Build_Subprogram_Receiving_Stubs,PolyORB_Support.Build_Subprogram_Receiving_Stubs): For a formalparameter that requires an extra constrained parameter, declaretemporary for actual as a variable, not a constant.(Add_RACW_Primitive_Declarations_And_Bodies): Generate bodies only whenthe unit being compiled is the one that contains the stub type.Change primitive operation name for the RACW associated with a RASfrom Call to _Call so it cannot clash with any legal identifier.(PolyORB_Support.Add_RACW_Write_Attribute): Remove unused constantIs_RAS.(Append_RACW_Bodies): New subprogram.(Expand_Receiving_Stubs_Bodies): Pass a 'Stmts' list toAdd_Receiving_Stubs_To_Declarations functions.When expanding a package body, this list correspond to thestatements in the HSS at the end of the pacakge.When expanding a package spec, this list correspond to thespec declarations.(Add_Receiving_Stubs_To_Declarations): Append the functionregistering the receiving stubs at the end of the 'Stmts' list.(RCI_Package_Locator): Pass the new Version generic formal wheninstantiating a RCI_Locator package.(Build_From_Any_Function): To compute the High bound for anunconstrained array actual, we add the Low bound with the length.Thus we must convert the low bound and the length to an appropriatetype before doing the sum.(Build_Subprogram_Receiving_Stubs, PolyORB):* Retrieve the extra formals parameters at theend of the parameter stream.* Use Move_Any_Value to write back out parametersafter executing the request as it is more efficientthan Copy_Any_Value.* Build the any containing Extra Formals with theappropriate typecode.(PolyORB_Support.Helpers.Append_Record_Traversal): Nothing to do for anempty Component_List.(Build_Actual_Object_Declaration): New subprogram. Build and insert intothe tree the declaration for an object that serves as actual parameterin server-side stubs.(GARLIC_Support.Build_Subprogram_Receiving_Stubs,PolyORB_Support.Build_Subprogram_Receiving_Stubs):Use Build_Actual_Object_Declaration to prepare the actuals.(Add_Parameter_To_NVList): Set the parameter mode to In forExtra Constrained Parameters.(Build_General_Calling_Stubs): Set the parameter type to boolean forExtra Constrained parameters.(Build_To_Any_Function, Build_From_Any_Function,Built_TypeCode_Function): When Typ is implicit, call the correctfunction with the first not implicit parent type.(TC_Rec_Add_Process_Element, FA_Rec_Add_Process_Element,(FA_Ary_Add_Process_Element): When Datum is an Any, we cannot infer thetypecode from the Etype. Therefore we retrieve the correct typecodewith a call to Get_Any_Type.(Copy_Specification): Do controlling formal type substitution based onIs_Controlling_Formal flag, instead of caller-provided object type.(Build_Subprogram_Calling_Stubs): When retrieveing the original spec fora RACW primitive operation, we might get a subprogram declaration for anancestor of the RACW designated type (not for the designated typeitself), in the case where this operation is inherited. In this case wehave no easy means of determining the original tagged type for whichthe primitive was declared, so instead we now rely onCopy_Specification to use the Is_Controlling_Formal flag to determinewhich formals require type substitution.2007-04-06 Robert Dewar <dewar@adacore.com>Ed Schonberg <schonberg@adacore.com>* exp_intr.adb (Expand_Exception_Call): Calls to subprograms inGNAT.Current_Exception are not allowed if pragma Restrictions(No_Exception_Propagation) is set and in any case make the associatedhandler unsuitable as a target for a local raise statement.(Expand_Dispatching_Constructor_Call): Replace generation of call to therun-time subprogram CW_Membership by call to Build_CW_Membership.(Expand_Dispatching_Constructor_Call): If the dispatching tag is givenby a function call, a temporary must be created before expanding theConstructor_Call itself, to prevent out-of-order elaboration in theback-end when stack checking is enabled..2007-04-06 Ed Schonberg <schonberg@adacore.com>* exp_pakd.adb (Expand_Packed_Boolean_Operator): The bounds of theresult are the bounds of the left operand, not the right.2007-04-06 Ed Schonberg <schonberg@adacore.com>* exp_strm.adb(Build_Mutable_Record_Write_Procedure): For an Unchecked_Union type, usediscriminant defaults.(Build_Record_Or_Elementary_Output_Procedure): Ditto.(Make_Component_List_Attributes): Ditto.2007-04-06 Ed Schonberg <schonberg@adacore.com>Bob Duff <duff@adacore.com>* sem_aggr.adb (Resolve_Record_Aggregate): In semantics-only mode treatan association with a box as providing a value even though theinitialization procedure for the type is not available.(Resolve_Record_Aggregate): Check that a choice of an association with abox corresponds to a component of the type.(Resolve_Record_Aggregate): Split Is_Abstract flag intoIs_Abstract_Subprogram and Is_Abstract_Type.* exp_tss.adb (Base_Init_Proc): Use Is_Type instead of Type_Kind forassert.* inline.adb (Add_Inlined_Body): Split Is_Abstract flag intoIs_Abstract_Subprogram and Is_Abstract_Type. Make sure these arecalled only when appropriate.2007-04-06 Olivier Hainque <hainque@adacore.com>* g-alleve.ads (Low Level Vector type definitions): Map each to theassociated vector view instead of all to the unsigned char view.* g-altcon.adb (Generic_Conversions): New internal generic package,offering facilities for all the Vector/View conversion routinesimplemented by this unit.(To_View/To_Vector - all versions): Reimplemented in a systematicmanner, using the internal Generic_Conversions facilities.2007-04-06 Pascal Obry <obry@adacore.com>* g-arrspl.adb (Free) [Element_Access]: New routine to free the sourcestring.(Create): Free the source string before storing the new one.2007-04-06 Vincent Celier <celier@adacore.com>* g-debpoo.adb (Validity): New package with a complete newimplementation of subprograms Is_Valid and Set_Valid.(Is_Valid): Move to local package Validity(Set_Valid): Move to local package Validity2007-04-06 Arnaud Charlet <charlet@adacore.com>Pablo Oliveira <oliveira@adacore.com>* g-expect.adb (Get_Command_Output): When expanding the output bufferwe must ensure that there is enough place for the new data we are goingto copy in.2007-04-06 Thomas Quinot <quinot@adacore.com>* g-md5.ads, g-md5.adb (Digest): Fix off-by-one error in paddingcomputation.2007-04-06 Jose Ruiz <ruiz@adacore.com>Vincent Celier <celier@adacore.com>* gnatcmd.adb (B_Start): Add prefix of binder generated file.(Stack_String): Add this String that contains the name of the Stackpackage in the project file.(Packages_To_Check_By_Stack): Add this list that contains the packagesto be checked by gnatstack, which are the naming and the stack packages.(Check_Files): If no .ci files were specified for gnatstack we add allthe .ci files belonging to the projects, including binder generatedfiles.(Non_VMS_Usage): Document that gnatstack accept project file switches.(GNATCmd): Update the B_Start variable if we are in a VMS environment.Add gnatstack to the list of commands that use project file relatedswitches, and get the single attribute Switches from the stack packagein a project file when calling gnatstack. Parse the -U flag forprocessing files belonging to all projects in the project tree.Remove all processing for command Setup* prj-attr.adb: Add new package Stack with single attribute Switches* vms_conv.ads (Command_Type): Add command Stack.Move to body declarations that are only used in the body: types Item_Id,Translation_Type, Item_Ptr, Item and its subtypes.* vms_conv.adb: (Initialize): Add data for new command Stack.Add declarations moved from the spec: types Item_Id, Translation_Type,Item_Ptr, Item and its subtypes.(Cargs_Buffer): New table(Cargs): New Boolean global variable(Process_Buffer): New procedure to create arguments(Place): Put character in table Buffer or Cargs_Buffer depending on thevalue of Cargs.(Process_Argument): Set Cargs when processing qualifiers for GNATCOMPILE(VMS_Conversion): Call Process_Buffer for table Buffer and, if it is notempty, for table Cargs_Buffer.(Initialize): Remove component Setup in Command_List2007-04-06 Vincent Celier <celier@adacore.com>* gprep.adb (Process_Files.Process_One_File): Use full file name whenissuing pragma Source_Reference.2007-04-06 Emmanuel Briot <briot@adacore.com>* g-regpat.adb (Parse_Posix_Character_Class): Fix handling of[[:xdigit:]] character class.Also raise an exception when an invalid character class is used.2007-04-06 Pascal Obry <obry@adacore.com>* i-cstrea.ads: (fopen): Add encoding parameter.(freopen): Idem.Change reference from a-sysdep.c to sysdep.c in comment.Update copyright notice.This set of patch add support for the encoding form parameter.* mingw32.h (S2WSU): New macro to convert from a string to awide-string using the UTF-8 encoding. The S2WS macro supports now onlystandard 8bits encoding.(WS2SU): As above but converting from wide-sring to string.This is needed as it is necessary to have access to both versions in theruntime for the form parameter encoding support.This set of patch add support for the encoding form parameter.(S2WS): Improve implementation to handle cases where the filename is notUTF-8 encoded. In this case we default to using the current code pagefor the conversion.* s-crtl-vms64.ads, s-crtl.ads (Filename_Encoding): New enumerationtype (UTF8, ASCII_8bits). This enumeration has a rep clause to matchthe constants defined in adaint.h.(fopen): Add encoding parameter.(freopen): Idem.* s-ficobl.ads (AFCB): Add Encoding field to record the filenameencoding. This is needed for the Reset routine (freopen low level-call).* s-fileio.adb (Open): Decode encoding form parameter and set thecorresponding encoding value into AFCB structure.(Reset): Pass the encoding value to freopen.(Close): Move the call to Lock_Task to the beginning of the procedure.2007-04-06 Geert Bosch <bosch@adacore.com>Robert Dewar <dewar@adacore.com>* i-fortra.ads: Add Double_Complex type.* impunit.adb: (Is_Known_Unit): New functionAdd Gnat.Byte_SwappingAdd GNAT.SHA1Add new Ada 2005 unitsAda.Numerics.Generic_Complex_Arrays, Ada.Numerics.Generic_Real_Arrays,Ada.Numerics.Complex_Arrays, Ada.Numerics.Real_Arrays,Ada.Numerics.Long_Complex_Arrays, Ada.Numerics.Long_Long_Complex_Arrays,Ada.Numerics.Long_Long_Real_Arrays and Ada.Numerics.Long_Real_Arrays* impunit.ads (Is_Known_Unit): New function* a-ngcoar.adb, a-ngcoar.ads, a-ngrear.adb,a-ngrear.ads, a-nlcoar.ads, a-nllcar.ads, a-nllrar.ads, a-nlrear.ads,a-nucoar.ads, a-nurear.ads, g-bytswa.adb, g-bytswa-x86.adb,g-bytswa.ads, g-sha1.adb, g-sha1.ads, i-forbla.ads, i-forlap.ads,s-gearop.adb, s-gearop.ads, s-gecobl.adb, s-gecobl.ads, s-gecola.adb,s-gecola.ads, s-gerebl.adb, s-gerebl.ads, s-gerela.adb, s-gerela.ads:New files.* Makefile.rtl: Add g-bytswa, g-sha1, a-fzteio and a-izteio* a-fzteio.ads, a-izteio.ads: New Ada 2005 run-time units.2007-04-06 Eric Botcazou <botcazou@adacore.com>Arnaud Charlet <charlet@adacore.com>* init.c: Reuse PA/HP-UX code for IA-64/HP-UX, except__gnat_adjust_context_for_raise.(__gnat_init_float): on x86 vxworks 5.x and 6.x, we use the sameimplementation of floating point operations as native x86 targets.So the FPU should be initialized in the same way using finit. Fixfloating point operations accuracy issues.(__gnat_install_handler, case FreeBSD): Use proper type for sa_sigactionmember in struct sigaction, so as to avoid warning for incompatiblepointer types.2007-04-06 Serguei Rybin <rybin@adacore.com>* lib.ads, lib.adb (Tree_Read): Release the memory occupied by theswitches from previously loaded tree2007-04-06 Thomas Quinot <quinot@adacore.com>* lib-writ.adb (Write_With_Lines): Factor duplicated code between thecases where a given dependency has a body or not.(Write_With_File_Names): New subprogram, common code for the two casesabove.2007-04-06 Ed Schonberg <schonberg@adacore.com>Javier Miranda <miranda@adacore.com>* lib-xref.ads, lib-xref.adb:Modify the loop that collects type references, to include interfacetypes that the type implements. List each of these interfaces whenbuilding the entry for the type.(Generate_Definition): Initialize component Def and Typ of new entryin table Xrefs, to avoid to have these components unitialized.(Output_References): Split Is_Abstract flag intoIs_Abstract_Subprogram and Is_Abstract_Type.(Generate_Reference): Add barrier to do not generate the warningassociated with Ada 2005 entities with entities generated by theexpander.2007-04-06 Robert Dewar <dewar@adacore.com>Arnaud Charlet <charlet@adacore.com>Vincent Celier <celier@adacore.com>* gnat_rm.texi, gnat_ugn.texi: Add -gnatyl documentationUpdate 'Exception Handling Control' chapter which was outdated.Minor fix to documentation of -gnatwqRemove section "Adapting the Run Time to a New C++ Compiler" becauseit is now obsolete.Add passage on need of -nostart-files in some non-ada-main cases.Document new switch -eS (/STANDARD_OUTPUT_FOR_COMMANDS) for gnatmakeUpdate documentation about Interfacing with C++Add documentation for new gnatmake switch -pAdd missing protocol part in URLs.Document -gnatyADocument pragma Compile_Time_ErrorAdd documentation for Object_Size indicating that stand aloneobjects can have a larger size in some cases.Add node for GNAT.Byte_Swapping, GNAT.SHA1Update reference to the Ravenscar profile.Document pragma Unreferenced_Objects* gnat-style.texi: Fix typo2007-04-06 Vincent Celier <celier@adacore.com>* mlib.adb (Building_Library): Only output "building a library..." inverbose mode* mlib-prj.adb (Build_Library): Only output lists of object and ALIfiles in verbose mode.* mlib-utl.adb (Ar): Only output the first object files when not inverbose mode.(Gcc): Do not display all the object files if not in verbose mode, onlythe first one.2007-04-06 Robert Dewar <dewar@adacore.com>* namet.ads, namet.adb (wn): Improve this debugging routine. Callingit no longer destroys the contents of Name_Buffer or Name_Len andnon-standard and invalid names are handled better.(Get_Decoded_Name_String): Improve performance by usingName_Has_No_Encodings flag in the name table.(Is_Valid_Name): New function to determine whether a Name_Id is valid.Used for debugging printouts.2007-04-06 Robert Dewar <dewar@adacore.com>Javier Miranda <miranda@adacore.com>Bob Duff <duff@adacore.com>* par-ch3.adb: (P_Type_Declaration): Set Type_Token_Location(P_Interface_Type_Definition): Remove the formal Is_Synchronized becausethere is no need to generate always a record_definition_node in caseof synchronized interface types.(P_Type_Declaration): Update calls to P_Interface_Type_Definition.(P_Null_Exclusion): For AI-447: Remove warnings about "not null" beingillegal in Ada 95, in cases where it is legal. Change the warnings toerrors in other cases. Don't give the error unless the "not null"parses properly. Correct the source position at which the error occurs.(P_Known_Discriminant_Part_Opt): Pass Allow_Anonymous_In_95 => True toP_Null_Exclusion, to suppress "not null" warnings.(P_Identifier_Declarations): Code cleanup. Removed unrequired label andassociated goto statements.* par-endh.adb (Pop_End_Context): Allow more flexibility in placementof END RECORD* scans.ads (Type_Token_Location): New flag* par-ch6.adb (P_Mode): Check specifically for case of IN ACCESS(P_Formal_Part): Pass Allow_Anonymous_In_95 => True toP_Null_Exclusion, to suppress "not null" warnings.2007-04-06 Robert Dewar <dewar@adacore.com>Javier Miranda <miranda@adacore.com>Bob Duff <duff@adacore.com>Vincent Celier <celier@adacore.com>* par-prag.adb (Prag): Add dummy entry for pragma Compile_Time_Error(Extensions_Allowed): No longer sets Ada_VersionEntry for pragma Unreferenced_Objects* sem_prag.adb (Analyze_Pragma, case Priority): Force with ofsystem.tasking if pragma priority used in a procedure(Analyze_Pragma, case Warning): Handle dot warning switches(Process_Compile_Time_Warning_Or_Error): New procedure(Analyze_Pragma): Add processing for Compile_Time_ErrorAdd support for extra arguments External_Name and Link_Name.Remove code associated with pragmas CPP_Virtual and CPP_Vtable.(Process_Import_Or_Interface): Add support for the use of pragma Importwith tagged types.(Extensions_Allowed): No longer affects Ada_Version(Analyze_Pragma): Split Is_Abstract flag into Is_Abstract_Subprogram andIs_Abstract_Type. Make sure these are called only when appropriate.Add processing for pragma Unreferenced_Objects* snames.h, snames.ads, snames.adb: Add entry for pragmaCompile_Time_ErrorAdd new standard name Minimum_Binder_Options for new gprmakeAdd new standard names for gprmake: Archive_Suffix,Library_Auto_Init_Supported, Library_Major_Minor_Id_Supported,Library_Support, Library_Version_Options,Shared_Library_Minimum_Options,Shared_Library_Prefix, Shared_Library_Suffix, Symbolic_Link_Supported.Change Name_Call to Name_uCall so that it cannot clash with a legalsubprogram name.Add new standard names Mapping_Spec_Suffix and Mapping_Body_SuffixAppend C_Plus_Plus to convention identifiers as synonym for CPPAdd new standard names Stack and Builder_SwitchesAdd new standard names: Compiler_Minimum_Options, Global_Config_File,Library_Builder, Local_Config_File, Objects_Path, Objects_Path_File,Run_Path_Option, Toolchain_Version.Entry for pragma Unreferenced_Objects* switch-c.adb (Scan_Front_End_Switches): Store correct -gnateDswitches, without repetition of "eD". Make sure that last character of-gnatep= switch is not taken as -gnat switch character.Complete rewrite of circuit for handling saving compilation optionsOccasioned by need to support dot switchs for -gnatw, but cleans upthings in general.-gnatX does not affect Ada_VersionInclude -gnatyA in -gnatg style switches* sem_warn.ads, sem_warn.adb (Output_Unreferenced_Messages): Excludewarnings on return objects.(Warn_On_Useless_Assignment): Exclude warnings on return objects(Set_Dot_Warning_Switch): New procedure(Check_References): Add missing case of test forHas_Pragma_Unreferenced_Objects(Output_Unreferenced_Messages): Implement effect of new pragmaUnreferenced_Objects, remove special casing of limited controlledvariables.2007-04-06 Vincent Celier <celier@adacore.com>* prj-ext.adb (Initialize_Project_Path): New procedure that initializethe default project path, initially done during elaboration of thepackage.If the prefix returned by Sdefault is null, get the prefix from a callto Executable_Prefix_Path.(Project_Path): Call Initialize_Project_Path if Current_Project_Path isnull.* prj-nmsc.adb (Get_Path_Names_And_Record_Sources): Use the noncanonical directory name to open the directory from which files areretrieved.(Record_Other_Sources): Idem.(Locate_Directory): Add the possibility to create automatically missingdirectories when Setup_Projects is True.Call Locate_Directory so that the directory will be created whenSetup_Projects is True, for object dir, library dir, library ALI dir,library source copy dir and exec dir.* prj-pp.adb (Max_Line_Length): Set to 255 for compatibility with olderversions of GNAT.2007-04-06 Robert Dewar <dewar@adacore.com>* sem_ch13.ads, sem_ch13.adb (Adjust_Record_For_Reverse_Bit_Order):Use First/Next_Component_Or_Discriminant(Analyze_Record_Representation_Clause):Use First/Next_Component_Or_Discriminant(Check_Component_Overlap): Use First/Next_Component_Or_Discriminant(Analyze_Attribute_Definition_Clause, case Value_Size): Rejectdefinition if type is unconstrained.(Adjust_Record_For_Reverse_Bit_Order): New procedure(Analyze_Attribute_Definition_Clause): Split Is_Abstract flag intoIs_Abstract_Subprogram and Is_Abstract_Type.(Adjust_Record_For_Reverse_Bit_Order): New procedure* repinfo.adb (List_Record_Info): Use First/Next_Component_Or_Discriminant.* style.ads, styleg-c.adb, styleg-c.ads (Check_Array_Attribute_Index):New procedure.* stylesw.ads, stylesw.adb: Recognize new -gnatyA style switchInclude -gnatyA in default switches* opt.ads: (Warn_On_Non_Local_Exception): New flag(Warn_On_Reverse_Bit_Order): New flag(Extensions_Allowed): Update the documentation.(Warn_On_Questionable_Missing_Parens): Now on by default* usage.adb: Add documentation of -gnatw.x/X switchesDocument new -gnatyA style switch-gnatq warnings are on by default2007-04-06 Ed Falis <falis@adacore.com>* s-carun8.adb, s-carsi8.adb (Compare_Array_?8): modify so that lastfull word is no longer compared twice.2007-04-06 Ed Schonberg <schonberg@adacore.com>* sem_ch10.adb (Install_Limited_Context_Clauses.Expand_Limited_With_Clause): Use a new copy of selector name in thecall to Make_With_Clause. This fixes the tree structure for ASISpurposes. Nothing is changed in the compiler behaviour.(Process_Body_Clauses): Handle properly use clauses whose prefix isa package renaming.(Install_Limited_With_Clauses): Do not install non-limited view when itis still incomplete.2007-04-06 Ed Schonberg <schonberg@adacore.com>Gary Dismukes <dismukes@adacore.com>* sem_ch12.adb (Check_Generic_Actuals): Use first subtype of actualwhen capturing size information, instead of base type, which for aformal array type will be the unconstrained type.(Analyze_Formal_Object_Declaration): Add check for illegal defaultexpressions for a formal in object of a limited type.(Instantiate_Object): Ditto.(Check_Formal_Package_Instance): Skip entities that are formal objects,because they were defaulted in the formal package and no check appliesto them.(Check_Formal_Package_Instance): Extend conformance check to otherdiscrete types beyond Integer.(Process_Default): Copy directly the unmatched formal. A generic copyhas already been performed in Analyze_Formal_Package.(Analyze_Associations): If a formal subprogram has no match, check forpartial parametrization before looking for a default, to preventspurious errors.(Analyze_Package_Instantiation, Analyze_Subprogram_Instantiation): Donot set the instantiation environment before analyzing the actuals.Fixes regression on 8515-003 with implementation of AI-133.Set_Instance_Env checks whether the generic unit is a predefinedunit, in which case the instance must be analyzed with the latest Adamode. This setting must take place after analysis of the actuals,because the actuals must be analyzed and frozen in the Ada mode extantoutside of the current instantiation.(Save_Env, Restore_Env): Preserve and restore the configurationparameters so that predefined units can be compiled in the proper Adamode.(Analyze_Formal_Object_Declaration,Analyze_Formal_Subprogram,Instantiate_Type): Split Is_Abstract flag into Is_Abstract_Subprogramand Is_Abstract_Type.(Analyze_Formal_Package): For better error recovery, Add exceptionhandler to catch Instantion_Error, which can be raised inAnalyze_Associations2007-04-06 Ed Schonberg <schonberg@adacore.com>Bob Duff <duff@adacore.com>Gary Dismukes <dismukes@adacore.com>* sem_ch4.adb (Try_Primitive_Operation): The call is legal if theprefix type is a discriminated subtype of the type of the formal.(Analyze_Allocator): Collect all coextensions regardless of the context.Whether they can be allocated statically is determined in exp_ch4.(Analyze_Selected_Component): If the prefix is a limited view and thenon-limited view is available, use the non-limited one.(Operator_Check): For "X'Access = Y'Access" (which is ambiguous, andtherefore illegal), suggest a qualified expression rather than a typeconversion, because a type conversion would be illegal in this context.(Anayze_Allocator): Trace recursively all nested allocators so that allcoextensions are on the corresponding list for the root. Do no markcoextensions if the root allocator is within a declaration for a stack-allocated object, because the access discriminants will be allocated onthe stack as well.(Analyze_Call): Remove restriction on calls to limited functions for thecases of generic actuals for formal objects, defaults for formal objectsand defaults for record components.(Analyze_Allocator): Before analysis, chain coextensions on the properelement list. Their expansion is delayed until the enclosing allocatoris processed and its finalization list constructed.(Try_Primitive_Operation): If the prefix is a concurrent type, looksfor an operation with the given name among the primitive operations ofthe corresponding record type.(Analyze_Selected_Component): If the prefix is a task type thatimplements an interface, and there is no entry with the given name,check whether there is another primitive operation (e.g. a function)with that name.(Try_Object_Operation, Analyze_One_Call, Try_Indexed_Call): Handleproperly the indexing of a function call written in prefix form, wherethe function returns an array type, and all parameters of the functionexcept the first have defaults.(Analyze_Equality_Op): If this is a call to an implicit inequality, keepthe original operands, rather than relocating them, for efficiency andto work properly when an operand is overloaded.(Analyze_Allocator,Operator_Check,Remove_Abstract_Operations): SplitIs_Abstract flag into Is_Abstract_Subprogram and Is_Abstract_Type.(Analyze_Selected_Component): If the prefix is a private extension, onlyscan the visible components, not those of the full view.(Try_Primitive_Operation): If the operation is a procedure, collect allpossible interpretations, as for a function, because in the presence ofclasswide parameters several primitive operations of the type can matchthe given arguments.2007-04-06 Ed Schonberg <schonberg@adacore.com>Robert Dewar <dewar@adacore.com>* sem_ch5.adb (Analyze_Assignment): Reject a right-hand side that is atag-indeterminate call to an abstract function, when the left-hand sideis not classwide.(Analyze_Loop_Statement): Improve detection of infinite loops2007-04-06 Ed Schonberg <schonberg@adacore.com>Thomas Quinot <quinot@adacore.com>* sem_ch7.ads, sem_ch7.adb (Inspect_Deferred_Constant_Completion): Moveout of Analyze_Package_Declaration, because processing must be appliedto package bodies as well, for deferred constants completed by pragmas.(Analyze_Package_Declaration): When the package declaration beinganalyzed does not require an explicit body, call Check_Completion.(May_Need_Implicit_Body): An implicit body is required when a packagespec contains the declaration of a remote access-to-classwide type.(Analyze_Package_Body): If the package contains RACWs, append thepending subprogram bodies generated by exp_dist at the end of the body.(New_Private_Type,Unit_Requires_Body): Split Is_Abstract flag intoIs_Abstract_Subprogram and Is_Abstract_Type.(Preserve_Full_Attributes): The full entity list is not an attributethat must be preserved from full to partial view.* sem_dist.adb (Add_RAS_Dereference_TSS):Change primitive name to _Call so it cannot clash with any legalidentifier, and be special-cased in Check_Completion.Mark the full view of the designated type for the RACW associated witha RAS as Comes_From_Source to get proper view switching when installingprivate declarations.Provite a placeholder nested package body along with the nested specto have a place for Append_RACW_Bodies to generate the calling stubsand stream attributes.2007-04-06 Ed Schonberg <schonberg@adacore.com>Robert Dewar <dewar@adacore.com>* sem_ch8.adb (Has_Components): If the argument is an incomplete typethat is a limited view, check the non-limited view if available.(Undefined): Refine error message for missing with of Text_IO(Find_Expanded_Name): Use Is_Known_Unit for more accurate error messageto distinguish real missing with cases.Fix format of all missing with messages(Analyze_Subprogram_Renaming): Emit proper error message on illegalrenaming as body when renamed entity is abstract.2007-04-06 Ed Schonberg <schonberg@adacore.com>Javier Miranda <miranda@adacore.com>* sem_type.ads, sem_type.adb (Has_Abstract_Interpretation): Makepredicate recursive, to handle complex expressions on literals whosespurious ambiguity comes from the abstract interpretation of somesubexpression.(Interface_Present_In_Ancestor): Add support to concurrent recordtypes.(Add_One_Interp,Disambiguate): Split Is_Abstract flag intoIs_Abstract_Subprogram and Is_Abstract_Type.2007-04-06 Ed Schonberg <schonberg@adacore.com>Javier Miranda <miranda@adacore.com>* sem_util.ads, sem_util.adb (Object_Access_Level): If the object is adereference of a local object R created as a reference to anotherobject O, use the access level of O.(Matches_Prefixed_View_Profile): Use common predicate Conforming_Types,rather than local Same_Formal_Type, to check whether protected operationoverrides an inherited one.(Same_Formal_Type): New predicate, used when matching signatures ofoverriding synchronized operations, to handle the case when a formalhas a type that is a generic actual.(Is_Aliased_View): Replace check on E_Task_Type and E_Protected_Type bypredicate Is_Concurrent_Type. This ensures supportin case of subtypes.(Needs_One_Actual): New predicate, for Ada 2005 use, to resolvesyntactic ambiguities involving indexing of function calls that returnarrays.(Abstract_Interface_List): New subprogram that returns the list ofabstract interfaces associated with a concurrent type or aconcurrent record type.(Interface_Present_In_Parent): New subprogram used to check if agiven type or some of its parents implement a given interface.(Collect_Abstract_Interfaces): Add support for concurrent typeswith interface types.(Has_Abstract_Interfaces): Add support for concurrent types withinterface types.(Is_Parent): New subprogram that determines whether E1 is a parentof E2. For a concurrent type its parent is the first element of itslist of interface types; for other types this function provides thesame result than Is_Ancestor.(Enclosing_Subprogram): Add test for N_Extended_Return_Statement.(Collect_Synchronized_Interfaces): Removed because the subprogramCollect_Abstract_Interfaces provides this functionality.(Collect_Abstract_Interfaces): Minor update to give support toconcurrent types and thus avoid undesired code duplication.(Get_Subprogram_Entity): Handle entry calls.(May_Be_Lvalue): Include actuals that appear as in-out parameters inentry calls.(Enter_Name): Do not give -gnatwh hiding warning for record componententities, they never result in hiding.2007-04-06 Ed Schonberg <schonberg@adacore.com>Robert Dewar <dewar@adacore.com>* sinfo.ads, sinfo.adb (Coextensions): New element list for allocators,to chain nested components that are allocators for access discriminantsof the enclosing object.Add N_Push and N_Pop nodesNew field Exception_Label added(Local_Raise_Statements): New field in N_Exception_Handler_Node(Local_Raise_Not_OK): New flag in N_Exception_Handler_Node(Is_Coextension): New flag for allocators, to mark allocators thatcorrespond to access discriminants of dynamically allocated objects.(N_Block_Statement): Document the fact that the corresponding entitycan be an E_Return_Statement.(Is_Coextension): New flag for allocators.Remove all code for DSP option* sprint.ads, sprint.adb: Display basic information for class_widesubtypes. Add handling of N_Push and N_Pop nodes2007-04-06 Arnaud Charlet <charlet@adacore.com>* s-tpobop.adb (Exceptional_Complete_Entry_Body): Undefer abortionbefore propagating exception.2007-04-06 Olivier Hainque <hainque@adacore.com>* tracebak.c (PC_ADJUST - ia64): -4 instead of -16, expected to yieldan address always within the call instruction from a return address.2007-04-06 Olivier Hainque <hainque@adacore.com>Eric Botcazou <botcazou@adacore.com>* trans.c (call_to_gnu) <TYPE_RETURNS_BY_TARGET_PTR_P>: Return anexpression with a COMPOUND_EXPR including the call instead of emittingthe call directly here.(gnat_to_gnu) <N_Slice>: Do not return a non-constant low bound if thehigh bound is constant and the slice is empty. Tidy.(tree_transform, case N_Op_Not): Handle properly the case where theoperation applies to a private type whose full view is a modular type.(Case_Statement_To_gnu): If an alternative is an E_Constant with anAddress_Clause, use the associated Expression as the GNAT treerepresenting the choice value to ensure the corresponding GCC tree isof the proper kind.(maybe_stabilize_reference): Stabilize COMPOUND_EXPRs as a wholeinstead of just the operands, as the base GCC stabilize_reference does.<CALL_EXPR>: New case. Directly stabilize the call if an lvalue is notrequested; otherwise fail.(addressable_p) <COMPONENT_REF>: Do not test DECL_NONADDRESSABLE_P.2007-04-06 Thomas Quinot <quinot@adacore.com>* uintp.ads, uintp.adb (UI_Div_Rem): New subprogram, extending previousimplementation of UI_Div.(UI_Div): Reimplement as a call to UI_Div_Rem.(UI_Rem): Take advantage of the fact that UI_Div_Rem provides theremainder, avoiding the cost of a multiplication and a subtraction.(UI_Modular_Inverse): Take advantage of the fact that UI_Div_Remprovides both quotient and remainder in a single computation.(UI_Modular_Exponentiation, UI_Modular_Inverse): New modular arithmeticfunctions for uint.(UI_Modular_Inverse): Add a note that the behaviour of this subprogramis undefined if the given n is not inversible.2007-04-06 Olivier Hainque <hainque@adacore.com>* utils2.c (known_alignment): Handle COMPOUND_EXPR, COND_EXPR andBIT_AND_EXPR. Handle also VIEW_CONVERT_EXPR, as the other conversionopcodes.2007-04-06 Eric Botcazou <botcazou@adacore.com>Olivier Hainque <hainque@adacore.com>* utils.c (update_pointer_to): Make a copy of the couple of FIELD_DECLswhen updating the contents of the old pointer to an unconstrained array.(end_subprog_body): Set error_gnat_node to Empty.(write_record_type_debug_info): Do not be unduly sparing with our bytes.(unchecked_convert): For subtype to base type conversions, require thatthe source be a subtype if it is an integer type.(builtin_decls): New global, vector of available builtin functions.(gnat_pushdecl): Add global builtin function declaration nodes to thebuiltin_decls list.(gnat_install_builtins): Adjust comments.(builtin_function): Set DECL_BUILTIN_CLASS and DECL_FUNCTION_CODE beforecalling gnat_pushdecl, so that it knows when it handed a builtinfunction declaration node.(builtin_decl_for): Search the builtin_decls list.2007-04-06 Eric Botcazou <botcazou@adacore.com>* s-stchop-vxworks.adb:(Stack_Check): Raise Storage_Error if the argument has wrapped around.2007-04-06 Robert Dewar <dewar@adacore.com>Arnaud Charlet <charlet@adacore.com>* a-diroro.ads: Inserted the pragma Unimplemented_Unit* bindgen.adb (Gen_Output_File_Ada): Generate pragma Ada_95 at startof filesAdd mention of -Sev (set initialize_scalars option from environmentvariable at run time) in gnatbind usage message.* elists.ads, elists.adb: (Append_Unique_Elmt): New procedure* fname-uf.ads: Minor comment fix* osint.ads: Change pragma Elaborate to Elaborate_All* par-load.adb: Add documentation.* sem_cat.ads, sem_cat.adb: Minor code reorganization* s-parint.ads (RCI_Locator) : Add 'Version' generic formal* s-secsta.ads: Extra comments* s-soflin.ads: Minor comment fixes* s-stratt.ads (Block_Stream_Ops_OK): Removed.* s-wchcon.ads: Minor comment addition* treepr.adb: Minor change in message(Print_Name,Print_Node): Make these debug printouts more robust: print"no such..." instead of crashing on bad input.2007-03-30 Rafael Ávila de Espíndola <espindola@google.com>* trans.c (Attribute_to_gnu): Use get_signed_or_unsigned_typeinstead of gnat_signed_or_unsigned_type.* utils.c (gnat_signed_or_unsigned_type): Remove.* misc.c (LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE): Remove* gigi.h (gnat_signed_or_unsigned_type): Remove2007-03-09 Roger Sayle <roger@eyesopen.com>* cuintp.c (UI_To_gnu): Use fold_buildN calls instead of callingfold with the result of buildN.* decl.c (gnat_to_gnu_entity): Likewise.* trans.c (Attribute_to_gnu, gnat_to_gnu, emit_check): Likewise.* utils.c (finish_record_type, merge_sizes, max_size, convert):Likewise.* utils2.c (gnat_truthvalue_conversion, compare_arrays,nonbinary_modular_operation, build_binary_op, build_unary_op,build_cond_expr): Likewise.* utils.c (convert): Use fold_build1 when casting values to void.* utils2.c (gnat_truthvalue_conversion): Use build_int_cst andfold_convert instead of convert when appropriate.2007-03-01 Brooks Moses <brooks.moses@codesourcery.com>* Make-lang.in: Add install-pdf target as copied fromautomake v1.10 rules.2007-02-28 Andreas Schwab <schwab@suse.de>* Make-lang.in (doc/gnat_ugn_unw.texi): Depend on$(gcc_docdir)/include/gcc-common.texi and gcc-vers.texi.(doc/gnat-style.info): Likewise.2007-02-26 Brooks Moses <brooks.moses@codesourcery.com>* gnat-style.texi: Standardize title page.* gnat_rm.texi: Likewise.* gnat_ugn.texi: Likewise.2007-02-25 Mark Mitchell <mark@codesourcery.com>* decl.c (annotate_value): Adjust for refactoring of tree_maphierarchy.2007-02-24 Mark Mitchell <mark@codesourcery.com>* decl.c (annotate_value): Adjust for refactoring of tree_maphierarchy.2007-02-21 Ed Schonberg <schonberg@adacore.com>PR ada/18819* sem_ch3.adb (Create_Constrained_Components): for a subtype of anuntagged derived type, add hidden components to keep discriminantlayout consistent, when a given discriminant of the derived typeconstraints several discriminants of the parent type.2007-02-16 Eric Botcazou <ebotcazou@adacore.com>Sandra Loosemore <sandra@codesourcery.com>* trans.c (call_to_gnu): Use build_call_list instead of build3 tobuild the call expression.(gnat_stabilize_reference_1): Handle tcc_vl_exp.* utils.c (max_size) <tcc_exceptional>: Delete.<tcc_vl_exp>: New case.<tcc_expression>: Delete CALL_EXPR subcase.(build_global_cdtor): Use build_call_nary instead of build3.* utils2.c (build_call_1_expr): Likewise.(build_call_2_expr): Likewise.(build_call_0_expr): Likewise.(build_call_alloc_dealloc): Likewise.2007-02-07 Andreas Krebbel <krebbel1@de.ibm.com>* raise-gcc.c (get_region_description_for, get_call_site_action_for,get_action_description_for): Replace _Unwind_Word with _uleb128_tand _Unwind_SWord with _sleb128_t.2007-02-06 Paolo Bonzini <bonzini@gnu.org>* Make-lang.in (ada/decl.o): Add gt-ada-decl.h dependency.* decl.c: Include gt-ada-decl.h.(annotate_value_cache): New.(annotate_value): Use it instead of TREE_COMPLEXITY.2007-02-03 Kazu Hirata <kazu@codesourcery.com>* misc.c, utils2.c: Fix comment typos.2007-01-24 Roger Sayle <roger@eyesopen.com>* decl.c (gnat_to_gnu_entity): Use TREE_OVERFLOW instead ofTREE_CONSTANT_OVERFLOW.(allocatable_size_p, annotate_value): Likewise.* trans.c (gnat_to_gnu): Likewise.* utils.c (unchecked_convert): Likewise.* utils2.c (build_simple_component_ref): Likewise.2007-01-23 Richard Guenther <rguenther@suse.de>PR bootstrap/30541* Make-lang.in: Replace invocations of gnatmake with $(GNATMAKE).(gnatboot2): Pass staged GNATMAKE instead of STAGE_PREFIX.(gnatboot3): Likewise.(GNATBIND): Do not define.* Makefile.in (GNATBIND): Do not define.2007-01-08 Richard Guenther <rguenther@suse.de>* cuintp.c (build_cst_from_int): Use built_int_cst_type.* trans.c (gnat_to_gnu): Likewise.Copyright (C) 2007 Free Software Foundation, Inc.Copying and distribution of this file, with or without modification,are permitted in any medium without royalty provided the copyrightnotice and this notice are preserved.
