OSDN Git Service

d80f296da584a81b6cbf6e34b8462ff616b83a6d
[pf3gnuchains/gcc-fork.git] / gcc / ada / ChangeLog
1 2004-10-04  Pascal Obry  <obry@gnat.com>
2
3         * tracebak.c: Always set LOWEST_ADDR to 0 on Win32 (as done on all
4         other x86 platforms).
5
6 2004-10-04  Olivier Hainque  <hainque@act-europe.fr>
7
8         * s-tassta.adb (Task_Wrapper): Make it Convention C, which makes sense
9         in general and triggers stack alignment adjustment for thread entry
10         points on targets where this is necessary.
11
12 2004-10-04  Bernard Banner  <banner@gnat.com>
13
14         PR ada/13897
15
16         * Makefile.in: Add section for powerpc linux
17         Add variant i-vxwork-x86.ads
18
19         * i-vxwork-x86.ads, system-linux-ppc.ads: New files.
20
21 2004-10-04  Olivier Hainque  <hainque@act-europe.fr>
22
23         * init.c (__gnat_initialize): Call an Ada subprogram to perform the
24         table registration calls when need be. Ensures no reference to the crt
25         ctors symbol are issued in the SJLJ case, which avoids possible
26         undefined symbol errors in the case of modules to be statically linked
27         with the kernel.
28
29 2004-10-04  Javier Miranda  <miranda@gnat.com>
30
31         * sem_ch4.adb (Try_Object_Operation): Reformat the code to expand
32         in-line the code corresponding to subprogram Analyze_Actuals. In
33         addition, analyze the actuals only in case of subprogram call.
34
35 2004-10-04  Ed Falis  <falis@gnat.com>
36
37         * s-vxwork-x86.ads: (FP_CONTEXT): Defined to be correct size
38
39 2004-10-04  Sergey Rybin  <rybin@act-europe.fr>
40
41         * g-dirope.ads (Base_Name): Clarify the meaning of the Suffix parameter
42         in the documentation.
43
44 2004-10-04  Robert Dewar  <dewar@gnat.com>
45
46         * sem_ch5.adb (Unblocked_Exit_Count): Now used for blocks as well as
47         IF and CASE.
48         (Analyze_Block_Statement): Add circuitry to detect following dead code
49         (Check_Unreachable_Code): Handle case of block exit
50
51 2004-10-04  Robert Dewar  <dewar@gnat.com>
52
53         * g-spipat.adb: (XMatch): Avoid warning for Logic_Error call
54         (XMatchD): Avoid warning for Logic_Error call
55
56 2004-10-04  Robert Dewar  <dewar@gnat.com>
57
58         * exp_ch4.adb (Is_Procedure_Actual): Correct so that this does not
59         consider expressions buried within a procedure actual to be an actual.
60         This caused some blowups with uses of packed slices within a procedure
61         actual.
62
63 2004-10-04  Robert Dewar  <dewar@gnat.com>
64
65         * exp_ch3.adb (Needs_Simple_Initialization): Modular packed arrays no
66         longer need to be initialized to zero.
67         (Get_Simple_Init_Val): Modular packed arrays no longer need to be
68         initialized to zero.
69
70         * checks.adb (Expr_Known_Valid): Packed arrays are now always
71         considered valid, even if the representation is modular. That's correct
72         now that we no longer initialize packed modular arrays to zero.
73
74         * exp_dbug.ads: Clarify documentation on handling of PAD and JM
75         suffixes. These are now documented as the only cases in which the
76         debugger ignores outer records.
77         Previously, the spec allowed arbitrary suffixes for this purpose.
78         Change name of LJM to JM for packed array pad records
79         Create separate section on packed array handling, and add a whole new
80         set of comments to this section describing the situation with packed
81         modular types and justification requirements depending on endianness.
82
83 2004-10-04  Robert Dewar  <dewar@gnat.com>
84
85         * a-except.adb: Add a comment for last change
86
87         * einfo.ads: Minor spelling correction in comment
88
89         * exp_pakd.adb, gnatdll.adb, prj-attr.ads: Minor reformatting
90
91         * sem_ch11.adb: Fix a case of using | instead of \ for continuation
92         messages.
93
94         * sem_util.ads: Minor comment update
95
96 2004-10-04  Ed Schonberg  <schonberg@gnat.com>
97
98         * sem_ch6.adb (Analyze_Subprogram_Body): Do not treat Inline as
99         Inline_Always when in Configurable_Run_Time mode.
100
101         * sem_prag.adb (Process_Convention): If entity is an inherited
102         subprogram, apply convention to parent subprogram if in same scope.
103         (Analyze_Pragma, case Inline): Do not treat Inline as Inline_Always
104         when in Configurable_Run_Time mode.
105
106 2004-10-04  Ed Schonberg  <schonberg@gnat.com>
107
108         * sem_ch3.adb (Build_Derived_Record_Type): Set First/Last entity of
109         class_wide type after component list has been inherited.
110
111 2004-10-04  Ed Schonberg  <schonberg@gnat.com>
112
113         * sem_ch12.adb (Check_Generic_Actuals): New predicate
114         Denotes_Previous_Actual, to handle properly the case of a private
115         actual that is also the component type of a subsequent array actual.
116         The visibility status of the first actual is not affected when the
117         second is installed.
118         (Process_Nested_Formal): Subsidiary of Instantiate_Formal_Package, to
119         make fully recursive the treatment of formals of packages declared
120         with a box.
121         (Restore_Nested_Formal): Subsidiary of Restore_Private_Views, to undo
122         the above on exit from an instantiation.
123         (Denotes_Formal_Package): When called from Restore_Private_Views, ignore
124         current instantiation which is now complete.
125         (Analyze_Package_Instantiation): No instantiated body is needed if the
126         main unit is generic. Efficient, and avoid anomalies when a instance
127         appears in a package accessed through rtsfind.
128
129 2004-10-04  Ed Schonberg  <schonberg@gnat.com>
130
131         * exp_ch6.adb (Expand_N_Function_Call): If stack checking is enabled,
132         do not generate a declaration for a temporary if the call is part of a
133         library-level instantiation.
134
135 2004-10-04  Ed Schonberg  <schonberg@gnat.com>
136
137         * sem_util.adb (Explain_Limited_Type): Ignore internal components when
138         searching for a limited component to flag.
139
140         * exp_attr.adb (Freeze_Stream_Subprogram): Subsidiary procedure to
141         expansion of Input, to account for the fact that the implicit call
142         generated by the attribute reference must freeze the user-defined
143         stream subprogram. This is only relevant to 'Input, because it can
144         appear in an object declaration, prior to the body of the subprogram.
145
146         * sem_ch13.adb (Rep_Item_Too_Late): Make the error non-serious, so that
147         expansion can proceed and further errors uncovered.
148         (Minor clean up): Fix cases of using | instead of \ for continuation
149         messages.
150
151 2004-10-04  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
152
153         * cuintp.c, decl.c, utils2.c: Use gcc_assert and gcc_unreachable.
154
155         * trans.c (assoc_to_constructor): Fix unused var warning if no checking.
156         (gnat_gimplify_expr, case ADDR_EXPR): Fix error in last change.
157         Use gcc_assert and gcc_unreachable.
158
159         * decl.c (gnat_to_gnu_entity, case object): Check and process a
160         specified alignment before validating size.
161         (gnat_to_gnu_entity) <E_Modular_Integer_Subtype>: Create a
162         stripped-down declaration for the type of the inner field when making
163         a JM type.
164
165         * utils.c (finish_record_type): Do not compute the size in units
166         incrementally. Instead compute it once for the rep clause case.
167         Use gcc_assert and gcc_unreachable.
168
169 2004-10-04  Vincent Celier  <celier@gnat.com>
170
171         * a-dirval-mingw.adb (Invalid_Character): Add '\' as invalid character
172         in file name.
173         (Is_Valid_Path_Name): Take '/' as a directory separator.
174
175 2004-10-04  Vincent Celier  <celier@gnat.com>
176
177         * prj-part.adb (Parse_Single_Project): Call Is_Extending_All
178         (Extended_Project) only if Extended_Project is defined, to avoid
179         assertion error.
180         (Post_Parse_Context_Clause): Always call Set_Path_Name_Of with a
181         resolved path.
182         (Parse_Single_Project): Ditto.
183
184         * prj-env.adb (Set_Ada_Paths.Add.Recursive_Add): Do not call
185         Add_To_Project_Path for virtual projects.
186
187 2004-10-04  Vincent Celier  <celier@gnat.com>
188
189         * mlib-tgt-tru64.adb, mlib-tgt-aix.adb, mlib-tgt-irix.adb, 
190         mlib-tgt-hpux.adb, mlib-tgt-linux.adb, mlib-tgt-solaris.adb, 
191         mlib-tgt-vms-alpha.adb, mlib-tgt-vms-ia64.adb, mlib-tgt-mingw.adb, 
192         mlib-tgt-vxworks.adb, mlib-tgt.adb (Build_Dynamic_Library): New
193         parameter Options_2.
194
195         * mlib-prj.ads, mlib-prj.adb (Build_Library): Call
196         Build_Dynamic_Library with an empty Options_2.
197
198         * mlib-utl.ads, mlib-utl.adb (Gcc): Parameter Options_2 has no
199         default anymore.
200
201         * makegpr.adb (Get_Imported_Directories.add): Remove trailing
202         directory separator, if any.
203         (Gprmake): Do not allow mains on the command line for library projects.
204         Do not attempt to link when the project is a library project.
205         (Library_Opts): New table to store Library_Options.
206         (Build_Library): If Library_Options is specified, pass these options
207         when building a shared library.
208
209 2004-10-04  Jose Ruiz  <ruiz@act-europe.fr>
210
211         * s-tposen.adb (Service_Entry): The object must be always unlocked at
212         the end of this procedure now that the unlock operation was inserted
213         by the expander.
214
215 2004-10-04  Jose Ruiz  <ruiz@act-europe.fr>
216
217         * targparm.ads, targparm.adb (Targparm_Tags): Add PAS value
218         corresponding to the Preallocated_Stacks flags in System.
219         (Get_Target_Parameters): Including the processing for
220         Preallocated_Stacks.
221
222         * system.ads, system-vxworks-x86.ads, system-darwin-ppc.ads, 
223         system-vms_64.ads, system-unixware.ads, system-linux-ia64.ads, 
224         system-freebsd-x86.ads, system-lynxos-ppc.ads, system-lynxos-x86.ads, 
225         system-linux-x86_64.ads, system-tru64.ads, system-aix.ads, 
226         system-vxworks-sparcv9.ads, system-vxworks-xscale.ads, 
227         system-solaris-x86.ads, system-irix-o32.ads, system-irix-n32.ads, 
228         system-hpux.ads, system-vxworks-m68k.ads, system-linux-x86.ads, 
229         system-vxworks-mips.ads, system-os2.ads, system-interix.ads, 
230         system-solaris-sparc.ads, system-solaris-sparcv9.ads, system-vms.ads, 
231         system-mingw.ads, system-vms-zcx.ads, system-vxworks-ppc.ads, 
232         system-vxworks-alpha.ads: Add the flag Preallocated_Stacks, that is
233         used to signal whether the compiler creates the required stacks and
234         descriptors for the different tasks (when True) or it is done by the
235         underlying operating system at run time (when False).
236         It is initially set to False in all targets.
237
238         * exp_ch9.adb (Expand_N_Task_Type_Declaration): Create the task stack
239         if it is supported by the target.
240         (Make_Task_Create_Call): Pass the stack address if it has been
241         previously created. Otherwise pass a Null_Address.
242
243         * snames.adb: Add _stack.
244
245         * snames.ads: Add Name_uStack. Required to allow the expander to
246         statically allocated task stacks.
247
248         * s-tarest.ads, s-tarest.adb (Create_Restricted_Task): Add
249         Stack_Address argument.
250         Check that its value is equal to Null_Address because this target does
251         not support the static stack allocation.
252
253 2004-10-04  Thomas Quinot  <quinot@act-europe.fr>
254
255         * usage.adb: Change "pragma inline" to "pragma Inline" in information
256         and error messages
257
258 2004-10-04  Thomas Quinot  <quinot@act-europe.fr>
259
260         * exp_dist.adb: Split declaration of asynchronous flag out of
261         Add_RACW_Read_Attribute.
262         Minor reformatting for better alignment with PolyORB version.
263         Store the entity for the asynchronous flag of an RACW, rather than the
264         expression, in the asynchronous flags table. This will allow this flag
265         to be used in other subprograms beside Add_RACW_Read_Attribute.
266
267 2004-10-04  Thomas Quinot  <quinot@act-europe.fr>
268
269         * g-socket.ads, g-socket.adb, g-socthi.adb, socket.c,
270         g-soccon-aix.ads, g-soccon-irix.ads, g-soccon-hpux.ads, 
271         g-soccon-interix.ads, g-soccon-solaris.ads, g-soccon-vms.adb, 
272         g-soccon-mingw.ads, g-soccon-vxworks.ads, g-soccon-freebsd.ads, 
273         g-soccon.ads, g-soccon-unixware.ads, g-soccon-tru64.ads:  Add new
274         sockets constant MSG_NOSIGNAL (Linux-specific).
275         Add new sockets constant MSG_Forced_Flags, list of flags to be set on
276         all Send operations.
277         For Linux, set MSG_NOSIGNAL on all send operations to prevent them
278         from trigerring SIGPIPE.
279         Rename components to avoid clash with Ada 2005 possible reserved
280         word 'interface'.
281         (Check_Selector): When the select system call returns with an error
282         condition, propagate Socket_Error to the caller.
283
284 2004-10-01  Jan Hubicka  <jh@suse.cz>
285
286         * misc.c (gnat_expand_body): Update call of tree_rest_of_compilation.
287
288 2004-09-23  Robert Dewar  <dewar@gnat.com>
289
290         PR ada/17540
291
292         * sem_prag.adb (Process_Import_Or_Interface): Don't set Is_Public here,
293         instead do this at freeze time (we won't do it if there is an address
294         clause).
295         Change "pragma inline" to "pragma Inline" in information and error
296         messages.
297         Minor reformatting.
298
299         * freeze.adb (Check_Address_Clause): Remove previous change, not the
300         right way of doing things after all.
301         (Freeze_Entity): For object, set Is_Public for imported entities
302         unless there is an address clause present.
303
304 2004-09-21  Olivier Hainque  <hainque@act-europe.fr>
305
306         * decl.c (gnat_to_gnu_entity) <E_General_Access_Type>: Check for a
307         dummy designated type via TYPE_MODE instead of COMPLETE_TYPE_P. This
308         ensures proper handling of types with rep clauses, which might have
309         their TYPE_SIZE set already.
310
311 2004-09-21  Robert Dewar  <dewar@gnat.com>
312
313         * decl.c (gnat_to_gnu_type, case E_Modular_Integer_Type): Wrap modular
314         packed array types in both little- and big-endian cases. This change
315         ensures that we no longer count on the unused bits being initialized
316         for such types (and in particular ensures that equality testing will
317         only read the relevant bits).
318         Change name TYPE_LEFT_JUSTIFIED_MODULAR_P to TYPE_JUSTIFIED_MODULAR_P
319         These changes mean that we no longer need to initialize small packed
320         arrays.
321         (gnat_to_gnu_entity) <E_Record_Subtype>: Apply the same
322         optimization to an LJM field as to its parent field.
323
324         * ada-tree.h, trans.c, utils.c, utils2.c:
325         Change name TYPE_LEFT_JUSTIFIED_MODULAR_P to TYPE_JUSTIFIED_MODULAR_P
326
327 2004-09-20  Jan Hubicka  <jh@suse.cz>
328
329         * utils.c (gnat_finalize): Remove.
330         (end_subprog_body): Directly call cgraph_finalize_function;
331         do not lower the nested functions.
332
333 2004-09-20  Robert Dewar  <dewar@gnat.com>
334
335         PR ada/17540
336
337         * freeze.adb (Check_Address_Clause): Reset Is_Imported and Is_Public
338         if an address clause is present, since that means that the Import
339         should be ignored.
340
341 2004-09-20  Arnaud Charlet  <charlet@act-europe.fr>
342
343         * 5tsystem.ads: Removed, no longer used.
344
345 2004-09-17  Jeffrey D. Oldham  <oldham@codesourcery.com>
346             Zack Weinberg  <zack@codesourcery.com>
347
348         * ada-tree.def: Use tree_code_class enumeration constants
349         instead of code letters.
350         * ada-tree.h, decl.c, misc.c, trans.c, utils.c, utils2.c:
351         Update for new tree-class enumeration constants.
352
353 2004-09-17  Vincent Celier  <celier@gnat.com>
354
355         * prj-attr-pm.ads, prj-attr-pm.adb: New files, to split some private
356         capabilities of the general project manager.
357
358 2004-09-09  Vincent Celier  <celier@gnat.com>
359
360         * a-direct.ads: Add pragma Ada_05
361         (Directory_Entry_Type): Give default value to component Kind to avoid
362         not initialized warnings.
363
364         * a-direct.adb (Current_Directory): Remove directory separator at the
365         end.
366         (Delete_Directory, Delete_Tree): Raise Name_Error if Directory is not
367         an existing directory.
368         (Fetch_Next_Entry): Give default value to variable Kind to avoid warning
369         (Size (String)): Function C_Size returns Long_Integer, not File_Size.
370         Convert the result to File_Size.
371
372         * prj.ads: (Project_Error): New exception
373
374         * prj-attr.adb: Except in procedure Initialize, Fail comes from
375         Prj.Com, not from Osint.
376         (Attrs, Package_Attributes): Tables moved to private part of spec
377         (Add_Attribute, Add_Unknown_Package): Moved to new child package
378         Prj.Attr.PM.
379         (Register_New_Package (Name, Attributes), Register_New_Attribute): Raise
380         Prj.Project_Error after call to Fail.
381         (Register_New_Package (Name, Id)): Set Id to Empty_Package after calling
382         Fail. Check that package name is not already in use.
383
384         * prj-attr.ads: Comment updates to indicate that all subprograms may be
385         used by tools, not only by the project manager, and to indicate that
386         exception Prj.Prj_Error may be raised in case of problem.
387         (Add_Unknown_Package, Add_Attribute): Moved to new child package
388         Prj.Attr.PM.
389         (Attrs, Package_Attributes): Table instantiations moved from the body to
390         the private part to be accessible from Prj.Attr.PM body.
391
392         * prj-dect.adb (Parse_Package_Declaration): Call Add_Unknown_Package
393         from new package Prj.Attr.PM.
394         (Parse_Attribute_Declaration): Call Add_Attribute from new package
395         Prj.Attr.PM.
396
397         * Makefile.in: Add prj-attr-pm.o to gnatmake object list
398
399         * gnatbind.adb (Gnatbind): Correct warning message (Elaboration_Check
400         instead of Elaboration_Checks).
401
402         * a-calend.adb: Minor reformatting
403
404 2004-09-09  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
405
406         * gigi.h (maybe_pad_type): New declaration.
407         (create_subprog_type): New arg RETURNS_BY_TARGET_PTR.
408
409         * ada-tree.h: (TYPE_RETURNS_BY_TARGET_PTR_P): New macro.
410
411         * cuintp.c: Convert to use buildN.
412
413         * decl.c (maybe_pad_type): No longer static.
414         (gnat_to_gnu_entity, case E_Function): Handle case of returning by
415         target pointer.
416         Convert to use buildN.
417
418         * trans.c (call_to_gnu): Add arg GNU_TARGET; support
419         TYPE_RETURNS_BY_TARGET_PTR_P.  All callers changed.
420         (gnat_to_gnu, case N_Assignment_Statement): Call call_to_gnu if call on
421         RHS.
422         (gnat_to_gnu, case N_Return): Handle TYPE_RETURN_BY_TARGET_PTR_P.
423         (gnat_gimplify_expr, case ADDR_EXPR): New case.
424         Convert to use buildN.
425
426         * utils2.c (gnat_build_constructor): Also set TREE_INVARIANT and
427         TREE_READONLY for const.
428         Convert to use buildN.
429
430         * utils.c (create_subprog_type): New operand RETURNS_BY_TARGET_PTR.
431         (create_var_decl): Refine when TREE_STATIC is set.
432         Convert to use buildN.
433
434 2004-09-09  Gary Dismukes  <dismukes@gnat.com>
435
436         * gnat_ugn.texi: Delete text relating to checking of ali and object
437         consistency.
438
439         * a-except.adb (Rcheck_*): Add pragmas No_Return for each of these
440         routines.
441
442 2004-09-09  Jose Ruiz  <ruiz@act-europe.fr>
443
444         * gnat_ugn.texi: Add Detect_Blocking to the list of configuration
445         pragmas recognized by GNAT.
446
447         * gnat_rm.texi: Document pragma Detect_Blocking.
448
449         * s-solita.adb (Timed_Delay_T): When pragma Detect_Blocking is active,
450         raise Program_Error if called from a protected operation.
451
452         * s-taprob.adb (Lock): When pragma Detect_Blocking is active increase
453         the protected action nesting level.
454         (Lock_Read_Only): When pragma Detect_Blocking is active increase the
455         protected action nesting level.
456         (Unlock): When pragma Detect_Blocking is active decrease the protected
457         action nesting level.
458
459         * s-taskin.adb (Initialize_ATCB): Initialize to 0 the
460         Protected_Action_Nesting.
461
462         * s-taskin.ads: Adding the field Protected_Action_Nesting to the
463         Common_ATCB record. It contains the dynamic level of protected action
464         nesting for each task. It is needed for checking whether potentially
465         blocking operations are called from protected operations.
466         (Detect_Blocking): Adding a Boolean constant reflecting whether pragma
467         Detect_Blocking is active or not in the partition.
468
469         * s-tasren.adb (Call_Simple): When pragma Detect_Blocking is active,
470         raise Program_Error if called from a protected operation.
471         (Task_Entry_Call): When pragma Detect_Blocking is active, raise
472         Program_Error if called from a protected operation.
473         (Timed_Task_Entry_Call): When pragma Detect_Blocking is active, raise
474         Program_Error if called from a protected operation.
475
476         * s-tassta.adb (Abort_Tasks): When pragma Detect_Blocking is active,
477         raise Program_Error if called from a protected operation.
478
479         * s-tpoben.adb (Lock_Entries): When pragma Detect_Blocking is active,
480         raise Program_Error if called from a protected operation, and increase
481         the protected action nesting level.
482         (Lock_Read_Only_Entries): When pragma Detect_Blocking is active, raise
483         Program_Error if called from a protected operation, and increase the
484         protected action nesting level.
485         (Unlock_Entries): When pragma Detect_Blocking is active decrease the
486         protected action nesting level.
487
488         * s-tposen.adb (Lock_Entry): When pragma Detect_Blocking is active,
489         raise Program_Error if called from a protected operation, and increase
490         the protected action nesting level.
491         (Lock_Read_Only_Entry): When pragma Detect_Blocking is active, raise
492         Program_Error if called from a protected operation, and increase the
493         protected action nesting level.
494         (Protected_Single_Entry_Call): When pragma Detect_Blocking is active,
495         raise Program_Error if called from a protected operation.
496         (Timed_Protected_Single_Entry_Call): When pragma Detect_Blocking is
497         active, raise Program_Error if called from a protected operation.
498         (Unlock_Entry): When pragma Detect_Blocking is active decrease the
499         protected action nesting level.
500
501         * sem_util.adb (Check_Potentially_Blocking_Operation): Remove the
502         insertion of the statement raising Program_Error. The run time
503         contains the required machinery for handling that.
504
505         * sem_util.ads: Change comment associated to procedure
506         Check_Potentially_Blocking_Operation.
507         This procedure does not insert a call for raising the exception because
508         that is currently done by the run time.
509
510         * raise.h (__gnat_set_globals): Pass the detect_blocking parameter.
511
512         * init.c: Add the global variable __gl_detect_blocking that indicates
513         whether pragma Detect_Blocking is active (1) or not (0). Needed for
514         making the pragma available at run time.
515         (__gnat_set_globals): Pass and update the detect_blocking parameter.
516
517         * lib-writ.adb (Write_ALI): Set the DB flag in the ali file if
518         pragma Detect_Blocking is active.
519
520         * lib-writ.ads: Document the Detect_Blocking flag (DB) in ali files.
521
522         * ali.adb (Scan_ALI): Set the Detect_Blocking value to true if the flag
523         DB is found in the ali file. Any unit compiled with pragma
524         Detect_Blocking active forces its effect in the whole partition.
525
526         * a-retide.adb (Delay_Until): Raise Program_Error if pragma
527         Detect_Blocking is active and delay is called from a protected
528         operation.
529
530         * bindgen.adb (Gen_Adainit_Ada): When generating the call to
531         __gnat_set_globals, pass 1 as Detect_Blocking parameter if pragma
532         Detect_Blocking is active (0 otherwise).
533         (Gen_Adainit_C): When generating the call to __gnat_set_globals, pass 1
534         as Detect_Blocking parameter if pragma Detect_Blocking is active (0
535         otherwise).
536
537 2004-09-09  Thomas Quinot  <quinot@act-europe.fr>
538
539         * gnat_rm.texi: Rename GNAT.Perfect_Hash.Generators to
540         GNAT.Perfect_Hash_Generators, and remove the empty GNAT.Perfect_Hash
541         package.
542
543         * s-parint.ads, s-parint.adb (Get_RAS_Info): New subprogram.
544         (Register_Receiving_Stub): Add Subp_Info formal parameter.
545         Update API in placeholder implemetation of s-parint to reflect changes
546         in distribution runtime library.
547
548         * sem_ch3.adb (Expand_Derived_Record): Rename to
549         Expand_Record_Extension.
550
551         * sem_disp.adb (Check_Controlling_Formals): Improve error message for
552         primitive operations of potentially distributed object types that have
553         non-controlling anonymous access formals.
554
555         * sem_dist.ads, sem_dist.adb (Build_RAS_Primitive_Specification): New
556         subprogram.
557         New implementation of expansion for remote access-to-subprogram types,
558         based on the RACW infrastructure.
559         This version of sem_dist is compatible with PolyORB/DSA as well as
560         GLADE.
561
562         * sem_prag.adb (Analyze_Pragma, case Pragma_Asynchronous): For a pragma
563         Asynchrronous that applies to a remote access-to-subprogram type, mark
564         the underlying RACW type as asynchronous.
565
566         * link.c: FreeBSD uses GNU ld: set __gnat_objlist_file_supported and
567          __gnat_using_gnu_linker to 1.
568
569         * Makefile.rtl, impunit.adb, g-perhas.ads, g-pehage.ads,
570         g-pehage.adb: Rename GNAT.Perfect_Hash.Generators to
571         GNAT.Perfect_Hash_Generators, and remove the empty
572         GNAT.Perfect_Hash package.
573
574         * atree.adb: Minor reformatting
575
576         * exp_ch3.adb (Expand_Derived_Record): Rename to
577         Expand_Record_Extension.
578         (Build_Record_Init_Proc.Build_Assignment): The default expression in
579         a component declaration must remain attached at that point in the
580         tree so New_Copy_Tree copies it if the enclosing record type is derived.
581         It is therefore necessary to take a copy of the expression when building
582         the corresponding assignment statement in the init proc.
583         As a side effect, in the case of a derived record type, we now see the
584         original expression, without any rewriting that could have occurred
585         during expansion of the ancestor type's init proc, and we do not need
586         to go back to Original_Node.
587
588         * exp_ch3.ads (Expand_Derived_Record): Rename to
589         Expand_Record_Extension.
590
591         * exp_dist.ads, exp_dist.adb (Underlying_RACW_Type): New subprogram.
592         Returns the RACW type used to implement a remote access-to-subprogram
593         type.
594         (Add_RAS_Proxy_And_Analyze, Build_Remote_Subprogram_Proxy_Type):
595         New subprograms. Used to create a proxy tagged object for a remote
596         subprogram. The proxy object is used as the designated object
597         for RAS values on the same partition (unless All_Calls_Remote applies).
598         (Build_Get_Unique_RP_Call): New subprogram. Build a call to
599         System.Partition_Interface.Get_Unique_Remote_Pointer.
600         (Add_RAS_Access_TSS, Add_RAS_Dereference_TSS):
601         Renamed from Add_RAS_*_Attribute.
602         (Add_Receiving_Stubs_To_Declarations): Generate a table of local
603         subprograms.
604         New implementation of expansion for remote access-to-subprogram types,
605         based on the RACW infrastructure.
606
607         * exp_dist.ads (Copy_Specification): Update comment to note that this
608         function can copy the specification from either a subprogram
609         specification or an access-to-subprogram type definition.
610
611 2004-09-09  Ed Schonberg  <schonberg@gnat.com>
612
613         * sem_type.adb (Disambiguate): Handle properly an accidental ambiguity
614         in an instance, between an explicit subprogram an one inherited from a
615         type derived from an actual.
616
617         * exp_ch6.adb (Expand_N_Subprogram_Body): If polling is enabled, do not
618         add a polling call if the subprogram is to be inlined by the back-end,
619         to avoid repeated calls with multiple inlinings.
620
621         * checks.adb (Apply_Alignment_Check): If the expression in the address
622         clause is a call whose name is not a static entity (e.g. a dispatching
623         call), treat as dynamic.
624
625 2004-09-09  Robert Dewar  <dewar@gnat.com>
626
627         * g-trasym.ads: Minor reformatting
628
629         * exp_ch3.adb (Component_Needs_Simple_Initialization): Don't except
630         packed arrays, since unused bits are expected to be zero for a
631         comparison.
632
633 2004-09-09  Eric Botcazou  <ebotcazou@act-europe.fr>
634
635         * exp_pakd.ads: Fix an inacurracy and a couple of typos in the head
636         comment.
637
638 2004-09-09  Pascal Obry  <obry@gnat.com>
639
640         * mdll.ads, mdll.adb (Build_Dynamic_Library): New parameter Map_File to
641         enable map file generation. Add the right option to generate the map
642         file if Map_File is set to True.
643
644         * gnatdll.adb (Gen_Map_File): New variable.
645         (Syntax): Add info about new -m (Map_File) option.
646         (Parse_Command_Line): Add support for -m option.
647         (gnatdll): Pass Gen_Map_File to Build_Dynamic_Library calls.
648         Minor reformatting.
649
650 2004-09-09  Laurent Pautet  <pautet@act-europe.fr>
651
652         * gnatls.adb: Add a very verbose mode -V. Such mode is required by the
653         new gnatdist implementation.
654         Define a subpackage isolating the output routines specific to this
655         verbose mode.
656
657 2004-09-09  Joel Brobecker  <brobecker@gnat.com>
658
659         * Makefile.rtl: (GNATRTL_NONTASKING_OBJS): Add g-dynhta.
660
661         * gnat_ugn.texi (Main Subprograms): Fix typo. Deduced, not deducted.
662
663 2004-09-09  Cyrille Comar  <comar@act-europe.fr>
664
665         * opt.adb (Set_Opt_Config_Switches): Use Ada_Version_Runtime to compile
666         internal unit.
667
668         * opt.ads: Add Ada_Version_Runtime constant used to decide which
669         version of the language is used to compile the run time.
670
671 2004-09-09  Arnaud Charlet  <charlet@act-europe.fr>
672
673         * sem_util.adb (Requires_Transient_Scope): Re-enable handling
674         of variable length temporaries for function return now that the
675         back-end and gigi support it.
676
677 2004-09-01  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
678
679         * misc.c (gnat_print_type): Use TYPE_RM_SIZE_NUM.
680
681         * trans.c (struct stmt_group): Delete field GLOBAL.
682         (gnat_init_stmt_group): Do not initialize it.
683         (call_to_gnu): Use save_expr, not protect_multiple_eval.
684         (Exception_Handler_to_gnu_sjlj): Call build_int_cst, not build_int_2
685         (gnat_to_gnu, case N_Character_Literal, N_String_Literal): Likewise.
686         (gnat_to_gnu, case N_Compilation_Unit): Do not set GLOBAL in stmt group.
687         (start_stmt_group): Likewise.
688         (add_stmt, add_decl_expr): Rework handling of global DECL_EXPRs.
689
690         * utils2.c (ggc.h): Include.
691         (build_call_raise): Call build_int_cst, not build_int_2.
692
693         * utils.c (gnat_init_decl_processing): Fix arg to
694         build_common_tree_nodes.
695         (create_subprog_type): Do not use SET_TYPE_CI_CO_LIST.
696         (gnat_define_builtin): Set built_in_decls.
697         (init_gigi_decls): Call build_int_cst, not build_int_2.
698
699         * ada-tree.h (struct lang_decl, struct lang_type): Field is type tree.
700         (GET_TYPE_LANG_SPECIFIC, SET_TYPE_LANG_SPECIFIC): New macros.
701         (GET_DECL_LANG_SPECIFIC, SET_DECL_LANG_SPECIFIC): Likewise.
702         (TYPE_CI_CO_LIST, SET_TYPE_CI_CO_LIST, TYPE_MODULE,
703         SET_TYPE_MODULE): Use them.
704         (TYPE_INDEX_TYPE, SET_TYPE_INDEX_TYPE, TYPE_DIGITS_VALUE): Likewise.
705         (SET_TYPE_DIGITS_VALUE, TYPE_UNCONSTRAINED_ARRAY): Likewise.
706         (SET_TYPE_UNCONSTRAINED_ARRAY, TYPE_ADA_SIZE,
707         SET_TYPE_ADA_SIZE): Likewise.
708         (TYPE_ACTUAL_BOUNDS, SET_TYPE_ACTUAL_BOUNDS): Likewise.
709         (DECL_CONST_CORRESPONDING_VAR,
710         SET_DECL_CONST_CORRESPONDING_VAR): Likewise.
711         (DECL_ORIGINAL_FIELD, SET_DECL_ORIGINAL_FIELD): Likewise.
712         (TYPE_RM_SIZE_INT, TYPE_RM_SIZE_ENUM, SET_TYPE_RM_SIZE_ENUM): Deleted.
713         (TYPE_RM_SIZE_NUM): New macro.
714         (TYPE_RM_SIZE): Modified to use above.
715
716         * cuintp.c: (build_cst_from_int): New function.
717         (UI_To_gnu): Use it.
718
719         * decl.c (gnat_to_gnu_entity): Use TYPE_RM_SIZE_NUM.
720         (make_type_from_size): Avoid changing TYPE_UNSIGNED of a type.
721         (gnat_substitute_in_type, case ARRAY_TYPE): If old had a
722         MIN_EXPR for the size, copy it into new.
723
724 2004-09-01  Robert Dewar  <dewar@gnat.com>
725
726         * exp_ch6.adb (Expand_Call): Properly handle validity checks for
727         packed indexed component where array is an IN OUT formal. This
728         generated garbage code previously.
729
730         * gnat_ugn.texi: Document -fverbose-asm
731
732         * gnat-style.texi: Minor updates (note that boolean constants and
733         variables are joined with AND/OR rather than short circuit forms).
734
735 2004-09-01  Ed Schonberg  <schonberg@gnat.com>
736
737         * exp_util.adb (Safe_Unchecked_Type_Conversion): Conversion is safe if
738         it is an upward conversion of an untagged type with no representation
739         change.
740
741 2004-09-01  Thomas Quinot  <quinot@act-europe.fr>
742
743         * rtsfind.ads: Move RCI_Subp_Info and RCI_Subp_Info_Array to
744         System.Partition_Interface.
745
746         * checks.adb (Apply_Access_Checks): Do not generate checks when
747         expander is not active (but check for unset reference to prefix of
748         dereference).
749
750         * sem_prag.adb (Analyze_Pragma, case Pragma_Debug): Uniformly rewrite
751         pragma Debug as an if statement with a constant condition, for
752         consistent treatment of entity references contained within the
753         enclosed procedure call.
754
755 2004-09-01  Vincent Celier  <celier@gnat.com>
756
757         * bindgen.adb: (Set_EA_Last): New procedure
758         (Gen_Exception_Table_Ada, Gen_Exception_Table_C): Use new procedure
759         Set_EA_Last.
760         (Gen_Adafinal_Ada): If no finalization, adafinal does nothing
761         (Gen_Output_File_Ada): Always call Gen_Adafinal_Ada, so that SAL can be
762         linked without errors.
763         (Gen_Exception_Table_Ada): Correct bugs when generating code for arrays
764         ST and EA.
765         (Gen_Exception_Table_C): Correct same bugs
766
767         * vms_data.ads: Add new qualifier /VERBOSE_ASM to GCC_Switches
768
769         * g-os_lib.adb (Normalize_Pathname.Get_Directory): When Dir is empty,
770         on Windows, make sure that the drive letter is in upper case.
771
772         * g-os_lib.ads (Normalize_Pathname): Add a comment to indicate that on
773         Windows, when the drive letter is added and Case_Sensitive is True, the
774         drive letter is forced to upper case.
775
776         * mlib-tgt-irix.adb (Build_Dynamic_Library): Transfer all -lxxx options
777         to Options_2 for the call to MLib.Utl.Gcc.
778
779         * bld.adb (Put_Include_Project): Use '/', not '\' on Windows as
780         directory separator when defining BASE_DIR.
781
782 2004-09-01  Pascal Obry  <obry@gnat.com>
783
784         * gprcmd.adb (Extend): Do not output trailing directory separator. This
785         is not needed and it confuses Windows GNU/make which does not report
786         directory terminated by a slash as a directory.
787         (gprcmd): Idem for "pwd" internal command.
788
789         * Makefile.generic: Use __GPRCOLON__ instead of pipe character in
790         target names rewrite to fix regressions with recent version of
791         GNU/make. Starting with GNU/make 3.80 the pipe character was not
792         handled properly anymore.
793
794 2004-09-01  Andreas Schwab  <schwab@suse.de>
795
796         * Make-lang.in (EXTRA_GNATBIND_OBJS): Revert last change.
797         * raise.c [!IN_RTS]: Undef abort.
798
799 2004-08-27  Nathan Sidwell  <nathan@codesourcery.com>
800
801         * utils2.c (build_allocator): Use ssize_int.
802
803         * utils.c (gnat_init_decl_processing): Ada has a signed sizetype.
804
805 2004-08-27  Andreas Schwab  <schwab@suse.de>
806
807         * Make-lang.in (EXTRA_GNATBIND_OBJS): Add errors.o.
808
809 2004-08-25  Nathan Sidwell  <nathan@codesourcery.com>
810             Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
811
812         * ada-tree.h (TYPE_RM_SIZE_INT): Use TYPE_LANG_SLOT_1.
813
814 2004-08-25  Nathan Sidwell  <nathan@codesourcery.com>
815
816         * cuintp.c (UI_To_gnu): Adjust build_int_cst calls.
817         * trans.c (Exception_Handler_to_gnu_sjlj, gnat_to_gnu): Likewise.
818         * utils.c (init_gigi_decls): Likewise.
819         * utils2.c (build_call_raise, build_allocator): Likewise.
820
821 2004-08-24  Nathan Sidwell  <nathan@codesourcery.com>
822
823         * utils.c (gnat_init_decl_processing): Adjust
824         build_common_tree_nodes call.
825
826 2004-08-20  Nathan Sidwell  <nathan@codesourcery.com>
827
828         * utils2.c (build_allocator): Use build_int_cst for negative
829         size types.
830
831 2004-08-18  Richard Henderson  <rth@redhat.com>
832
833         * misc.c (LANG_HOOKS_HONOR_READONLY): Remove.
834
835 2004-08-16  Nathan Sidwell  <nathan@codesourcery.com>
836
837         * cuintp.c (UI_To_gnu): Be more conservative with build_int_cst
838         call.s
839         * trans.c (Exception_Handler_to_gnu_sjlj): Likewise.
840         (gnat_to_gnu): Likewise.
841
842 2004-08-16  Pascal Obry  <obry@gnat.com>
843
844         * adaint.c (__gnat_prj_add_obj_files): Set to 0 only on Win32 for GCC
845         backend prior to GCC 3.4. With GCC 3.4 we are using the GCC's shared
846         option and not mdll anymore. Update comment.
847
848 2004-08-16  Pascal Obry  <obry@gnat.com>
849
850         * bld.adb (Put_Include_Project): Properly handle directory separators
851         on Windows.
852
853 2004-08-16  Ed Schonberg  <schonberg@gnat.com>
854
855         * sem_ch4.adb (Try_Object_Operation): Restructure code. Optimize by
856         decreasing the number of allocated junk nodes while searching for the
857         appropriate subprogram.
858
859 2004-08-15  Nathan Sidwell  <nathan@codesourcery.com>
860
861         * cuintp.c (UI_To_gnu): Use build_int_cst..
862         * trans.c (Exception_Handler_to_gnu_sjlj, gnat_to_gnu): Likewise.
863         * utils.c (init_gigi_decls): Likewise.
864         * utils2.c (build_call_raise): Likewise.
865
866 2004-08-13  Olivier Hainque  <hainque@act-europe.fr>
867
868         * decl.c (gnat_to_gnu_entity) <E_Variable>: When building an allocator
869         for a global aliased object with a variable size and an unconstrained
870         nominal subtype, pretend there is no initializer if the one we have is
871         incomplete, and avoid referencing an inexistant component in there. The
872         part we have will be rebuilt anyway and the reference may confuse
873         further operations.
874
875 2004-08-13  Thomas Quinot  <quinot@act-europe.fr>
876
877         * einfo.ads: Minor reformatting
878
879         * lib-writ.adb (Output_Main_Program_Line): Do not set parameter
880         restrictions in the ALI if we only want to warn about violations.
881
882 2004-08-13  Vincent Celier  <celier@gnat.com>
883
884         * ali.adb (Scan_ALI): Initialize component Body_Needed_For_SAL to False
885         when creating a new Unit_Record in table Units.
886
887         * gnatls.adb (Output_Unit): In verbose mode, output the restrictions
888         that are violated, if any.
889
890         * prj-nmsc.adb (Ada_Check.Get_Path_Names_And_Record_Sources): Do not
891         add directory separator if path already ends with a directory separator.
892
893 2004-08-13  Ed Schonberg  <schonberg@gnat.com>
894
895         * rtsfind.adb (Entity_Not_Defined): If the error ocurrs in a predefined
896         unit, this is an attempt to inline a construct that is not available in
897         the current restricted mode, so abort rather than trying to continue.
898
899         * sem_ch3.adb (Build_Underlying_Full_View): If the new type has
900         discriminants that rename those of the parent, recover names of
901         original discriminants for the constraint on the full view of the
902         parent.
903         (Complete_Private_Subtype): Do not create a subtype declaration if the
904         subtype is an itype.
905
906         * gnat_rm.texi: Added section on implementation of discriminated
907         records with default values for discriminants.
908
909 2004-08-13  Ed Schonberg  <schonberg@gnat.com>
910
911         PR ada/15601
912         * sem_res.adb (Make_Call_Into_Operator): Handle properly the case where
913         the second operand is overloaded.
914
915 2004-08-10  Richard Henderson  <rth@redhat.com>
916
917         * utils.c (gnat_install_builtins): Remove __builtin_stack_alloc,
918         add __builtin_alloca.
919
920 2004-08-10  Richard Henderson  <rth@redhat.com>
921
922         * config-lang.in (boot_language): Yes.
923
924 2004-08-09  Thomas Quinot  <quinot@act-europe.fr>
925
926         * g-socket.adb (Abort_Selector): Initialize Buf to prevent valgrind
927         from complaining on potential uninitialized reference.
928         Change calls to GNAT.Sockets.Thin.Is_Socket_In_Set to account for
929         new specification and test explicitly for non-zero return value.
930
931         * g-socthi.ads (Is_Socket_In_Set): Declare imported function as
932         returning C.int, to avoid using a derived boolean type.
933
934         * exp_ch5.adb (Make_Tag_Ctrl_Assignments): Use
935         Duplicate_Subexpr_No_Checks in preference to direct use of
936         Remove_Side_Effects and New_Copy_Tree.
937         Clear Comes_From_Source on prefix of 'Size attribute reference.
938
939         * g-socthi.adb, g-socthi-vms.adb, g-socthi-mingw.adb,
940         g-socthi-vxworks.adb: Change calls to
941         GNAT.Sockets.Thin.Is_Socket_In_Set to account for new specification
942         and test explicitly for non-zero return value.
943
944         * g-socthi-vms.ads, g-socthi-mingw.ads, g-socthi-vxworks.ads:
945         (Is_Socket_In_Set): Declare imported function as returning C.int, to
946         avoid using a derived boolean type.
947
948 2004-08-09  Albert Lee  <lee@gnat.com>
949
950         * system-irix-n32.ads: Refine tasking priority constants for IRIX.
951
952 2004-08-09  Pascal Obry  <obry@gnat.com>
953
954         * gnat_ugn.texi: Document new way to build DLLs on Windows using
955         GCC's -shared option.
956
957         * mlib-tgt-mingw.adb (Build_Dynamic_Library): Pass GCC's options into
958         Options_2 parameter (options put after object files).
959
960 2004-08-09  Olivier Hainque  <hainque@act-europe.fr>
961
962         * decl.c (gnat_to_gnu_entity) <E_Array_Subtype>: Adjust condition to
963         ignore overflows on low and high bounds of an index to also account for
964         differences in signedness between sizetype and gnu_index_subtype.
965         These are as legitimate as the ones caused by a lower TYPE_PRECISION
966         on sizetype.
967
968 2004-08-09  Robert Dewar  <dewar@gnat.com>
969
970         * s-solita.ads, s-solita.adb: Minor reformatting
971
972         * gnat_rm.texi: Add documentation for pragma Profile (Restricted)
973         Move pragma Restricted_Run_Time, No_Run_Time, Ravenscar to new
974         obsolescent section
975         Add note that No_Implicit_Conditionals does not suppress
976         run time constraint checks.
977
978         * vms_conv.ads: Minor reformatting
979
980         * s-secsta.adb: Use SS_Ptr instead of Mark_Id as stack pointer (cleanup
981         and necessary for following change).
982         (Mark): Return new format Mark_Id containing sec stack address
983         (Release): Use sec stack address from Mark_Id avoiding Self call
984
985         * s-secsta.ads: Define SS_Ptr to be used instead of Mark_Id as stack
986         pointer (cleanup and necessary for following change).
987         Define Mark_Id as record containing address of secondary stack, that way
988         Release does not need to find the stack again, decreasing the number of
989         calls to Self and improving efficiency.
990
991         * sem_util.ads: Add a ??? comment for Is_Local_Variable_Reference
992
993         * sem_ch5.adb (Analyze_Case_Statement): Add circuitry to track value of
994         case variable into the individual case branches when possible.
995
996         * sem_ch11.adb: Minor reformatting
997
998         * prj.ads: Correct spelling of suffixs
999
1000         * prj-nmsc.adb: Minor reformatting
1001         Correct spelling suffixs throughout (also in identifiers)
1002
1003         * freeze.adb: Minor spelling correction
1004
1005         * exp_ch2.adb: Cleanups to handling of Current_Value
1006         (no functional effect).
1007
1008         * bld.adb: Correct spelling of suffixs
1009
1010         * einfo.adb (Enclosing_Dynamic_Scope): Defend against junk argument
1011
1012 2004-08-09  Ed Schonberg  <schonberg@gnat.com>
1013
1014         PR ada/15408
1015
1016         * sem_ch7.adb (Install_Private_Declarations): In the body of the
1017         package or of a child, private entities are both immediately_visible
1018         and not hidden.
1019
1020 2004-08-09  Ed Schonberg  <schonberg@gnat.com>
1021
1022         * sem_eval.adb (Eval_Integer_Literal): If the context is Any_Integer,
1023         there are no range checks on the value of the literal.
1024
1025         * exp_ch7.adb (Insert_Actions_In_Scope_Around): If the node being
1026         wrapped is the triggering alternative of an asynchronous select, action
1027         statements mustbe inserted before the select itself.
1028
1029         * sem_attr.adb (Analyze_Attribute, case 'Size): Handle properly the
1030         case where the prefix is a protected function call.
1031         (Resolve_Attribute, case 'Access): The attribute reference on a
1032         subprogram is legal in a generic body if the subprogram is declared
1033         elsewhere.
1034
1035 2004-08-09  Vincent Celier  <celier@gnat.com>
1036
1037         * makegpr.adb (Build_Library): Link with g++ if C++ is one of the
1038         languages, otherwise building the library may fail with unresolved
1039         symbols.
1040         (Compile_Sources): Do not build libraries if -c switch is used
1041
1042         * gnatlink.adb (Process_Args): New switches -M and -Mmap
1043         (Write_Usage): If map file creation is supported, output new switches
1044         -M and -Mmap.
1045         (Gnatlink): When -M is specified, add the necessary switch(es) to the
1046         gcc call, when supported.
1047
1048         * Makefile.in: Added indepsw.o to the object list for gnatlink
1049         Specified the AIX, GNU/Linux and Windows versions of indepsw.adb
1050
1051         * indepsw-aix.adb, indepsw-linux.adb, indepsw-mingw.adb,
1052         indepsw.adb, indepsw.ads: New files.
1053
1054 2004-08-09  Bernard Banner  <banner@gnat.com>
1055
1056         * system-vxworks-x86.ads, s-vxwork-x86.ads: New files.
1057
1058         * Makefile.in: add section for vxworks x86
1059
1060 2004-08-09  Hristian Kirtchev  <kirtchev@gnat.com>
1061
1062         * exp_ch3.adb (Build_Init_Statements): Add extra condition to deal with
1063         per-object constrained components where the discriminant is of an
1064         Access type.
1065         (Build_Record_Init_Proc): Add condition to prevent the inheritance of
1066         the parent initialization procedure for derived Unchecked_Unions.
1067         Instead, derived Unchecked_Unions build their own initialization
1068         procedure.
1069         (Build_Variant_Record_Equality): Implement Unchecked_Union equality.
1070         Check the body of the subprogram for details.
1071         (Freeze_Record_Type): Prevent the inheritance of discriminant checking
1072         functions for derived Unchecked_Union types by introducing a condition.
1073         Allow the creation of TSS equality functions for Unchecked_Unions.
1074         (Make_Eq_Case): Rename formal parameter Node to E in function signature.
1075         Add formal parameter Discr to function signature. Discr is used to
1076         control the generated case statement for Unchecked_Union types.
1077         (Make_Eq_If): Rename formal parameter Node to E in function signature.
1078
1079         * exp_ch4.adb (Build_Equality_Call): Implement equality calls for
1080         Unchecked_Unions.
1081         Check the body of the subprogram for details.
1082         (Expand_Composite_Equality): Augment composite type equality to include
1083         correct handling of Unchecked_Union components.
1084         (Expand_N_In): Add condition to detect illegal membership tests when the
1085         subtype mark is a constrained Unchecked_Union and the expression lacks
1086         inferable discriminants, and build a Raise_Program_Error node.
1087         (Expand_N_Op_Eq): Add function Has_Unconstrained_UU_Component. Used
1088         to detect types that contain components of unconstrained Unchecked_Union
1089         subtype. Add condition to detect equality between types that have an
1090         unconstrained Unchecked_Union component, and build a Raise_Program_Error
1091         node. Add condition to detect equality between Unchecked_Union types
1092         that lack inferable discriminants, and build a Raise_Program_Error node.
1093         Otherwise build a TSS equality function call.
1094         (Expand_N_Type_Conversion): Add condition to detect illegal conversions
1095         from a derived Unchecked_Union to an unconstrained non-Unchecked_Union
1096         with the operand lacking inferable discriminants, and build a Raise_
1097         Program_Error node.
1098         (Expand_Record_Equality): Remove guard that prevents Unchecked_Union
1099         composite equality.
1100         (Has_Inferable_Discriminants): Implement new predicate for objects and
1101         expressions of Unchecked_Union type. Check the body of subprogram for
1102         details.
1103         (Has_Unconstrained_UU_Components): Add function
1104         Component_Is_Unconstrained_UU. It is used to detect whether a single
1105         component is of an unconstrained Unchecked_Union subtype. Add function
1106         Variant_Is_Unconstrained_UU. It is used to detect whether a single
1107         component inside a variant is of an unconstrained Unchecked_Union type.
1108
1109         * exp_ch5.adb (Expand_Assign_Record): Add condition to copy the
1110         inferred discriminant values. Add condition to generate a case
1111         statement with an inferred discriminant as the switch.
1112         (Make_Component_List_Assign): Introduce a Boolean flag that determines
1113         the behaviour of the subprogram in the presence of an Unchecked_Union.
1114         Add condition to trigger the usage of the inferred discriminant value
1115         as the generated case statement switch.
1116         (Make_Field_Assign): Introduce a Boolean flag that determines the
1117         behaviour of the subprogram in the presence of an Unchecked_Union. Add
1118         condition to trigger the usage of the inferred discriminant value as
1119         the right-hand side of the generated assignment.
1120
1121         * exp_ch6.adb (Expand_Call): Add condition to skip extra actual
1122         parameter generation when dealing with Unchecked_Unions.
1123
1124         * checks.adb (Apply_Discriminant_Check): Do not apply discriminant
1125         checks for Unchecked_Unions.
1126
1127         * einfo.ads: Update comment on usage of flag Has_Per_Object_Constraint
1128
1129         * exp_attr.adb (Expand_N_Attribute_Reference): Produce
1130         Raise_Program_Error nodes for the execution of Read and Write
1131         attributes of Unchecked_Union types and the execution of Input and
1132         Output attributes of Unchecked_Union types that lack default
1133         discriminant values.
1134
1135         * sem_prag.adb (Analyze_Pragma): Remodel the analysis of pragma
1136         Unchecked_Union. Add procedure Check_Component. It is used to inspect
1137         per-object constrained components of Unchecked_Unions for being
1138         Unchecked_Unions themselves. Add procedure Check_Variant. It is used to
1139         check individual components withing a variant.
1140
1141         * sem_res.adb (Resolve_Comparison_Op): Remove guard that prevents
1142         comparison of Unchecked_Unions.
1143         (Resolve_Equality_OP): Remove guard that prevents equality between
1144         Unchecked_Unions.
1145
1146         * sem_util.adb (Build_Component_Subtype): Add guard to prevent creation
1147         of component subtypes for Unchecked_Union components.
1148         (Get_Actual_Subtype): Add condition that returs the Unchecked_Union type
1149         since it is the actual subtype.
1150
1151         * sem_ch12.adb (Instantiate_Type): Add condition to detect the correct
1152         pass of Unchecked_Union subtypes as generic actuals to formal types
1153         that lack known_discriminant_parts or that are derived Unchecked_Union
1154         types, and do nothing. In any other case, produce an error message.
1155
1156         * sem_ch3.adb (Analyze_Component_Declaration): Add function
1157         Contains_POC. It determines whether a constraint uses the discriminant
1158         of an enclosing record type.
1159         Add condition to detect per-object constrained component and set the
1160         appropriate flag.
1161         (Derived_Type_Declaration): Remove guard that prevents derivation from
1162         Unchecked_Union types.
1163         (Process_Subtype): Remove quard that prevents the creation of Unchecked_
1164         Union subtypes.
1165
1166         * sem_ch4.adb (Analyze_Selected_Component): Correct the detection of
1167         references to Unchecked_Union discriminants.
1168
1169         * sem_ch6.adb (Create_Extra_Formals): Add condition to skip extra
1170         formal generation when dealing with Unchecked_Unions.
1171         (Set_Actual_Subtypes): Add condition to prevent generation of actual
1172         subtypes for Unchecked_Unions.
1173
1174         * sem_ch7.adb (Analyze_Package_Specification): Add procedure
1175         Inspect_Unchecked_Union_Completion. It is used to detect incorrect
1176         completions of discriminated partial views by Unchecked_Unions and
1177         produce an error message.
1178
1179 2004-08-09  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
1180
1181         * trans.c (struct stmt_group): New field, GLOBAL.
1182         (global_stmt_group, gnu_elab_proc_decl, build_unit_elab): Deleted.
1183         (struct elab_info): New struct.
1184         (elab_info_list, gnu_elab_proc_stack): New variables.
1185         (Compilation_Unit_to_gnu): New procedure.
1186         (gigi): Call it and also handle elaboration procs we've saved.
1187         (gnat_init_stmt_group): Don't set global_stmt_group; instead initialize
1188         global field from parent.
1189         (gnat_to_gnu): Get decl from gnu_elab_proc_stack.
1190         (gnat_to_gnu, case N_Compilation_Unit): Call Compilation_Unit_to_gnu.
1191         (start_stmt_group): Initialize global field from parent.
1192         (add_decl_expr): Set to global for current statement group.
1193         (gnat_gimplify_expr, case NULL_EXPR): Add operand 0 to pre list, not
1194         post.
1195
1196         * utils.c (global_bindings_p): True when no current_function_decl; no
1197         longer check current_binding_level.
1198
1199 2004-08-09  Ben Brosgol  <brosgol@gnat.com>
1200
1201         * xgnatugn.adb: Added logic to deal with @ifset/@ifclear for edition
1202         choice.
1203
1204         * gnat_rm.texi, gnat_ugn.texi: Added edition conditionalization logic.
1205
1206 2004-08-06  Andreas Schwab  <schwab@suse.de>
1207
1208         * utils.c (gnat_define_builtin): Remove second parameter of
1209         make_decl_rtl.
1210         (begin_subprog_body): Likewise.
1211
1212 2004-07-26  Arnaud Charlet  <charlet@act-europe.fr>
1213
1214         * sem_util.adb (Requires_Transient_Scope): Temporarily disable
1215         optimization, not supported by the tree-ssa back-end.
1216
1217 2004-07-26  Olivier Hainque  <hainque@act-europe.fr>
1218
1219         * s-mastop-irix.adb: Update comments.
1220
1221         * a-except.adb (Exception_Information): Raise Constraint_Error if
1222         exception Id is Null_Id.
1223         This is required behavior, which is more reliably and clearly checked
1224         at the top level interface level.
1225
1226 2004-07-26  Javier Miranda  <miranda@gnat.com>
1227
1228         * exp_aggr.adb (Build_Array_Aggr_Code): Do not build the initialization
1229         call if a component has no default_expression and the box is used.
1230
1231         * sem_aggr.adb (Resolve_Array_Aggregate): If a component has no
1232         default_expression and you use box, it behaves as if you had declared a
1233         stand-alone object.
1234         (Resolve_Record_Aggregate): If a component has no default_expression and
1235         you use box, it behaves as if you had declared a stand-alone object.
1236
1237         * sem_ch10.adb (Install_Siblings): Do not make visible the private
1238         entities of private-with siblings.
1239
1240 2004-07-26  Ed Schonberg  <schonberg@gnat.com>
1241
1242         * sem_ch3.adb (Build_Underlying_Full_View): If this is the full view
1243         for a component of an itype, set the parent pointer for analysis,
1244         there is no list in which to insert it.
1245
1246         * sem_res.adb (Resolve): Call Rewrite_Renamed_Operator only for
1247         bona-fide renamings, not for inherited operations.
1248
1249         * exp_ch4.adb (Expand_Allocator_Expression): If the allocator is an
1250         actual for a formal that is an access parameter, create local
1251         finalization list even if the expression is not an aggregate.
1252
1253 2004-07-26  Ed Schonberg  <schonberg@gnat.com>
1254
1255         PR ada/16213
1256         * sem_ch8.adb (Attribute_Renaming, Check_Library_Level_Renaming):
1257         Diagnose properly illegal subprogram renamings that are library units.
1258
1259 2004-07-26  Ed Schonberg  <schonberg@gnat.com>
1260
1261         PR ada/15588
1262         * sem_util.adb (Is_OK_Variable_For_Out_Formal): If actual is a type
1263         conversion rewritten as an unchecked conversion, check that original
1264         expression is a variable.
1265
1266         * exp_ch4.adb (Expand_N_Type_Conversion): If rewriting as an
1267         unchecked_conversion, create new node rather than rewriting in place,
1268         to preserve original construct.
1269
1270 2004-07-26  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
1271
1272         * gigi.h (gnat_expand_body): Deleted.
1273
1274         * Make-lang.in: (trans.o): Depends on function.h.
1275
1276         * misc.c: (gnat_expand_body): Moved to here.
1277
1278         * trans.c (gnat_expand_body_1): Deleted.
1279         (gnat_expand_body): Moved from here.
1280         (gnat_to_gnu): N_Implicit_Label_Declaration forces being in elab proc.
1281         (add_stmt): Check for marked visited with global_bindings_p.
1282         (gnat_gimplify_expr, case COMPONENT_REF): New case.
1283         (gnat_gimplify_expr, case NULL_EXPR): Set TREE_NO_WARNING for temp.
1284
1285         * utils2.c (build_binary_op, case MODIFY_EXPR): Put LHS in a
1286         VIEW_CONVERT_EXPR if not operation type.
1287
1288         * utils.c (update_pointer_to): Set DECL_ORIGINAL_FIELD for
1289         fat pointer.
1290
1291         * decl.c, cuintp.c, gigi.h, misc.c, trans.c, utils.c, utils2.c: Minor
1292         changes: reformatting of negation operators, removing unneeded
1293         inequality comparison with zero, converting equality comparisons with
1294         zero to negations, changing int/0/1 to bool/false/true, replace calls
1295         to gigi_abort with abort, and various other similar changes.
1296
1297 2004-07-26  Vincent Celier  <celier@gnat.com>
1298
1299         * gnatcmd.adb (GNATCmd): Add processing for new built-in command
1300         "setup".
1301
1302         * make.adb (Gnatmake): Fail when a library is not present and there is
1303         no object directory.
1304
1305         * mlib-prj.adb (Check_Library): No need to check if the library needs
1306         to be rebuilt if there is no object directory, hence no object files
1307         to build the library.
1308
1309         * opt.ads (Setup_Projects): New Boolean flag.
1310
1311         * prj-nmsc.adb (Locate_Directory): New parameter Project, Kind and
1312         Location.
1313         Create directory when Kind /= "" and in "gnat setup". Report error if
1314         directory cannot be created.
1315         (Ada_Check): Create library interface copy dir if it does not exist
1316         and we are in "gnat setup".
1317         (Find_Sources): No error if in "gnat setup" and no Ada sources were
1318         found.
1319         (Language_Independent_Check): Create object directory, exec directory
1320         and/or library directory if they do not exist and we are in
1321         "gnat setup".
1322
1323         * vms_conv.ads: (Command_Type): New command Setup.
1324
1325         * vms_conv.adb (Initialize): Add Setup component of Cammand_List.
1326
1327         * vms_data.ads: Add qualifiers/switches for new built-in command
1328         "setup".
1329
1330 2004-07-25  Richard Henderson  <rth@redhat.com>
1331
1332         * utils.c (create_subprog_decl): Set DECL_ARTIFICIAL and
1333         DECL_IGNORED_P on RESULT_DECL.
1334
1335 2004-07-20  Olivier Hainque  <hainque@act-europe.fr>
1336
1337         * a-elchha.adb (Last_Chance_Handler): Remove the bogus buffer dynamic
1338         allocation and potentially overflowing update with
1339         Tailored_Exception_Information. Use the sec-stack free procedural
1340         interface to output Exception_Information instead.
1341
1342         * a-except.adb (To_Stderr): New subprogram for character, and string
1343         version moved from a-exextr to be visible from other separate units.
1344         (Tailored_Exception_Information): Remove the procedural version,
1345         previously used by the default Last_Chance_Handler and not any more.
1346         Adjust various comments.
1347
1348         * a-exexda.adb: Generalize the exception information procedural
1349         interface, to minimize the use of secondary stack and the need for
1350         local buffers when the info is to be output to stderr:
1351         (Address_Image): Removed.
1352         (Append_Info_Character): New subprogram, checking for overflows and
1353         outputing to stderr if buffer to fill is of length 0.
1354         (Append_Info_String): Output to stderr if buffer to fill is of length 0.
1355         (Append_Info_Address, Append_Info_Exception_Name,
1356         Append_Info_Exception_Message, Append_Info_Basic_Exception_Information,
1357         Append_Info_Basic_Exception_Traceback,
1358         Append_Info_Exception_Information): New subprograms.
1359         (Append_Info_Nat, Append_Info_NL): Use Append_Info_Character.
1360         (Basic_Exception_Info_Maxlength, Basic_Exception_Tback_Maxlength,
1361         Exception_Info_Maxlength, Exception_Name_Length,
1362         Exception_Message_Length): New subprograms.
1363         (Exception_Information): Use Append_Info_Exception_Information.
1364         (Tailored_Exception_Information): Use
1365         Append_Info_Basic_Exception_Information.
1366         Export services for the default Last_Chance_Handler.
1367
1368         * a-exextr.adb (To_Stderr): Remove. Now in a-except to be usable by
1369         other separate units.
1370
1371 2004-07-20  Vincent Celier  <celier@gnat.com>
1372
1373         * clean.adb, mlib-utl.adb, osint.adb, makegpr.adb: Minor reformatting.
1374
1375 2004-07-20  Ed Schonberg  <schonberg@gnat.com>
1376
1377         * freeze.adb (Freeze_Entity): If entity is a discriminated record type,
1378         emit itype references for the designated types of component types that
1379         are declared outside of the full record declaration, and that may
1380         denote a partial view of that record type.
1381
1382 2004-07-20  Ed Schonberg  <schonberg@gnat.com>
1383
1384         PR ada/15607
1385         * sem_ch3.adb (Build_Discriminated_Subtype): Do not attach a subtype
1386         which is the designated type in an access component declaration, to the
1387         list of incomplete dependents of the parent type, to avoid elaboration
1388         issues with out-of-scope subtypes.
1389         (Complete_Private_Subtype): Recompute Has_Unknown_Discriminants from the
1390         full view of the parent.
1391
1392 2004-07-20  Ed Schonberg  <schonberg@gnat.com>
1393
1394         PR ada/15610
1395         * sem_ch8.adb (Find_Expanded_Name): If name is overloaded, reject
1396         entities that are hidden, such as references to generic actuals
1397         outside an instance.
1398
1399 2004-07-20  Javier Miranda  <miranda@gnat.com>
1400
1401         * sem_ch4.adb (Try_Object_Operation): New subprogram that gives
1402         support to the new notation.
1403         (Analyze_Selected_Component): Add call to Try_Object_Operation.
1404
1405 2004-07-20  Jose Ruiz  <ruiz@act-europe.fr>
1406
1407         * s-taprob.adb: Adding the elaboration code required for initializing
1408         the tasking soft links that are common to the full and the restricted
1409         run times.
1410
1411         * s-tarest.adb (Init_RTS): Tasking soft links that are shared with the
1412         restricted run time has been moved to the package
1413         System.Soft_Links.Tasking.
1414
1415         * s-tasini.adb (Init_RTS): Tasking soft links that are shared with the
1416         restricted run time has been moved to the package
1417         System.Soft_Links.Tasking.
1418
1419         * Makefile.rtl: Add entry for s-solita.o in run-time library list.
1420
1421         * s-solita.ads, s-solita.adb: New files.
1422
1423 2004-07-20  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
1424
1425         * trans.c (Identifier_to_gnu, Pragma_to_gnu, Attribute_to_gnu,
1426         Case_Statement_to_gnu): Split off from gnat_to_gnu.
1427         (Loop_Statement_to_gnu, Subprogram_Body_to_gnu, call_to_gnu,
1428         Handled_Sequence_Of_Statements_to_gnu, Exception_Handler_to_gnu_sjlj,
1429         Exception_Handler_to_gnu_zcx): Likewise.
1430
1431 2004-07-17  Joseph S. Myers  <jsm@polyomino.org.uk>
1432
1433         * gigi.h (builtin_function): Declare.
1434
1435 2004-07-15  Robert Dewar  <dewar@gnat.com>
1436
1437         * makegpr.adb, s-secsta.ads, sem_ch3.adb, sem_case.adb: Minor
1438         reformatting
1439
1440         * gnat_ugn.texi: Add instantiation of direct_io or sequential_io with
1441         access values as an example of a warning.
1442
1443         * gnat_rm.texi: Document new attribute Has_Access_Values
1444
1445         * gnat-style.texi: Document that box comments belong on nested
1446         subprograms
1447
1448         * sem_util.ads (Has_Access_Values): Improved documentation
1449
1450         * s-finimp.ads, s-finimp.adb: Fix spelling error in comment
1451
1452         * sem_prag.adb (Check_Duplicated_Export_Name): New procedure
1453         (Process_Interface_Name): Call to this new procedure
1454         (Set_Extended_Import_Export_External_Name): Call to this new procedure
1455
1456         * s-mastop-x86.adb, 9drpc.adb: Fix spelling error in comment
1457
1458         * a-direio.ads, a-sequio.ads: Warn if Element_Type has access values
1459
1460         * einfo.ads: Minor comment typo fixed
1461
1462 2004-07-15  Jose Ruiz  <ruiz@act-europe.fr>
1463
1464         * snames.adb: Add _atcb.
1465
1466         * snames.ads: Add Name_uATCB.
1467
1468         * s-tarest.adb (Create_Restricted_Task): ATCBs are always preallocated
1469         (in the expanded code) when using the restricted run time.
1470
1471         * s-tarest.ads (Create_Restricted_Task): Created_Task transformed into
1472         a in parameter in order to allow ATCBs to be preallocated (in the
1473         expanded code).
1474
1475         * s-taskin.adb (Initialize_ATCB): T converted into a in parameter in
1476         order to allow ATCBs to be preallocated. In case of error, the ATCB is
1477         deallocated in System.Tasking.Stages.
1478
1479         * s-taskin.ads (Initialize_ATCB): T converted into a in parameter in
1480         order to allow ATCBs to be preallocated.
1481
1482         * s-tassta.adb (Create_Task): In case of error the ATCB is deallocated
1483         here. It was previously done in Initialize_ATCB.
1484
1485         * rtsfind.ads: Make the Ada_Task_Control_Block visible.
1486
1487         * exp_ch9.adb: Preallocate the Ada_Task_Control_Block when using the
1488         Restricted run time.
1489
1490         * exp_ch3.adb: When using the Restricted run time, pass the
1491         preallocated Ada_Task_Control_Block when creating a task.
1492
1493 2004-07-15  Ed Schonberg  <schonberg@gnat.com>
1494
1495         * sem_util.adb (Normalize_Actuals): If there are no actuals on a
1496         function call that is itself an actual in an enclosing call, diagnose
1497         problem here rather than assuming that resolution will catch it.
1498
1499         * sem_ch7.adb (Analyze_Package_Specification): If the specification is
1500         the local copy of a generic unit for a formal package, and the generic
1501         is a child unit, install private part of ancestors before compiling
1502         private part of spec.
1503
1504         * sem_cat.adb (Validate_Categorization_Dependency): Simplify code to
1505         use scope entities rather than tree structures, to handle properly
1506         parent units that are instances rewritten as bodies for inlining
1507         purposes.
1508
1509         * sem_ch10.adb (Get_Parent_Entity, Implicit_With_On_Parent,
1510         Remove_Parents): Handle properly a parent unit that is an
1511         instantiation, when the unit has been rewritten as a body for inlining
1512         purposes.
1513
1514         * par.adb (Goto_List): Global variable to collect goto statements in a
1515         given unit, for use in detecting natural loops.
1516
1517         * par-ch5.adb (P_Goto_Statement): Add goto to global Goto_List, for
1518         use in detecting natural loops.
1519
1520         * par-labl.adb (Find_Natural_Loops): Recognize loops create by
1521         backwards goto's, and rewrite as a infinite loop, to improve locality
1522         of temporaries.
1523
1524         * exp_util.adb (Force_Evaluation): Recognize a left-hand side
1525         subcomponent that includes an indexed reference, to prevent the
1526         generation of copies that would miscompile the desired assignment
1527         statement.
1528         (Build_Task_Image_Decls): Add a numeric suffix to
1529         generated name for string variable, to avoid spurious conflicts with
1530         the name of the type of a single protected object.
1531
1532         * exp_ch4.adb (Expand_Array_Equality): If indices are distinct, use a
1533         loop with an explicit exit statement, to avoid generating an
1534         out-of-range value with 'Succ leading to spurious constraint_errors
1535         when compiling with -gnatVo.
1536
1537 2004-07-15  Thomas Quinot  <quinot@act-europe.fr>
1538
1539         * sem_ch4.adb (Analyze_Slice): Always call Analyze on the prefix: it
1540         might not be analyzed yet, even if its Etype is already set (case of an
1541         unchecked conversion built using Unchecked_Convert_To, for example).
1542         If the prefix has already been analyzed, this will be a nop anyway.
1543
1544         * exp_ch5.adb (Make_Tag_Ctrl_Assignment): For an assignment of a
1545         controller type, or an assignment of a record type with controlled
1546         components, copy only user data, and leave the finalization chain
1547         pointers untouched.
1548
1549 2004-07-15  Vincent Celier  <celier@gnat.com>
1550
1551         * make.adb (Collect_Arguments): Improve error message when attempting
1552         to compile a source not part of any project, when -x is not used.
1553
1554         * prj.ads: (Defined_Variable_Kind): New subtype
1555
1556         * prj-attr.adb (Register_New_Package): Two new procedures to register
1557         a package with or without its attributes.
1558         (Register_New_Attribute): Mew procedure to register a new attribute in a
1559         package.
1560         New attribute oriented subprograms: Attribute_Node_Id_Of,
1561         Attribute_Kind_Of, Set_Attribute_Kind_Of, Attribute_Name_Of,
1562         Variable_Kind_Of, Set_Variable_Kind_Of, Optional_Index_Of,
1563         Next_Attribute.
1564         New package oriented subprograms: Package_Node_Id_Of,
1565         Add_Unknown_Package, First_Attribute_Of, Add_Attribute.
1566
1567         * prj-attr.ads (Attribute_Node_Id): Now a private, self initialized
1568         type.
1569         (Package_Node_Id): Now a private, self initialized type
1570         (Register_New_Package): New procedure to register a package with its
1571         attributes.
1572         New attribute oriented subprograms: Attribute_Node_Id_Of,
1573         Attribute_Kind_Of, Set_Attribute_Kind_Of, Attribute_Name_Of,
1574         Variable_Kind_Of, Set_Variable_Kind_Of, Optional_Index_Of,
1575         Next_Attribute.
1576         New package oriented subprograms: Package_Node_Id_Of,
1577         Add_Unknown_Package, First_Attribute_Of, Add_Attribute.
1578
1579         * prj-dect.adb (Parse_Attribute_Declaration,
1580         Parse_Package_Declaration): Adapt to new spec of Prj.Attr.
1581
1582         * prj-makr.adb (Make): Parse existing project file before creating
1583         other files. Fail if there was an error during parsing.
1584
1585         * prj-proc.adb (Add_Attributes, Process_Declarative_Items): Adapt to
1586         new spec of Prj.Attr.
1587
1588         * prj-strt.adb (Attribute_Reference, Parse_Variable_Reference): Adapt
1589         to new spec of Prj.Attr.
1590
1591 2004-07-15  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
1592
1593         * utils2.c: Fix typo in comment.
1594
1595 2004-07-14  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
1596
1597         * trans.c (add_decl_expr): Clear TREE_READONLY if clear DECL_INITIAL.
1598         * utils.c (unchecked_convert): Don't do two VIEW_CONVERT_EXPRs.
1599
1600 2004-07-14  Andreas Schwab  <schwab@suse.de>
1601
1602         * trans.c (gnat_init_stmt_group): Remove duplicate definition.
1603
1604 2004-07-13  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
1605
1606         * decl.c: (gnat_to_gnu_entity, object case): Convert initializer to
1607         object type.
1608         (gnat_to_gnu_entity, case E_Record_Subtype): Properly set
1609         TYPE_STUB_DECL.
1610
1611         * misc.c (gnat_types_compatible_p): New function.
1612         (LANG_HOOKS_TYPES_COMPATIBLE_P): New hook, to use it.
1613         (LANG_HOOKS_TYPE_MAX_SIZE, gnat_type_max_size): New.
1614
1615         * trans.c (gigi): Move processing of main N_Compilation_Unit here.
1616         (gnat_to_gnu, case N_Compilation_Unit): Just handle nested case here.
1617         (add_stmt): Force walking of sizes and DECL_INITIAL for DECL_EXPR.
1618         (mark_visited): Don't mark dummy type.
1619         (tree_transform <N_Procedure_Call_Statement>): Unless this is an In
1620         parameter, we must remove any LJM building from GNU_NAME.
1621         (gnat_to_gnu, case N_String_Literal): Fill in indices in CONSTRUCTOR.
1622         (pos_to_constructor): Use int_const_binop.
1623         (gnat_to_gnu, case N_Identifier): Don't reference DECL_INITIAL of
1624         PARM_DECL.
1625
1626         * utils.c (gnat_init_decl_processing): Don't make two "void" decls.
1627         (gnat_pushlevel): Set TREE_USE on BLOCK node.
1628         (gnat_install_builtins): Add __builtin_memset.
1629
1630 2004-07-13  Olivier Hainque  <hainque@act-europe.fr>
1631
1632         * decl.c (gnat_to_gnu_entity <E_Variable>): If we are making a pointer
1633         for a renaming, stabilize the initialization expression if we are at a
1634         local level.  At the local level, uses of the renaming may be performed
1635         by a direct dereference of the initializing expression, and we don't
1636         want possible variables there to be evaluated for every use.
1637
1638         * trans.c (gnat_stabilize_reference, gnat_stabilize_reference_1):
1639         Propagate TREE_SIDE_EFFECTS and TREE_THIS_VOLATILE to avoid loosing
1640         them on the way.  Account for the fact that we may introduce side
1641         effects in the process.
1642
1643 2004-07-13  Richard Henderson  <rth@redhat.com>
1644
1645         * misc.c (default_pass_by_ref): Use pass_by_reference.
1646
1647 2004-07-11  Joseph S. Myers  <jsm@polyomino.org.uk>
1648
1649         * misc.c (LANG_HOOKS_CLEAR_BINDING_STACK, LANG_HOOKS_PUSHLEVEL,
1650         LANG_HOOKS_POPLEVEL, LANG_HOOKS_SET_BLOCK): Remove.
1651
1652 2004-07-08  Richard Henderson  <rth@redhat.com>
1653
1654         * trans.c (gnat_to_gnu <N_Handled_Sequence_Of_Statements>): Update
1655         commentary.
1656
1657 2004-07-06  Vincent Celier  <celier@gnat.com>
1658
1659         * vms_conv.ads: Minor reformatting.
1660         Alphabetical order for enumerated values of type Command_Type, to have
1661         the command in alphabetical order for the usage.
1662
1663         * vms_conv.adb (Process_Argument): Set Keep_Temporary_Files to True for
1664         the special qualifier /KEEP_TEMPORARY_FILES (minimum 6 characters).
1665
1666         * gnat_ugn.texi: Document new switch -dn for the GNAT driver.
1667
1668         * makegpr.adb (Global_Archive_Exists): New global Boolean variable
1669         (Add_Archive_Path): Only add the global archive if there is one.
1670         (Build_Global_Archive): Set Global_Archive_Exists depending if there is
1671         or not any object file to put in the global archive, and don't build
1672         a global archive if there is none.
1673         (X_Switches): New table
1674         (Compile_Link_With_Gnatmake): Pass to gnatmake the -X switches stored
1675         in the X_Switches table, if any.
1676         (Initialize): Make sure the X_Switches table is empty
1677         (Scan_Arg): Record -X switches in table X_Switches
1678
1679         * opt.ads (Keep_Temporary_Files): New Boolean flag, defaulted to False.
1680
1681         * make.adb: Minor comment fix
1682
1683         * gnatname.adb (Gnatname): When not on VMS, and gnatname has been
1684         invoked with directory information, add the directory in front of the
1685         path.
1686
1687         * gnatchop.adb (Gnatchop): When not on VMS, and gnatchop has been
1688         invoked with directory information, add the directory in front of the
1689         path.
1690
1691         * gnatcmd.adb (Delete_Temp_Config_Files): Only delete temporary files
1692         when Keep_Temporary_Files is False.
1693         (GNATCmd): When not on VMS, and the GNAT driver has been invoked with
1694         directory information, add the directory in front of the path.
1695         When not on VMS, handle new switch -dn before the command to set
1696         Keep_Temporary_Files to True.
1697         (Non_VMS_Usage): Use lower case for the non VMS usage: this is valid
1698         everywhere.
1699
1700         * gnatlink.adb (Gnatlink): When not on VMS, and gnatlink has been
1701         invoked with directory information, add the directory in front of the
1702         path.
1703
1704 2004-07-06  Thomas Quinot  <quinot@act-europe.fr>
1705
1706         * snames.ads, snames.adb (Name_Stub): New name for the distributed
1707         systems annex.
1708
1709         * rtsfind.ads: New RTE TC_Object, for DSA/PolyORB.
1710         New RTEs RAS_Proxy_Type and RAS_Proxy_Type_Access, for DSA.
1711
1712         * g-socket.adb (To_Timeval): Fix incorrect conversion of
1713         Selector_Duration to Timeval for the case of 0.0.
1714
1715         * exp_util.ads (Evolve_Or_Else): Fix overenthusiastic copy/paste of
1716         documentation from Evolve_And_Then.
1717
1718 2004-07-06  Jose Ruiz  <ruiz@act-europe.fr>
1719
1720         * s-taprop-tru64.adb, s-taprop-os2.adb,
1721         s-taprop-mingw.adb, s-taprop-posix.adb: Update comment.
1722
1723 2004-07-06  Robert Dewar  <dewar@gnat.com>
1724
1725         * s-osinte-hpux.ads, s-osinte-freebsd.ads,
1726         s-osinte-lynxos.ads, s-taprop-lynxos.adb, s-osinte-tru64.ads,
1727         s-osinte-aix.ads, s-osinte-irix.ads, s-taprop-irix.adb,
1728         s-interr-sigaction.adb, s-taprop-irix-athread.adb,
1729         s-osinte-hpux-dce.adb, s-taprop-hpux-dce.adb,
1730         s-taprop-linux.adb, s-taprop-dummy.adb, s-taprop-solaris.adb,
1731         s-interr-vms.adb, s-osinte-vms.ads, s-taprop-vms.adb,
1732         s-osinte-vxworks.ads, s-osprim-vxworks.adb, a-numaux-x86.adb,
1733         a-except.adb, a-exexpr.adb, a-intsig.adb, a-tags.adb,
1734         a-tags.ads, bindgen.ads, checks.adb, checks.adb,
1735         csets.ads, einfo.ads, einfo.ads, elists.adb, exp_ch4.adb,
1736         exp_ch7.adb, exp_dist.adb, exp_util.adb, freeze.adb,
1737         g-dynhta.adb, gnatmem.adb, g-regexp.adb, inline.adb,
1738         i-os2thr.ads, osint.adb, prj.adb, scng.adb, sem_cat.adb,
1739         sem_ch10.adb, sem_ch12.adb, sem_ch4.adb, sem_ch7.adb,
1740         sem_ch8.adb, sem_disp.adb, sem_prag.adb, sem_res.adb,
1741         sem_type.adb, sem_type.ads, sem_warn.adb, s-ficobl.ads,
1742         s-finimp.adb, s-htable.adb, sinfo.ads, sinput-l.ads,
1743         s-interr.adb, s-interr.ads, sprint.adb, s-tarest.adb,
1744         s-tasini.ads, s-taskin.ads, s-taskin.ads, uname.adb,
1745         vms_data.ads: Minor reformatting,
1746         Fix bad box comment format.
1747
1748         * gnat_rm.texi: Fix minor grammatical error
1749
1750         * sem_attr.adb, exp_attr.adb: New attribute Has_Access_Values
1751
1752         * sem_util.ads, sem_util.adb (Requires_Transient_Scope): Allow many
1753         more cases of discriminated records to be recognized as not needing a
1754         secondary stack.
1755         (Has_Access_Values): New function.
1756
1757         * snames.h, snames.adb, snames.ads: New attribute Has_Access_Values
1758
1759         * cstand.adb, layout.ads, layout.adb, sem_ch13.ads: Change name
1760         Set_Prim_Alignment to Set_Elem_Alignment (more accurate correspondence
1761         with LRM terminology).
1762         Change terminology in comments primitive type => elementary type.
1763
1764 2004-07-06  Ed Schonberg  <schonberg@gnat.com>
1765
1766         PR ada/15602
1767         * sem_ch7.adb (Unit_Requires_Body): For a generic package, the formal
1768         parameters do not impose any requirements on the presence of a body.
1769
1770 2004-07-06  Ed Schonberg  <schonberg@gnat.com>
1771
1772         PR ada/15593
1773         * sem_ch12.adb (Analyze_Package_Instantiation): If the generic is not a
1774         compilation unit and is in an open scope at the point of instantiation,
1775         assume that a body may be present later.
1776
1777 2004-07-06  Ed Schonberg  <schonberg@gnat.com>
1778
1779         * sem_ch13.adb (Analyze_Attribute_Definition_Clause, case 'Size):
1780         Improve error message when specified size is not supported.
1781
1782         * sem_ch6.adb (Maybe_Primitive_Operation): A library-level subprogram
1783         is never a primitive operation.
1784
1785 2004-07-05  Andreas Schwab  <schwab@suse.de>
1786
1787         * ada-tree.h (TYPE_LEFT_JUSTIFIED_MODULAR_P): Use
1788         RECORD_OR_UNION_CHECK.
1789         (TYPE_CONTAINS_TEMPLATE_P): Likewise.
1790
1791 2004-07-04  Kelley Cook  <kcook@gcc.gnu.org>
1792
1793         * Make-lang.in (doc/gnat_ugn_unw.texi): Eliminate explicit
1794         dependency on xgnatugn, instead build it via a submake.
1795         (ADA_INFOFILES): Add doc/gnat_ugn_unw.texi.
1796
1797 2004-07-04  Richard Henderson  <rth@redhat.com>
1798
1799         * utils2.c (gnat_mark_addressable): Don't put_var_into_stack.
1800
1801 2004-07-01  Richard Henderson  <rth@redhat.com>
1802
1803         * trans.c (gnat_stabilize_reference): Don't handle RTL_EXPR.
1804         * utils.c (max_size): Likewise.
1805
1806 2004-06-28  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
1807
1808         * decl.c: Remove calls to add_decl_expr, pushdecl, rest_of_compilation,
1809         and rest_of_type_compilation; add arg to create_*_decl.
1810         (annotate_decl_with_node): Deleted.
1811         (gnat_to_gnu_entity, case E_Array_Type): Set location of fields.
1812         * gigi.h (get_decls, block_has_vars, pushdecl): Deleted.
1813         (get_current_block_context, gnat_pushdecl): New declarations.
1814         (gnat_init_stmt_group): Likewise.
1815         (create_var_decl, create_type_decl, create_subprog_decl): Add new arg.
1816         * misc.c (LANG_HOOKS_CLEAR_BINDING_STACK): Deleted.
1817         (LANG_HOOKS_GETDECLS, LANG_HOOKS_PUSHDECL): Deleted.
1818         (gnat_init): Call gnat_init_stmt_group.
1819         * trans.c (global_stmt_group, gnu_elab_proc_decl): New variables.
1820         (gnu_pending_elaboration_list): Deleted.
1821         (mark_visited, mark_unvisited, gnat_init_stmt_group): New functions.
1822         (gigi): Rearrange initialization calls and move some to last above.
1823         (gnat_to_gnu): If statement and not in procedure, go into elab proc.
1824         Delete calls to add_decl_expr; add arg to create_*_decl.
1825         (gnat_to_gnu, case N_Loop): Recalculate side effects on COND_EXPR.
1826         (gnat_to_gnu, case N_Subprogram_Body): Move some code to
1827         begin_subprog_body and call it.
1828         Don't push and pop ggc context.
1829         (gnat_to_gnu, case N_Compilation_Unit): Rework to support elab proc.
1830         (add_stmt): Remove handling of DECL_EXPR from here.
1831         If not in function, mark visited.
1832         (add_decl_expr): Put global at top level.
1833         Check for cases of DECL_INITIAL we have to handle here.
1834         (process_type): Add extra arg to create_type_decl.
1835         (build_unit_elab): Rework to just gimplify.
1836         * utils.c (pending_elaborations, elist_stack, getdecls): Deleted.
1837         (block_has_vars, mark_visited, add_pending_elaborations): Likewise.
1838         (get_pending_elaborations, pending_elaborations_p): Likewise.
1839         (push_pending_elaborations, pop_pending_elaborations): Likewise.
1840         (get_elaboration_location, insert_elaboration_list): Likewise.
1841         (gnat_binding_level): Renamed from ada_binding_level.
1842         (init_gnat_to_gnu): Don't clear pending_elaborations.
1843         (global_bindings_p): Treat as global if no current_binding_level.
1844         (set_current_block_context): New function.
1845         (gnat_pushdecl): Renamed from pushdecl; major rework.
1846         All callers changed.
1847         (create_type_decl, create_var_decl, create_subprog_decl): Add new arg.
1848         (finish_record_type): Call call pushdecl for stub decl.
1849         (function_nesting_depth): Deleted.
1850         (begin_subprog_body): Delete obsolete code.
1851         * utils2.c (build_call_alloc_dealloc): Add new arg to create_var_decl.
1852
1853 2004-06-28  Robert Dewar  <dewar@gnat.com>
1854
1855         * mlib-tgt-tru64.adb, mlib-tgt-aix.adb, mlib-tgt-irix.adb,
1856         mlib-tgt-irix.adb, mlib-tgt-hpux.adb, mlib-tgt-linux.adb,
1857         mlib-tgt-linux.adb, mlib-tgt-solaris.adb, mlib-tgt-solaris.adb,
1858         mlib-tgt-vms-alpha.adb, mlib-tgt-vms-alpha.adb, mlib-tgt-vms-ia64.adb,
1859         a-strmap.adb, a-strmap.ads, clean.adb: Minor reformatting
1860
1861         * exp_util.adb (Is_Possibly_Unaligned_Slice): Completely rewritten, to
1862         deal with problem of inefficient slices on machines with strict
1863         alignment, when the slice is a component of a composite.
1864
1865         * checks.adb (Apply_Array_Size_Check): Do not special case 64-bit
1866         machines, we need the check there as well.
1867
1868 2004-06-28  Ed Schonberg  <schonberg@gnat.com>
1869
1870         * exp_ch5.adb (Expand_Assign_Array): Use correct condition to
1871         determine safe copying direction for overlapping slice assignments
1872         when component is controlled.
1873
1874         * sem_ch12.adb (Instantiate_Formal_Package): Implicit operations of a
1875         formal derived type in the actual for a formal package are visible in
1876         the enclosing instance.
1877
1878 2004-06-28  Ed Schonberg  <schonberg@gnat.com>
1879
1880         PR ada/15600
1881         * sem_util.adb (Trace_Components): Diagnose properly an illegal
1882         circularity involving a private type whose completion includes a
1883         self-referential component.
1884         (Enter_Name): Use Is_Inherited_Operation to distinguish a source
1885         renaming or an instantiation from an implicit derived operation.
1886
1887 2004-06-28  Pascal Obry  <obry@gnat.com>
1888
1889         * mlib-tgt-mingw.adb: (Library_Exists_For): Remove "lib" prefix from
1890         DLL.
1891         (Library_File_Name_For): Idem.
1892
1893 2004-06-28  Matthew Gingell  <gingell@gnat.com>
1894
1895         * g-traceb.ads: Add explanatory note on the format of addresses
1896         expected by addr2line.
1897
1898 2004-06-28  Jerome Guitton  <guitton@act-europe.fr>
1899
1900         * Makefile.in: Force debugging information on s-tasdeb.adb,
1901         a-except.adb and s-assert.adb needed by the debugger.
1902
1903 2004-06-28  Vincent Celier  <celier@gnat.com>
1904
1905         * make.adb (Collect_Arguments_And_Compile): Change Flag1 to
1906         Need_To_Build_Lib.
1907         (Gnatmake): Ditto.
1908
1909         * mlib-prj.adb (Check_Library): Replace Flag1 with Need_To_Build_Lib
1910
1911         * prj.adb: Minor reformatting
1912         (Project_Empty): Change Flag1 to Need_To_Build_Lib. Remove Flag2.
1913
1914         * prj.ads: Comment updates
1915         Minor reformatting
1916         (Project_Data): Change Flag1 to Need_To_Build_Lib.
1917         Remove Flag2: not used.
1918
1919         * prj-dect.adb (Parse_Declarative_Items): Accept "null" as a
1920         declaration.
1921
1922         * gnat_ugn.texi: Put a "null;" declaration in one project file example
1923
1924         * gnat_rm.texi: Document Empty declarations "null;".
1925
1926         * makegpr.adb (Compile_Link_With_Gnatmake): Put the global archives in
1927         front of the linker options.
1928         (Link_Foreign): Put the global archives and the libraries in front of
1929         the linker options.
1930
1931 2004-06-28  Javier Miranda  <miranda@gnat.com>
1932
1933         * rtsfind.adb: (Get_Unit_Name): Fix typo in comment
1934         (RTU_Loaded): Code cleanup
1935         (Set_RTU_Loaded): New procedure to register as *loaded* explicitly
1936         withed predefined units.
1937
1938         * rtsfind.ads (Set_RTU_Loaded): New procedure to register as *loaded*
1939         explicitly withed predefined units.
1940         Fix typo in comment
1941
1942         * sem_ch10.adb (Analyze_Compilation_Unit): Register as *loaded*
1943         explicitly withed predefined units.
1944
1945 2004-06-26  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
1946
1947         * ada-tree.def (DECL_STMT): Deleted.
1948         * ada-tree.h (IS_ADA_STMT): Now test against STMT_STMT.
1949         (DECL_STMT_VAR): Deleted.
1950         * decl.c: add_decl_stmt now add_decl_expr.
1951         * gigi.h: Likewise.
1952         * trans.c: Likewise.
1953         (gnat_gimplify_type_sizes, gnat_gimplify_one_sizepos): Deleted.
1954         (gnat_to_gnu, case N_Subprogram_Body): Set cfun->function_end_locus.
1955         (add_stmt): Only handle padded type here.
1956         (add_stmt_with_node): Allow gnat_node to not be present.
1957         (gnat_gimplify_stmt, case USE_STMT): Set *STMT_P to null.
1958         (gnat_gimplify_stmt, case DECL_STMT): Deleted.
1959         (gnat_stabilize_reference_1): If COMPONENT_REF of fat pointer,
1960         make a SAVE_EXPR for the entire fat pointer.
1961         * utils.c (pushdecl): Walk a DECL_EXPR in global case.
1962         (create_index_type): Make a DECL_EXPR.
1963         (end_subprog_body): Don't call allocate_struct_function here but
1964         do clear cfun.
1965
1966 2004-06-25  Pascal Obry  <obry@gnat.com>
1967
1968         * makegpr.adb (Build_Library): Remove parameter Lib_Address and
1969         Relocatable from Build_Dynamic_Library call.
1970
1971         * gnat_ugn.texi: Change documentation about Library_Kind. Dynamic and
1972         Relocatable are now synonym.
1973
1974         * Makefile.in: Use s-parame-mingw.adb on MingW platform.
1975
1976         * mlib-prj.adb (Build_Library): Remove DLL_Address constant definition.
1977         Remove parameter Lib_Address and Relocatable from Build_Dynamic_Library
1978         call.
1979
1980         * mlib-tgt.ads, mlib-tgt.adb (Build_Dynamic_Library): Remove parameter
1981         Lib_Address and Relocatable.
1982         (Default_DLL_Address): Removed.
1983
1984         * mlib-tgt-tru64.adb, mlib-tgt-aix.adb, mlib-tgt-irix.adb,
1985         mlib-tgt-hpux.adb, mlib-tgt-linux.adb, mlib-tgt-solaris.adb,
1986         mlib-tgt-vms-alpha.adb, mlib-tgt-vms-ia64.adb, mlib-tgt-vxworks.adb:
1987         (Build_Dynamic_Library): Remove parameter Lib_Address and Relocatable.
1988         (Default_DLL_Address): Removed.
1989
1990         * mlib-tgt-mingw.adb: Ditto.
1991         (Build_Dynamic_Library): Do not add "lib" prefix to the DLL name.
1992
1993         * s-taprop-mingw.adb (Create_Task): Use Adjust_Storage_Size to compute
1994         the initial thread stack size.
1995
1996         * a-strmap.ads: Move package L to private part as it is not used in
1997         the spec. Found while reading code.
1998
1999 2004-06-25  Olivier Hainque  <hainque@act-europe.fr>
2000
2001         * tracebak.c: Introduce support for a GCC infrastructure based
2002         implementation of __gnat_backtrace.
2003
2004         * raise.c: Don't rely on a C mapping of the GNAT_GCC_Exception record
2005         any more. Use accessors instead. This eases maintenance and relaxes
2006         some alignment constraints.
2007         (_GNAT_Exception structure): Remove the Ada specific fields
2008         (EID_For, Adjust_N_Cleanups_For): New accessors, exported by
2009         a-exexpr.adb.
2010         (is_handled_by, __gnat_eh_personality): Replace component references to
2011         exception structure by use of the new accessors.
2012
2013         * init.c (__gnat_initialize): Adjust comments to match the just
2014         reverted meaning of the -static link-time option.
2015
2016         * adaint.c (convert_addresses): Arrange not to define a stub for
2017         mips-irix any more, as we now want to rely on a real version from a
2018         recent libaddr2line.
2019
2020         * a-exexpr.adb: Provide new accessors to a GNAT_GCC occurrence, so that
2021         the personality routine can use them and not have to rely on a C
2022         counterpart of the record anymore. This simplifies maintenance and
2023         relaxes the constraint of having Standard'Maximum_Alignment match
2024         BIGGEST_ALIGNMENT.
2025         Update comments, and add a section on the common header alignment issue.
2026
2027 2004-06-25  Geert Bosch  <bosch@gnat.com>
2028
2029         * a-ngelfu.adb (Tanh): Use full 20 digit precision for constants in
2030         polynomial approximation. Fixes inconsistency with Cody/Waite algorithm.
2031
2032 2004-06-25  Robert Dewar  <dewar@gnat.com>
2033
2034         * gnat_rm.texi: Fix section on component clauses to indicate that the
2035         restriction on byte boundary placement still applies for bit packed
2036         arrays.
2037         Add comment on stack usage from Initialize_Scalars
2038
2039         * gnat_ugn.texi: Add documentation for -gnatyLnnn
2040
2041         * stylesw.ads, stylesw.adb: Implement new -gnatyLnnn option for
2042         limiting nesting level.
2043
2044         * usage.adb: Add line for -gnatyLnnn switch
2045
2046         * g-debpoo.ads, xtreeprs.adb, sinput.ads, sem_ch13.ads,
2047         sem_ch13.adb, exp_aggr.adb: Minor reformatting
2048
2049         * sem_prag.adb (Process_Atomic_Shared_Volatile): Set Is_Atomic on base
2050         type as well as on the subtype. This corrects a problem in freeze in
2051         setting alignments of atomic types.
2052
2053         * sem_eval.ads: Minor comment typo fixed
2054
2055         * par-util.adb (Push_Scope_Stack): Check for violation of max nesting
2056         level.  Minor reformatting.
2057
2058         * fname.adb (Is_Predefined_File_Name): Require a letter after the
2059         minus sign. This means that file names like a--b.adb will not be
2060         considered predefined.
2061
2062         * freeze.adb: Propagate new flag Must_Be_On_Byte_Boundary to containing
2063         record Test new flag and give diagnostic for bad component clause.
2064         (Freeze_Entity): Set alignment of array from component alignment in
2065         cases where this is safe to do.
2066
2067         * exp_pakd.adb: Set new flag Must_Be_On_Byte_Boundary for large packed
2068         arrays.
2069
2070         * cstand.adb: (Create_Standard): Set alignment of String to 1
2071
2072         * einfo.ads, einfo.adb: Introduce new flag Must_Be_On_Byte_Boundary
2073
2074         * exp_ch4.adb (Expand_Array_Equality): Improve efficiency of generated
2075         code in the common constrained array cases.
2076
2077         * a-storio.adb: Change implementation to avoid possible alignment
2078         problems on machines requiring strict alignment (data should be moved
2079         as type Buffer, not type Elmt).
2080
2081         * checks.adb (Apply_Array_Size_Check): Improve these checks by
2082         killing the overflow checks which we really do not need (64-bits is
2083         enough).
2084
2085 2004-06-25  Vincent Celier  <celier@gnat.com>
2086
2087         * makegpr.adb (Is_Included_In_Global_Archive): New Boolean function
2088         (Add_Archives.Recursive_Add_Archives): Call Add_Archive_Path
2089         inconditionally for the main project.
2090         (Recursive_Add_Archives.Add_Archive_Path): New procedure
2091         (Link_Executables.Check_Time_Stamps): New procedure
2092         (Link_Executables.Link_Foreign): New procedure
2093         Changes made to reduce nesting level of this package
2094         (Check): New procedure
2095         (Add_Switches): When not in quiet output, check that a switch is not
2096         the concatenation of several valid switches. If it is, issue a warning.
2097         (Build_Global_Archive): If the global archive is rebuilt, linking need
2098         to be done.
2099         (Compile_Sources): Rebuilding a library archive does not imply
2100         rebuilding the global archive.
2101         (Build_Global_Archive): New procedure
2102         (Build_Library): New name for Build_Archive, now only for library
2103         project
2104         (Check_Archive_Builder): New procedure
2105         (Create_Global_Archive_Dependency_File): New procedure
2106         (Gprmake): Call Build_Global_Archive before linking
2107         * makegpr.adb: Use Other_Sources_Present instead of Sources_Present
2108         throughout.
2109         (Scan_Arg): Display the Copyright notice when -v is used
2110
2111         * gnat_ugn.texi: Document new switch -files= (VMS qualifier /FILES=)
2112         for gnatls.
2113
2114         * vms_data.ads: Add qualifier /MAX_NESTING=nnn (-gnatyLnnn) for GNAT
2115         COMPILE.
2116         Add new GNAT LIST qualifier /FILES=
2117         Added qualifier /DIRECTORY= to GNAT METRIC
2118         Added qualifier /FILES= to GNAT METRIC
2119         Added qualifier /FILES to GNAT PRETTY
2120
2121         * switch.adb (Is_Front_End_Switch): Refine the test for --RTS or -fRTS,
2122         to take into account both versions of the switch.
2123
2124         * switch-c.adb (Scan_Front_End_Switches): New switch -gnatez. Should
2125         always be the last switch to the gcc driver. Disable switch storing so
2126         that switches automatically added by the gcc driver are not put in the
2127         ALI file.
2128
2129         * prj.adb (Project_Empty): Take into account changes in components of
2130         Project_Data.
2131
2132         * prj.ads (Languages_Processed): New enumaration value All_Languages.
2133
2134         * prj.ads (Project_Data): Remove component Lib_Elaboration: never
2135         used. Split Boolean component Ada_Sources_Present in two Boolean
2136         components Ada_Sources_Present and Other_Sources_Present.
2137         Minor reformatting
2138
2139         * prj-env.adb (For_All_Source_Dirs.Add): Use Ada_Sources_Present
2140         instead of Sources_Present.
2141         (Set_Ada_Paths.Add.Recursive_Add): Ditto
2142
2143         * prj-nmsc.adb: Minor reformatting
2144         (Check_Ada_Naming_Scheme): New name of procedure Check_Naming_Scheme
2145         (Check_Ada_Naming_Scheme_Validity): New name of previous procedure
2146         Check_Ada_Naming_Scheme.
2147         Change Sources_Present to Ada_Sources_Present or Other_Sources_Present
2148         throughout.
2149
2150         * prj-part.adb (Post_Parse_Context_Clause): New Boolean parameter
2151         In_Limited.
2152         Make sure that all cycles where there is at least one "limited with"
2153         are detected.
2154         (Parse_Single_Project): New Boolean parameter In_Limited
2155
2156         * prj-proc.adb (Recursive_Check): When Process_Languages is
2157         All_Languages, call first Prj.Nmsc.Ada_Check, then
2158         Prj.Nmsc.Other_Languages_Check.
2159
2160         * prj-proc.adb (Process): Use Ada_Sources_Present or
2161         Other_Sources_Present (instead of Sources_Present) depending on
2162         Process_Languages.
2163
2164         * lang-specs.h: Keep -g and -m switches in the same order, and as the
2165         last switches.
2166
2167         * lib.adb (Switch_Storing_Enabled): New global Boolean flag
2168         (Disable_Switch_Storing): New procedure. Set Switch_Storing_Enabled to
2169         False.
2170         (Store_Compilation_Switch): Do nothing if Switch_Storing_Enabled is
2171         False.
2172
2173         * lib.ads (Disable_Switch_Storing): New procedure.
2174
2175         * make.adb: Modifications to reduce nesting level of this package.
2176         (Check_Standard_Library): New procedure
2177         (Gnatmake.Check_Mains): New procedure
2178         (Gnatmake.Create_Binder_Mapping_File): New procedure
2179         (Compile_Sources.Compile): Add switch -gnatez as the last option
2180         (Display): Never display -gnatez
2181
2182         * Makefile.generic:
2183         When using $(MAIN_OBJECT), always use $(OBJ_DIR)/$(MAIN_OBJECT)
2184
2185         * gnatcmd.adb (Check_Project): New function
2186         (Process_Link): New procedure to reduce nesting depth
2187         (Check_Files): New procedure to reduce the nesting depth.
2188         For GNAT METRIC, include the inherited sources in extending projects.
2189         (GNATCmd): When GNAT LS is invoked with a project file and no files,
2190         add the list of files from the sources of the project file. If this list
2191         is too long, put it in a temp text files and use switch -files=
2192         (Delete_Temp_Config_Files): Delete the temp text file that contains
2193         a list of source for gnatpp or gnatmetric, if one has been created.
2194         (GNATCmd): For GNAT METRIC and GNAT PRETTY, if the number of sources
2195         in the project file is too large, create a temporary text file that
2196         list them and pass it to the tool with "-files=<temp text file>".
2197         (GNATCmd): For GNAT METRIC add "-d=<abject dir>" as the first switch
2198
2199         * gnatlink.adb (Gnatlink): Do not compile with --RTS= when the
2200         generated file is in not in Ada.
2201
2202         * gnatls.adb: Remove all parameters And_Save that are no longer used.
2203         (Scan_Ls_Arg): Add processing for -files=
2204         (Usage): Add line for -files=
2205
2206         * g-os_lib.adb (On_Windows): New global constant Boolean flag
2207         (Normalize_Pathname): When on Windows and the path starts with a
2208         directory separator, make sure that the resulting path will start with
2209         a drive letter.
2210
2211         * clean.adb (Clean_Archive): New procedure
2212         (Clean_Project): When there is non-Ada code, delete the global archive,
2213         the archive dependency files, the object files and their dependency
2214         files, if they exist.
2215         (Gnatclean): Call Prj.Pars.Parse for All_Languages, not for Ada only.
2216
2217 2004-06-25  Thomas Quinot  <quinot@act-europe.fr>
2218
2219         * sinfo.ads: Fix typo in comment.
2220
2221         * sem_dist.adb (Process_Remote_AST_Attribute): Simplify code that uses
2222         the TSS for remote access-to-subprogram types, since these TSS are
2223         always present once the type has been analyzed.
2224         (RAS_E_Dereference): Same.
2225
2226         * sem_attr.adb (Analyze_Attribute): When analysis of an attribute
2227         reference raises Bad_Attribute, mark the reference as analyzed so the
2228         node (and any children resulting from rewrites that could have occurred
2229         during the analysis that ultimately failed) is not analyzed again.
2230
2231         * exp_ch7.ads (Find_Final_List): Fix misaligned comment.
2232
2233         * exp_dist.adb: Minor comment fix.
2234
2235         * exp_ch4.adb (Expand_N_Allocator): For an allocator whose expected
2236         type is an anonymous access type, no unchecked deallocation of the
2237         allocated object can occur. If the object is controlled, attach it with
2238         a count of 1. This allows attachment to the Global_Final_List, if
2239         no other relevant list is available.
2240         (Get_Allocator_Final_List): For an anonymous access type that is
2241         the type of a discriminant or record component, the corresponding
2242         finalisation list is the one of the scope of the type.
2243
2244 2004-06-25  Ed Schonberg  <schonberg@gnat.com>
2245
2246         * sem_ch3.adb (Replace_Type): When computing the signature of an
2247         inherited subprogram, use the first subtype if the derived type
2248         declaration has no constraint.
2249
2250         * exp_ch6.adb (Add_Call_By_Copy_Code): Check that formal is an array
2251         before applying previous optimization. Minor code cleanup.
2252
2253         * exp_util.adb (Is_Possibly_Unaligned_Slice): If the component is
2254         placed at the beginning of an unpacked record without explicit
2255         alignment, a slice of it will be aligned and does not need a copy when
2256         used as an actual.
2257
2258 2004-06-25  Ed Schonberg  <schonberg@gnat.com>
2259
2260         PR ada/15591
2261         PR ada/15592
2262         * sem_ch8.adb (Attribute_Renaming): Reject renaming if the attribute
2263         reference is written with expressions mimicking parameters.
2264
2265 2004-06-25  Hristian Kirtchev  <kirtchev@gnat.com>
2266
2267         PR ada/15589
2268         * sem_ch3.adb (Build_Derived_Record_Type): Add additional check to
2269         STEP 2a. The constraints of a full type declaration of a derived record
2270         type are checked for conformance with those declared in the
2271         corresponding private extension declaration. The message
2272         "not conformant with previous declaration" is emitted if an error is
2273         detected.
2274
2275 2004-06-25  Vasiliy Fofanov  <fofanov@act-europe.fr>
2276
2277         * g-traceb.ads: Document the need for -E binder switch in the spec.
2278
2279         * g-trasym.ads: Document the need for -E binder switch in the spec.
2280
2281 2004-06-25  Jose Ruiz  <ruiz@act-europe.fr>
2282
2283         * sem_prag.adb: Add handling of pragma Detect_Blocking.
2284
2285         * snames.h, snames.ads, snames.adb: Add entry for pragma
2286         Detect_Blocking.
2287
2288         * s-rident.ads: Change reference to pragma Detect_Blocking.
2289
2290         * targparm.ads, targparm.adb: Allow pragma Detect_Blocking in
2291         system.ads.
2292
2293         * opt.ads (Detect_Blocking): New Boolean variable (defaulted to False)
2294         to indicate whether pragma Detect_Blocking is active.
2295
2296         * par-prag.adb: Add entry for pragma Detect_Blocking.
2297
2298         * rtsfind.adb (RTU_Loaded): Fix the temporary kludge to get past bug
2299         of not handling WITH.
2300         Note that this replaces the previous update which was incorrect.
2301
2302 2004-06-25  Javier Miranda  <miranda@gnat.com>
2303
2304         * sem_ch10.adb (Re_Install_Use_Clauses): Force the installation of the
2305         use-clauses to have a clean environment.
2306
2307         * sem_ch8.adb (Install_Use_Clauses): Addition of a new formal to force
2308         the installation of the use-clauses to stablish a clean environment in
2309         case of compilation of a separate unit; otherwise the call to
2310         use_one_package is protected by the barrier Applicable_Use.
2311
2312         * sem_ch8.ads (Install_Use_Clauses): Addition of a new formal to force
2313         the installation of the use-clauses to stablish a clean environment in
2314         case of compilation of a separate unit.
2315         (End_Use_Clauses): Minor comment cleanup.
2316
2317 2004-06-25  Sergey Rybin  <rybin@act-europe.fr>
2318
2319         * gnat_ugn.texi: Add description of the gnatpp 'files' switch
2320
2321 2004-06-23  Richard Henderson  <rth@redhat.com>
2322
2323         * trans.c (gnat_gimplify_stmt): Update gimplify_type_sizes call.
2324
2325 2004-06-20  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
2326
2327         * decl.c (elaborate_expression, elaborate_expression_1): Arguments
2328         now bool instead of int.
2329         (gnat_to_gnu_entity, elaborate_expression_1): New arg to COMPONENT_REF.
2330         * trans.c (gnu_switch_label_stack): New function.
2331         (gnat_to_gnu, N_Object_Renaming_Declaration): Result is what the
2332         elaboration of renamed entity returns.
2333         (gnat_to_gnu, case N_Case_Statement): Add branches to end label.
2334         (add_decl_stmt): Don't add TYPE_DECL for UNCONSTRAINED_ARRAY_TYPE.
2335         (gnat_gimplify_stmt): Use alloc_stmt_list, not build_empty_stmt.
2336         (gnat_gimplify_stmt, case DECL_STMT): gimplify DECL_SIZE and
2337         DECL_SIZE_UNIT and simplify variable-sized case.
2338         (gnat_gimplify_type_sizes, gnat_gimplify_one_sizepos): Deleted.
2339         Callers changes to call gimplify_type_sizes and gimplify_one_sizepos.
2340         (gnat_stabilize_reference): Add arg to COMPONENT_REF.
2341         (build_unit_elab): Disable for now.
2342         * utils.c (mark_visited): New function.
2343         (pushdecl): Walk tree to call it for global decl.
2344         (update_pointer_to): Update all variants of pointer and ref types.
2345         Add arg to COMPONENT_REF.
2346         (convert): Likewise.
2347         Move check for converting between variants lower down.
2348         * utils2.c (build_simple_component_ref): Add arg to COMPONENT_REF.
2349         (build_allocator): Don't force type of MODIFY_EXPR.
2350         (gnat_mark_addressable, case VAR_DECL): Unconditionally call
2351         put_var_into_stack.
2352
2353 2004-06-14  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
2354
2355         * ada-tree.def (LOOP_STMT, EXIT_STMT): Update documentation.
2356         * ada-tree.h (EXIT_STMT_LABEL): Renamed from EXIT_STMT_LOOP.
2357         * decl.c (gnat_to_gnu_entity): Also set force_global for imported
2358         subprograms.
2359         * trans.c (gnu_loop_label_stack): Renamed from gnu_loop_stmt_stack;
2360         all callers changed.
2361         (gnat_to_gnu, case N_Loop_Statement, case N_Exit_Statement): Change
2362         the way that EXIT_STMT finds the loop label.
2363         (gnat_gimplify_stmt, case LOOP_STMT, EXIT_STMT): Likewise.
2364         (gnat_gimplify_stmt, case DECL_STMT): Handle variable-sized decls here.
2365         (add_stmt): Use annotate_with_locus insted of setting directly.
2366         (pos_to_construct): Set TREE_PURPOSE of each entry to index.
2367         (gnat_stabilize_reference, case ARRAY_RANGE_REF): Merge with ARRAY_REF.
2368         * utils.c (gnat_install_builtins): Install __builtin_memcmp.
2369         (build_vms_descriptor): Add extra args to ARRAY_REF.
2370         (convert): Use VIEW_CONVERT_EXPR between aggregate types.
2371         * utils2.c (gnat_truthvalue_conversion, case INTEGER_CST, REAL_CST):
2372         New cases.
2373         (build_binary_op): Don't make explicit CONVERT_EXPR.
2374         Add extra rgs to ARRAY_REF.
2375
2376 2004-06-14  Pascal Obry  <obry@gnat.com>
2377
2378         * gnat_ugn.texi: Document relocatable vs. dynamic Library_Kind on
2379         Windows.  Fix minor typo.
2380
2381         * mlib-tgt-mingw.adb: New implementation using the GCC -shared option
2382         which is now supported on Windows. With this implementation using the
2383         Library Project feature is no different on Windows than on UNIX.
2384
2385 2004-06-14  Vincent Celier  <celier@gnat.com>
2386
2387         * makegpr.adb (Compile_Sources): Nothing to do when there are no
2388         non-Ada sources.
2389
2390         * mlib-tgt-vxworks.adb (Library_Exists_For): Remove incorrect comment
2391
2392         * prj-part.adb (Parse_Single_Project): When a duplicate project name is
2393         found, show the project name and the path of the previously parsed
2394         project file.
2395
2396 2004-06-14  Ed Schonberg  <schonberg@gnat.com>
2397
2398         * exp_ch6.adb (Add_Call_By_Copy_Code): For an out-parameter that is an
2399         array, avoid copying the actual before the call.
2400
2401 2004-06-14  Thomas Quinot  <quinot@act-europe.fr>
2402
2403         * g-debpoo.adb: Remove alignment assumptions from GNAT.Debug_Pools.
2404         Instead, allocate memory on worst-case alignment assumptions, and then
2405         return an aligned address within the allocated zone.
2406
2407 2004-06-14  Robert Dewar  <dewar@gnat.com>
2408
2409         * bindgen.adb (Gen_Adainit_Ada): Do not generate external references to
2410         elab entities in predefined units in No_Run_Time_Mode.
2411         (Gen_Adainit_C): Same fix
2412         (Gen_Elab_Calls_Ada): Do not generate calls to elaborate predefined
2413         units in No_Run_Time_Mode
2414         (Gen_Elab_Calls_C): Same fix
2415
2416         * symbols-vms-alpha.adb: Minor reformatting
2417
2418         * g-debpoo.ads: Minor reformatting
2419
2420         * lib.adb (In_Same_Extended_Unit): Version working on node id's
2421
2422         * lib.ads (In_Same_Extended_Unit): Version working on node id's
2423
2424         * lib-xref.adb: Minor cleanup, use new version of In_Same_Extended_Unit
2425         working on nodes.
2426
2427         * make.adb: Minor reformatting
2428
2429         * par-ch12.adb: Minor reformatting
2430
2431         * par-prag.adb: Add dummy entry for pragma Profile_Warnings
2432
2433         * prj-strt.adb: Minor reformatting
2434
2435         * restrict.ads, restrict.adb: Redo handling of profile restrictions to
2436         be more general.
2437
2438         * sem_attr.adb: Minor reformatting
2439
2440         * sem_ch7.adb: Minor reformatting
2441
2442         * sem_elab.adb (Check_A_Call): Deal with problem of calling init proc
2443         for type in the same unit as the object declaration.
2444
2445         * sem_prag.adb (Check_Arg_Is_External_Name): New procedure, allows
2446         static string expressions and not just string literals.
2447         Minor reformatting
2448         (Set_Warning): Reset restriction warning flag for restriction pragma
2449         Implement pragma Profile_Warnings
2450         Implement pragma Profile (Restricted)
2451         Give obolescent messages for old restrictions and pragmas
2452
2453         * snames.h, snames.ads, snames.adb: Add new entry for pragma
2454         Profile_Warnings.
2455
2456         * s-rident.ads: Add declarations for restrictions required by profile
2457         Restricted and profile Ravenscar.
2458
2459         * targparm.ads, targparm.adb: Allow pragma Profile in system.ads
2460
2461         * gnat_ugn.texi: Correct some missing entries in the list of GNAT
2462         configuration pragmas.
2463
2464 2004-06-11  Vincent Celier  <celier@gnat.com>
2465
2466         * mlib-tgt-vms-alpha.adb (Build_Dynamic_Library): Issue switch -R to
2467         gnatsym, when symbol policy is Restricted.
2468
2469         * mlib-tgt-vms-ia64.adb (Build_Dynamic_Library): Issue switch -R to
2470         gnatsym, when symbol policy is Restricted.
2471
2472         * symbols-vms-alpha.adb (Initialize): When symbol policy is Restricted,
2473         read the symbol file.
2474         (Finalize): Fail in symbol policy Restricted if a symbol in the original
2475         symbol file is not in the object files. Do not create a new symbol file
2476         when symbol policy is Restricted.
2477
2478         * gnatbind.adb (Gnatbind): Initialize Snames, because Snames is used
2479         in Scng.
2480
2481         * gnatsym.adb (Parse_Vmd_Line): Process new switch -R for symbol policy
2482         Restricted.
2483         (Usage): Line for new switch -R
2484
2485         * make.adb (Initialize): When the platform is not VMS, add the
2486         directory where gnatmake is invoked in the front of the path, if
2487         gnatmake is invoked with directory information.  Change the Scan_Args
2488         while loop to a for loop.
2489         (Recursive_Compute_Depth): Remove parameter Visited. Improve efficiency:
2490         if Depth is equal or greater than the proposed depth, there is nothing
2491         to do.
2492         (Initialize): Call Recursive_Compute_Depth with initial Depth equal to 1
2493         instead of 0.
2494
2495         * prj.ads: Add new symbol policy Restricted.
2496
2497         * prj-dect.adb (Parse_Case_Construction): Call End_Case_Construction
2498         with the new parameters Check_All_Labels and Case_Location.
2499
2500         * prj-nmsc.adb (Ada_Check): Process new symbol policy Restricted
2501         (Library_Symbol_File needs to be defined).
2502
2503         * prj-strt.adb (End_Case_Construction): New parameters Check_All_Labels
2504         and Case_Location If Check_All_Labels is True, check that all values of
2505         the string type are used, and output warning(s) if they are not.
2506
2507         * prj-strt.ads (End_Case_Construction): New parameters Check_All_Labels
2508         and Case_Location.
2509
2510         * gnat_ugn.texi: Reorder subclauses in menus "Switches for gcc"
2511
2512         * gnat_ugn.texi: Update documentation about the library directory in
2513         Library Projects.
2514
2515         * makegpr.adb (Display_Command): In verbose mode, also display the
2516         value of the CPATH env var, when the compiler is gcc.
2517         (Initialize): Change the Scan_Args while loop to a for loop
2518         (Compile_Individual_Sources): Change directory to object directory
2519         before compilations.
2520
2521         * symbols.ads: New symbol policy Restricted.
2522
2523 2004-06-11  Olivier Hainque  <hainque@act-europe.fr>
2524
2525         * a-except.adb (Raise_After_Setup family): Remove. The responsibility
2526         is now taken care of internally in the Exception_Propagation package
2527         and does not require clients assistance any more.
2528
2529         * a-exexpr.adb (Is_Setup_And_Not_Propagated,
2530         Set_Setup_And_Not_Propagated, and Clear_Setup_And_Not_Propagated): New
2531         functions. Helpers to maintain a predicate required in the handling of
2532         occurrence transfer between tasks.
2533         This is now handled internally and does not require clients assistance
2534         for the setup/propagate separation anymore.
2535         (Setup_Exception, Propagate_Exception): Simplify the Private_Data
2536         allocation strategy, handle the Setup_And_Not_Propagated predicate and
2537         document.
2538
2539         * s-taenca.adb (Check_Exception): Use raise_with_msg instead of
2540         raise_after_setup, now that everything is handled internally within the
2541         setup/propagation engine.
2542
2543 2004-06-11  Hristian Kirtchev  <kirtchev@gnat.com>
2544
2545         * exp_ch6.adb (Expand_Inlined_Call): Add function Formal_Is_Used_Once.
2546         Add additional conditions for the case of an actual being a simple
2547         name or literal. Improve inlining by preventing the generation
2548         of temporaries with a short lifetime (one use).
2549
2550 2004-06-11  Hristian Kirtchev  <kirtchev@gnat.com>
2551
2552         PR ada/15587
2553
2554         * einfo.ads: Minor comment updates for Has_Completion and
2555         E_Constant list of flags.
2556
2557         * sem_ch3.adb (Analyze_Object_Declaration): Full constant declarations
2558         and constant redeclarations now set the Has_Completion flag of their
2559         defining identifiers.
2560
2561         * sem_ch7.adb (Analyze_Package_Spec): Add procedure
2562         Inspect_Deferred_Constant_Completion.
2563         Used to detect private deferred constants that have not been completed
2564         either by a constant redeclaration or pragma Import. Emits error message
2565         "constant declaration requires initialization expression".
2566
2567         * sem_prag.adb (Process_Import_Or_Interface): An Import pragma now
2568         completes a deferred constant.
2569
2570 2004-06-11  Geert Bosch  <bosch@gnat.com>
2571
2572         * eval_fat.adb (Decompose_Int): Fix rounding of negative numbers.
2573
2574         * s-fatgen.adb (Gradual_Scaling): Correct off-by-one error in
2575         calculating exponent for scaling denormal numbers.
2576         (Leading_Part): Properly raise Constraint_Error for zero or negative
2577         Adjustment.
2578         (Remainder): Properly raise Constraint_Error for zero divisor.
2579
2580 2004-06-11  Thomas Quinot  <quinot@act-europe.fr>
2581
2582         * sem_util.adb: Minor reformatting.
2583
2584         * exp_ch2.adb (Expand_Entry_Parameter): Generate an explicit
2585         dereference when accessing the entry parameter record.
2586         (Check_Array_Type): Always check for possible implicit dereference.
2587         (maybe_implicit_dereference): Rename to check_no_implicit_derefence.
2588         Abort if a pointer is still present (denoting that an implicit
2589         dereference was left in the tree by the front-end).
2590
2591         * sem_attr.adb (Expand_Entry_Parameter): Generate an explicit
2592         dereference when accessing the entry parameter record.
2593         (Check_Array_Type): Always check for possible implicit dereference.
2594         (maybe_implicit_dereference): Rename to check_no_implicit_derefence.
2595         Abort if a pointer is still present (denoting that an implicit
2596         dereference was left in the tree by the front-end).
2597
2598 2004-06-11  Emmanuel Briot  <briot@act-europe.fr>
2599
2600         * g-debpoo.adb (Deallocate, Dereference): Add prefix "error:" to error
2601         message, like the compiler itself does. Easier to parse the output.
2602
2603         * g-debpoo.ads: (Allocate, Deallocate, Dereference): Add comments.
2604
2605         * gnat_ugn.texi (gnatxref, gnatfind): Clarify that source names should
2606         be base names, and not includes directories.
2607
2608 2004-06-11  Arnaud Charlet  <charlet@act-europe.fr>
2609
2610         * Makefile.generic ($(EXEC)): Depend on $(OBJECTS), not $(OBJ_FILES),
2611         so that dependencies are properly taken into account by make.
2612
2613 2004-06-11  Arnaud Charlet  <charlet@act-europe.fr>
2614
2615         PR ada/15622
2616         * s-unstyp.ads, s-maccod.ads, sem_ch8.adb, s-auxdec.ads,
2617         exp_intr.adb, s-auxdec-vms_64.ads: Fix typo: instrinsic -> intrinsic
2618
2619 2004-06-11  Jerome Guitton  <guitton@act-europe.fr>
2620
2621         * Makefile.in (install-gnatlib): install target-specific run-time files.
2622
2623         * Make-lang.in: Remove obsolete targets.
2624
2625 2004-06-11  Ed Schonberg  <schonberg@gnat.com>
2626
2627         * par-ch12.adb (P_Generic): Add scope before analyzing subprogram
2628         specification, to catch misuses of program unit names.
2629
2630         * sem_res.adb (Resolve_Type_Conversion): Do not emit warnings on
2631         superfluous conversions in an instance.
2632
2633 2004-06-11  Ed Schonberg  <schonberg@gnat.com>
2634
2635         PR ada/15403
2636
2637         * sem_ch12.adb (Save_References): If operator node has been folded to
2638         enumeration literal, associated_node must be discarded.
2639
2640 2004-06-11  Jose Ruiz  <ruiz@act-europe.fr>
2641
2642         * s-stchop-vxworks.adb: Add required pragma Convention to
2643         Task_Descriptor because it is updated by a C function.
2644
2645 2004-06-08  Arnaud Charlet  <charlet@act-europe.fr>
2646
2647         PR ada/15568
2648
2649         * Makefile.in: Remove target specific SO_OPT on IRIX
2650
2651 2004-06-07  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
2652
2653         * ada-tree.def (TRANSFORM_EXPR, ALLOCATE_EXPR, USE_EXPR): Deleted.
2654         (GNAT_NOP_EXPR, GNAT_LOOP_ID, EXPR_STMT, NULL_STMT): Likewise.
2655         (BLOCK_STMT, IF_STMT, GOTO_STMT, LABEL_STMT, RETURN_STMT): Likewise.
2656         (ASM_STMT, BREAK_STMT, REGION_STMT,HANDLER_STMT): Likewise.
2657         (STMT_STMT, USE_STMT): New statement codes.
2658         (LOOP_STMT, EXIT_STMT): Make slight semantic changes.
2659         * ada-tree.h: Reflect above changes.
2660         (struct tree_loop_id): Deleted.
2661         (union lang_tree_node, struct lang_decl, struct lang_type):
2662         Now just contains a tree node; update macros using TYPE_LANG_SPECIFIC
2663         and DECL_LANGUAGE_SPECIFIC to reflect these changes.
2664         (DECL_INIT_BY_ASSIGN_P, TRE_LOOP_NODE_ID, TREE_SLOC): Deleted.
2665         (IS_ADA_STMT): New macro.
2666         * decl.c (annotate_decl_with_node): New function.
2667         (gnat_to_gnu_entity): Use it and Sloc_to_locus instead of set_lineno.
2668         (gnat_to_gnu_entity, case object): Remove call to expand CONVERT_EXPR.
2669         Call add_stmt_with_node to do needed assignments.
2670         Add call to update setjmp buffer directly, not via EXPR_STMT.
2671         (maybe_variable): Argment GNAT_NODE deleted.
2672         * gigi.h (maybe_variable): Likewise.
2673         (make_transform, add_stmt_with_node, set_block_for_group): New.
2674         (gnat_gimplify_expr, gnat_expand_body, Sloc_to_locus): Likewise.
2675         (set_block_jmpbuf_decl, get_block_jmpbuf_decl): Likewise.
2676         (discard_file_names, gnu_block_stack, gnat_to_code): Deleted.
2677         (set_lineno, set_lineno_from_sloc): Likewise.
2678         (record_code_position, insert_code_for): Likewise.
2679         (gnat_poplevel): Now returns void.
2680         (end_subprog_body): Now takes argument.
2681         * misc.c (cgraph.h, tree-inline.h): New includes.
2682         (gnat_tree_size, LANG_HOOKS_TREE_SIZE): Deleted.
2683         (gnat_post_options, LANG_HOOKS_POST_OPTIONS): New.
2684         (LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION): Likewise.
2685         (LANG_HOOKS_RTL_EXPAND_STMT, LANG_HOOKS_GIMPLIFY_EXPR): Likewise.
2686         (gnat_parse_file): Don't set immediate_size_expand.
2687         Call cgraph functions.
2688         (gnat_expand_expr): Remove most cases.
2689         (record_code_position, insert_code_for): Remove from here.
2690         * trans.c (toplev.h, tree-gimple.h): Now included.
2691         (discard_file_names): Deleted.
2692         (gnu_block_stack, gnu_block_stmt_node, gnu_block_stmt_free_list): Del.
2693         (first_nondeleted_insn, make_expr_stmt_from_rtl): Likewise.
2694         (struct stmt_group, current_stmt_group, stmt_group_free_list): New.
2695         (gnu_stack_free_list, record_cost_position, insert_code_for): Likewise.
2696         (add_cleanup, push_stack, gnat_gimplify_stmt, add_cleanup): Likewise.
2697         (gnat_gimplify_type_sizes, gnat_gimplify_one_sizepos): Likewise.
2698         (gnat_expand_body_1, gnat_gimplify_expr, annotate_with_node): Likewise.
2699         (set_block_for_group, add_stmt_list): Likewise.
2700         (start_stmt_group): Renamed from start_block_stmt.
2701         (end_stmt_group): Likewise, from end_block_stmt.
2702         (build_stmt_group): Likewise, from build_block_stmt, also add arg.
2703         (gigi): Don't set discard_file_names or call set_lineno.
2704         Disallow front end ZCX; call gnat_to_gnu, not gnat_to_code.
2705         (tree_transform): Deleted, now renamed to be gnat_to_gnu.
2706         Numerous changes throughout to reflect new names and complete
2707         function-at-a-time implementation.
2708         (gnat_expand_stmt): Delete or comment out all cases.
2709         (process_inlined_subprograms): Use add_stmt.
2710         (process_decls): Use gnat_to_gnu, not gnat_to_code, and don't
2711         call set_lineno; also remove unneeded block handling.
2712         (process_type): Remove unneeded block handling.
2713         (build_unit_elab): Remove calls to deleted functions.
2714         * utils.c (cgraph.h, tree-inline.h, tree-gimple.h): Now include.
2715         (tree-dump.h): Likewise.
2716         (struct ada_binding_level): Add field jmpbuf_decl.
2717         (gnat_define_builtin, gnat_install_builtins): New.
2718         (gnat_gimplify_function, gnat_finalize): Likewise.
2719         (gnat_poplevel): No longer return BLOCK, set it instead.
2720         Remove code dealing with nested functions.
2721         (gnat_init_decl_processing): Also set size_type_node.
2722         Call gnat_install_builtins.
2723         (create_var_decl): Don't set DECL_INIT_BY_ASSIGN.
2724         (create_subprog_decl): Change handling of inline_flag; set TREE_STATIC.
2725         Remove special-case for "main".
2726         (end_subprog_body): Add arg and rework for tree-ssa.
2727         (convert): Don't use GNAT_NOP_EXPR or look for TRANSFORM_EXPR.
2728         Add case for BOOLEAN_TYPE.
2729         * utils2.c (rtl.h): Now include.
2730         (build_call_raise): Test Debug_Flag_NN directly.
2731         (build_call_alloc_dealloc): Don't use local stack allocation for now.
2732         (gnat_mark_addressable, case GNAT_NOP_EXPR): Deleted.
2733         (gnat_mark_addressable, case VAR_DECL): Handle both early & late cases.
2734
2735 2004-06-07  Robert Dewar  <dewar@gnat.com>
2736
2737         * a-direct.ads, einfo.ads: Minor comment updates
2738
2739         * s-taprop-lynxos.adb, s-taprop-tru64.adb, s-taprop-irix.adb,
2740         s-taprop-irix-athread.adb, s-taprop-hpux-dce.adb, s-taprop-linux.adb,
2741         s-taprop-dummy.adb, s-taprop-os2.adb, s-taprop-solaris.adb,
2742         s-taprop-vms.adb, s-taprop-mingw.adb, s-taprop-vxworks.adb,
2743         s-taprop-posix.adb, s-taprop.ads, exp_dbug.adb: Minor reformatting.
2744
2745         * s-interr-sigaction.adb: Remove unreferenced variable
2746         (Attached_Interrupts).  Minor reformatting.
2747         Avoid use of variable I (replace by J).
2748
2749         * par-ch10.adb: Fix text of one error message
2750
2751         * checks.adb, checks.ads, cstand.adb, vms_data.ads, errout.ads,
2752         exp_aggr.adb, exp_ch3.adb, exp_ch3.ads, exp_ch5.adb, exp_ch6.adb,
2753         exp_ch9.adb, exp_code.adb, gnat1drv.adb, lib-load.adb, lib-writ.adb,
2754         opt.adb, par.adb, opt.ads, par-ch11.adb, par-ch3.adb, par-ch4.adb,
2755         par-ch5.adb, par-ch6.adb, par-ch8.adb, par-ch9.adb, par-prag.adb,
2756         par-util.adb, scng.adb, sem_aggr.adb, sem_attr.adb, sem_cat.adb,
2757         sem_ch10.adb, sem_ch10.adb, sem_ch11.adb, sem_ch12.adb, sem_ch2.adb,
2758         sem_ch3.adb, sem_ch3.ads, sem_ch4.adb, sem_ch5.adb, sem_ch6.adb,
2759         sem_ch7.adb, sem_ch8.adb, sem_ch9.adb, sem_eval.adb, sem_prag.adb,
2760         sem_res.adb, sem_type.adb, sem_util.adb, sinfo.ads, snames.adb,
2761         snames.ads, snames.h, sprint.adb, switch-c.adb: Modifications for Ada
2762         2005 support.
2763
2764 2004-06-07  Doug Rupp  <rupp@gnat.com>
2765
2766         * mlib-tgt-vms.adb: Rename mlib-tgt-vms.adb mlib-tgt-vms-alpha.adb
2767
2768         * s-vaflop-vms.adb: Rename s-vaflop-vms.adb to s-vaflop-vms-alpha.adb
2769
2770         * mlib-tgt-vms-ia64.adb: New file.
2771
2772         * Makefile.in: Rename mlib-tgt-vms.adb to mlib-tgt-vms-alpha.adb
2773         Add mlib-tgt-vms-ia64.adb
2774         Rename s-vaflop-vms.adb to s-vaflop-vms-alpha.adb.
2775         Move to alpha specific ifeq section.
2776         Add VMS specific versions of symbols.adb
2777         Renaming of 5q vms files.
2778
2779         * 5qsystem.ads renamed to system-vms_64.ads.
2780
2781 2004-06-07  Vincent Celier  <celier@gnat.com>
2782
2783         * a-calend.ads: Add a GNAT Note comment after function Time_Of to
2784         explain that when a time of day corresponding to the non existing hour
2785         on the day switching to DST is specified, Split may return a different
2786         value for Seconds.
2787
2788         * gnatcmd.adb: Add processing of GNAT METRIC (for gnatmetric), similar
2789         to GNAT PRETTY.
2790
2791         * g-os_lib.adb (OpenVMS): New Boolean value imported from System.
2792         (Normalize_Pathname): Only resolve VMS logical names when on VMS.
2793
2794         * mlib-prj.adb (Build_Library): New flag Gtrasymobj_Needed, initialize
2795         to False.
2796         If Gtrasymobj_Needed is True, add the full path of g-trasym.obj to
2797         the linking options.
2798         (Build_Library.Check_Libs): On VMS, if there is a dependency on
2799         g-trasym.ads, set Gtrasymobj_Needed to True.
2800
2801         * prj-attr.adb: Add new package Metrics for gnatmetric
2802
2803         * prj-nmsc.adb (Record_Other_Sources): Put source file names in
2804         canonical case to take into account files with upper case characters on
2805         Windows.
2806         (Ada_Check): Load the reference symbol file name in the name buffer to
2807         check it, not the symbol file name.
2808
2809         * snames.ads, snames.adb: Add standard name Metrics (name of project
2810         file package for gnatmetric).
2811
2812         * vms_conv.ads: Add Metric to Comment_Type
2813
2814         * vms_conv.adb (Initialize): Add component dor Metric in Command_List
2815
2816         * vms_data.ads: Add qualifiers for GNAT METRIC
2817
2818         * makegpr.adb (Link_Executables): Take into account the switches
2819         specified in package Linker of the main project.
2820
2821 2004-06-07  Thomas Quinot  <quinot@act-europe.fr>
2822
2823         * bindgen.adb (Set_Unit_Number): Units is an instance of Table, and so
2824         the index of the last element is Units.Last, not Units.Table'Last
2825         (which is usually not a valid index within the actually allocated
2826         storage for the table).
2827
2828         * exp_ch4.adb (Insert_Dereference_Action): Change predicate that
2829         determines whether to generate a call to a checked storage pool
2830         Dereference action.
2831         Generate such a call only for a dereference that either comes from
2832         source, or is the result of rewriting a dereference that comes from
2833         source.
2834
2835 2004-06-07  Romain Berrendonner  <berrendo@act-europe.fr>
2836
2837         * bindgen.adb (Gen_Output_File): Add support for GAP builds.
2838
2839 2004-06-07  Eric Botcazou  <ebotcazou@act-europe.fr>
2840
2841         (gnat_to_gnu_entity) <E_Array_Subtype>: For multi-dimensional arrays at
2842         file level, elaborate the stride for inner dimensions in alignment
2843         units, not bytes.
2844
2845         * exp_ch5.adb: Correct wrong reference to Component_May_Be_Bit_Aligned
2846         in a comment.
2847
2848 2004-06-07  Javier Miranda  <miranda@gnat.com>
2849
2850         * exp_ch6.adb: Correct wrong modification in previous patch
2851
2852 2004-06-07  Vasiliy Fofanov  <fofanov@act-europe.fr>
2853
2854         * g-trasym.ads: Corrected comment to properly reflect level of support
2855         on VMS.
2856
2857 2004-06-07  Hristian Kirtchev  <kirtchev@gnat.com>
2858
2859         * lib-xref.adb (Generate_Reference): Add nested function Is_On_LHS. It
2860         includes case of a variable referenced on the left hand side of an
2861         assignment, therefore remove redundant code. Variables and prefixes of
2862         indexed or selected components are now marked as referenced on left
2863         hand side. Warnings are now properly emitted when variables or prefixes
2864         are assigned but not read.
2865
2866         * sem_warn.adb (Output_Unreferenced_Messages): Add additional checks to
2867         left hand side referenced variables. Private access types do not
2868         produce the warning "variable ... is assigned but never read".
2869         Add also additional checks to left hand side referenced variables.
2870         Aliased, renamed objects and access types do not produce the warning
2871         "variable ... is assigned but never read" since other entities may read
2872         the memory location.
2873
2874 2004-06-07  Jerome Guitton  <guitton@act-europe.fr>
2875
2876         * Makefile.in: In the powerpc/vxworks-specific section, restore
2877         EXTRA_GNATRTL_NONTASKING_OBJS and EXTRA_GNATRTL_TASKING_OBJS (removed
2878         by mistake).
2879
2880 2004-06-07  Ed Schonberg  <schonberg@gnat.com>
2881
2882         * sem_ch4.adb (Remove_Abstract_Operations): Refine the removal of
2883         predefined operators.
2884         Removes spurious type errors from g-trasym-vms.adb.
2885
2886         * sem_res.adb (Rewrite_Renamed_Operator): If intrinsic operator is
2887         distinct from the operator appearing in the source, call appropriate
2888         routine to insert conversions when needed, and complete resolution of
2889         node.
2890         (Resolve_Intrinsic_Operator): Fix cut-and-paste bug on transfer of
2891         interpretations for rewritten right operand.
2892         (Set_Mixed_Mode_Operand): Handle properly a universal real operand when
2893         the other operand is overloaded and the context is a type conversion.
2894
2895 2004-06-07  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
2896
2897         * ada-tree.def (BLOCK_STMT): Now has two operands.
2898         (BREAK_STMT): New.
2899
2900         * ada-tree.h: (BLOCK_STMT_BLOCK): New macro.
2901
2902         * gigi.h: (gnat_poplevel): Now returns a tree.
2903
2904         * trans.c (end_block_stmt): Add arg; all callers changed.
2905         (tree_transform, case N_Case_Statement): Make a BLOCK_STMT for a WHEN.
2906         (start_block_stmt): Clear BLOCK_STMT_BLOCK.
2907         (add_stmt): Set TREE_TYPE.
2908         (gnat_expand_stmt, case BLOCK_STMT): Handle BLOCK_STMT_BLOCK.
2909         (gnat_expand_stmt, case BREAK_STMT): New case.
2910
2911         * utils.c (gnat_poplevel): Return a BLOCK, if we made one.
2912
2913 2004-06-07  Jose Ruiz  <ruiz@act-europe.fr>
2914
2915         * s-stchop.adsm s-stchop.adb, s-stchop-vxworks.adb: Remove the
2916         procedure Set_Stack_Size that is not needed.
2917
2918 2004-06-07  Sergey Rybin  <rybin@act-europe.fr>
2919
2920         * gnat_ugn.texi: Clarify the case when non-standard naming scheme is
2921         used for gnatpp input file and for the files upon which it depends
2922
2923 2004-06-07  Ben Brosgol  <brosgol@gnat.com>
2924
2925         * gnat_ugn.texi: Wordsmithing of "GNAT and Libraries" chapter
2926
2927 2004-06-07  Arnaud Charlet  <charlet@act-europe.fr>
2928
2929         * gnatvsn.ads: Bump version numbers appropriately.
2930         Add new build type.
2931
2932 2004-06-07  Pascal Obry  <obry@gnat.com>
2933
2934         * gnat_ugn.texi: Improve comments about imported names and link names
2935         on Windows. Add a note about the requirement to use -k gnatdll's option
2936         when working with a DLL which has stripped stdcall symbols (no @nn
2937         suffix).
2938
2939 2004-05-27  Vincent Celier  <celier@gnat.com>
2940
2941         * vms_data.ads: Add new GNAT PRETTY qualifiers /NO_BACKUP and
2942         COMMENTS_LAYOUT=UNTOUCHED
2943
2944         * symbols-vms.adb, symbols-vms-alpha.adb: Renamed symbols-vms.adb to
2945         symbols-vms-alpha.adb
2946
2947 2004-05-27  Thomas Quinot  <quinot@act-europe.fr>
2948
2949         * sem.ads: Clarify documentation on checks suppression.
2950
2951         * einfo.ads (Is_Known_Non_Null): Minor comment typo fix and rephrasing.
2952
2953 2004-05-27  Ed Schonberg  <schonberg@gnat.com>
2954
2955         * sem_util.adb (Is_Descendent_Of): Examine properly all ancestors in
2956         the case of multiple derivations.
2957         (Is_Object_Reference): For a selected component, verify that the prefix
2958         is itself an object and not a value.
2959
2960         * sem_ch12.adb (Same_Instantiated_Constant): New name for
2961         Same_Instantiated_Entity.
2962         (Same_Instantiated_Variable): Subsidiary to
2963         Check_Formal_Package_Instance, to recognize actuals for in-out generic
2964         formals that are obtained from a previous formal package.
2965         (Instantiate_Subprogram_Body): Emit proper error when
2966         generating code and the proper body of a stub is missing.
2967
2968         * sem_ch4.adb (Remove_Address_Interpretations): If the operation still
2969         has a universal interpretation, do the disambiguation here.
2970
2971         * exp_ch4.adb (Expand_N_Type_Conversion,
2972         Expand_N_Unchecked_Type_Conversion): Special handling when target type
2973         is Address, to avoid typing anomalies when Address is a visible integer
2974         type.
2975
2976         * exp_ch6.adb (Expand_N_Subprogram_Body): Use Is_Descendent_Of_Address
2977         to determine whether a subprogram should not be marked Pure, even when
2978         declared in a pure package.
2979
2980 2004-05-27  Jose Ruiz  <ruiz@act-europe.fr>
2981
2982         * gnat_ugn.texi: Replace pragma Ravenscar by pragma Profile.
2983
2984         * gnat_rm.texi: Replace Max_Entry_Queue_Depth by Max_Entry_Queue_Length
2985         Document No_Dynamic_Attachment, that supersedes No_Dynamic_Interrupts.
2986         Update the documentation about the Ravenscar profile, following the
2987         definition found in AI-249.
2988
2989         * sem_prag.adb: Use FIFO_Within_Priorities and Ceiling_Locking when
2990         setting the Profile (Ravenscar). This must be done in addition to
2991         setting the required restrictions.
2992
2993         * rtsfind.ads: Add the set of operations defined in package
2994         Ada.Interrupts.
2995
2996         * exp_ch6.adb: Check whether we are violating the No_Dynamic_Attachment
2997         restriction.
2998
2999 2004-05-27  Eric Botcazou  <ebotcazou@act-europe.fr>
3000
3001         lang-specs.h: Always require -c or -S and always redirect to /dev/null
3002         if -gnatc or -gnats is passed.
3003
3004 2004-05-27  Hristian Kirtchev  <kirtchev@gnat.com>
3005
3006         * sem_prag.adb (Sig_Flags): A Pragma_Unchecked_Union does not count as
3007         a significant reference. Warnings are now properly emitted when a
3008         discriminated type is not referenced.
3009
3010         * lib-xref.adb (Generate_Reference): A deferred constant completion,
3011         record representation clause or record type discriminant does not
3012         produce a reference to its corresponding entity. Warnings are now
3013         properly emitted when deferred constants and record types are not
3014         referenced.
3015
3016 2004-05-27  Geert Bosch  <bosch@gnat.com>
3017
3018         * Makefile.in: Use long version of libm routines on ia64 gnu/linux.
3019         Fixes ACATS Annex G tests.
3020
3021 2004-05-27  Robert Dewar  <dewar@gnat.com>
3022
3023         * rtsfind.adb (RTU_Loaded): Temporary kludge to get past bug of not
3024         handling WITH
3025
3026 2004-05-27  Arnaud Charlet  <charlet@act-europe.fr>
3027
3028         * s-interr.adb (Server_Task): Take into account case of early return
3029         from sigwait under e.g. linux.
3030
3031 2004-05-27  Sergey Rybin  <rybin@act-europe.fr>
3032
3033         * gnat_ugn.texi: Add description for the new gnatpp options:
3034          -rnb - replace the original source without creating its backup copy
3035          -c0 - do not format comments
3036
3037 2004-05-24  Geert Bosch  <bosch@gnat.com>
3038
3039         * a-numaux-x86.adb (Reduce): Reimplement using an approximation of Pi
3040         with 192 bits of precision, sufficient to reduce a double-extended
3041         arguments X with a maximum relative error of T'Machine_Epsilon, for X
3042         in -2.0**32 .. 2.0**32.
3043         (Cos, Sin):  Always reduce arguments of 1/4 Pi or larger, to prevent
3044         reduction by the processor, which only uses a 68-bit approximation of
3045         Pi.
3046         (Tan): Always reduce arguments and compute function either using
3047         the processor's fptan instruction, or by dividing sin and cos as needed.
3048
3049 2004-05-24  Doug Rupp  <rupp@gnat.com>
3050
3051         * adaint.c (__gnat_readdir): Cast CRTL function retun value to avoid
3052         gcc error on 32/64 bit VMS.
3053
3054 2004-05-24  Olivier Hainque  <hainque@act-europe.fr>
3055
3056         * init.c (__gnat_error_handler): Handle EEXIST as EACCES for SIGSEGVs,
3057         since this is what we get for stack overflows although not documented
3058         as such.
3059         Document the issues which may require adjustments to our signal
3060         handlers.
3061
3062 2004-05-24  Ed Schonberg  <schonberg@gnat.com>
3063
3064         * inline.adb (Add_Scope_To_Clean): Do not add cleanup actions to the
3065         enclosing dynamic scope if the instantiation is within a generic unit.
3066
3067 2004-05-24  Arnaud Charlet  <charlet@act-europe.fr>
3068
3069         * exp_dbug.ads: Fix typo.
3070
3071         * Makefile.in: s-osinte-linux-ia64.ads was misnamed.
3072         Rename it to its proper name: system-linux-ia64.ads
3073         (stamp-gnatlib1): Remove extra target specific run time files when
3074         setting up the rts directory.
3075
3076 2004-05-24  Javier Miranda  <miranda@gnat.com>
3077
3078         * einfo.ads, einfo.adb (Limited_Views): Removed.
3079         (Limited_View): New attribute that replaces the previous one. It is
3080         now a bona fide package with the limited-view list through the
3081         first_entity and first_private attributes.
3082
3083         * sem_ch10.adb (Install_Private_With_Clauses): Give support to
3084         limited-private-with clause.
3085         (Install_Limited_Withed_Unit): Install the private declarations of a
3086         limited-private-withed package. Update the installation of the shadow
3087         entities according to the new structure (see Build_Limited_Views)
3088         (Build_Limited_Views): Replace the previous implementation of the
3089         limited view by a package entity that references the first shadow
3090         entity plus the first shadow private entity (required for limited-
3091         private-with clause)
3092         (New_Internal_Shadow_Entity): Code cleanup.
3093         (Remove_Limited_With_Clause): Update the implementation to undo the
3094         new work carried out by Build_Limited_Views.
3095         (Build_Chain): Complete documentation.
3096         Replace Ada0Y by Ada 0Y in comments
3097         Minor reformating
3098
3099         * sem_ch3.adb (Array_Type_Declaration): In case of anonymous access
3100         types the level of accessibility depends on the enclosing type
3101         declaration.
3102
3103         * sem_ch8.adb (Find_Expanded_Name): Fix condition to detect shadow
3104         entities. Complete documentation of previous change.
3105
3106 2004-05-24  Robert Dewar  <dewar@gnat.com>
3107
3108         * namet.adb: Minor reformatting
3109         Avoid use of name I (replace by J)
3110         Minor code restructuring
3111
3112         * sem_ch6.adb: Minor reformatting
3113
3114         * lib-writ.adb: Do not set restriction as active if this is a
3115         Restriction_Warning case.
3116
3117         * sem_prag.adb: Reset restriction warning flag if real pragma
3118         restriction encountered.
3119
3120         * s-htable.adb: Minor reformatting
3121         Change rotate count to 3 in Hash (improves hash for small strings)
3122
3123         * 5qsystem.ads: Add comments for type Address (no literals allowed).
3124
3125         * gnat_ugn.texi: Add new section of documentation "Code Generation
3126         Control", which describes the use of -m switches.
3127
3128 2004-05-24  Eric Botcazou  <ebotcazou@act-europe.fr>
3129
3130         trans.c (tree_transform) <N_Identifier>: Do the dereference directly
3131         through the DECL_INITIAL for renamed variables.
3132
3133 2004-05-24  Arnaud Charlet  <charlet@act-europe.fr>
3134
3135         * s-osinte-linux-ia64.ads: Renamed system-linux-ia64.ads
3136
3137 2004-05-19  Joel Brobecker  <brobecker@gnat.com>
3138
3139         * exp_dbug.ads: Correct comments concerning handling of overloading,
3140         since we no longer use $ anymore.
3141
3142 2004-05-19  Sergey Rybin  <rybin@act-europe.fr>
3143
3144         * sem_ch10.adb (Optional_Subunit): When loading a subunit, do not
3145         ignore errors if ASIS_Mode is set. This prevents creating ASIS trees
3146         with illegal subunits.
3147
3148 2004-05-19  Ed Schonberg  <schonberg@gnat.com>
3149
3150         * sem_ch6.adb (Check_Following_Pragma): When compiling a subprogram
3151         body with front-end inlining enabled, check whether an inline pragma
3152         appears immediately after the body and applies to it.
3153
3154         * sem_prag.adb (Cannot_Inline): Emit warning if front-end inlining is
3155         enabled and the pragma appears after the body of the subprogram.
3156
3157 2004-05-17  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
3158
3159         Part of function-at-a-time conversion
3160
3161         * misc.c (adjust_decl_rtl): Deleted.
3162         (LANG_HOOKS_PUSHLEVEL, LANG_HOOKS_POPLEVEL, LANG_HOOKS_SET_BLOCK):
3163         Define.
3164
3165         * gigi.h: (adjust_decl_rtl, kept_level_p, set_block): Deleted.
3166         (add_decl_stmt, add_stmt, block_has_vars): New functions.
3167         (gnat_pushlevel, gnat_poplevel): Renamed from pushlevel and poplevel.
3168
3169         * decl.c (elaborate_expression, maybe_pad_type): Call add_decl_stmt
3170         when making a decl.
3171         (gnat_to_gnu_entity): Likewise.
3172         Use add_stmt to update setjmp buffer.
3173         Set TREE_ADDRESSABLE instead of calling put_var_into_stack and
3174         flush_addressof.
3175         No longer call adjust_decl_rtl.
3176         (DECL_INIT_BY_ASSIGN_P): New macro.
3177         (DECL_STMT_VAR): Likewise.
3178
3179         * trans.c (gigi): Call start_block_stmt to make the outermost
3180         BLOCK_STMT.
3181         (gnat_to_code, gnu_to_gnu, tree_transform, process_decls, process_type):
3182         Call start_block_stmt and end_block_stmt temporarily.
3183         Use gnat_expand_stmt instead of expand_expr_stmt.
3184         (add_decl_stmt): New function.
3185         (tree_transform): Call it.
3186         (add_stmt): Also emit initializing assignment for DECL_STMT if needed.
3187         (end_block_stmt): Set type and NULL_STMT.
3188         (gnat_expand_stmt): Make recursize call instead of calling
3189         expand_expr_stmt.
3190         (gnat_expand_stmt, case DECL_STMT): New case.
3191         (set_lineno_from_sloc): Do nothing if global.
3192         (gnu_block_stmt_node, gnu_block_stmt_free_list): New variables.
3193         (start_block_stmt, add_stmt, end_block_stmt): New functions.
3194         (build_block_stmt): Call them.
3195         (gnat_to_code): Don't expand NULL_STMT.
3196         (build_unit_elab): Rename pushlevel and poplevel to gnat_* and change
3197         args.
3198         (tree_transform): Likewise.
3199         (tree_transform, case N_Null_Statement): Return NULL_STMT.
3200         (gnat_expand_stmt, case NULL_STMT): New case.
3201         (gnat_expand_stmt, case IF_STMT): Allow nested IF_STMT to have no
3202         IF_STMT_TRUE.
3203
3204         * utils2.c (gnat_mark_addressable, case VAR_DECL): Do not set
3205         TREE_ADDRESSABLE.
3206
3207         * utils.c (create_var_decl): Do not call expand_decl or
3208         expand_decl_init.
3209         Set TREE_ADDRESSABLE instead of calling gnat_mark_addressable.
3210         Set DECL_INIT_BY_ASSIGN_P when needed and do not generate MODIFY_EXPR
3211         here.
3212         (struct e_stack): Add chain_next to GTY.
3213         (struct binding_level): Deleted.
3214         (struct ada_binding_level): New struct.
3215         (free_block_chain): New.
3216         (global_binding_level, clear_binding_level): Deleted.
3217         (global_bindings_p): Rework to see if no chain.
3218         (kept_level_p, set_block): Deleted.
3219         (gnat_pushlevel): Renamed from pushlevel and extensive reworked to use
3220         new data structure and work directly on BLOCK node.
3221         (gnat_poplevel): Similarly.
3222         (get_decls): Look at BLOCK_VARS.
3223         (insert_block): Work directly on BLOCK node.
3224         (block_has_var): New function.
3225         (pushdecl): Rework for new binding structures.
3226         (gnat_init_decl_processing): Rename and rework calls to pushlevel and
3227         poplevel.
3228         (build_subprog_body): Likewise.
3229         (end_subprog_body): Likewise; also set up BLOCK in DECL_INITIAL.
3230
3231         * ada-tree.def (DECL_STMT, NULL_STMT): New codes.
3232
3233         * ada-tree.h: (DECL_INIT_BY_ASSIGN_P): New macro.
3234         (DECL_STMT_VAR): Likewise.
3235
3236 2004-05-17  Robert Dewar  <dewar@gnat.com>
3237
3238         * restrict.ads, restrict.adb (Process_Restriction_Synonym): New
3239         procedure
3240
3241         * sem_prag.adb (Analyze_Pragma, case Restrictions): Cleanup handling
3242         of restriction synonyums by using
3243         Restrict.Process_Restriction_Synonyms.
3244
3245         * snames.ads, snames.adb: Add entries for Process_Restriction_Synonym
3246
3247         * s-restri.ads (Tasking_Allowed): Correct missing comment
3248
3249         * s-rident.ads: Add entries for restriction synonyms
3250
3251         * ali.adb: Fix some problems with badly formatted ALI files that can
3252         result in infinite loops.
3253
3254         * s-taprop-lynxos.adb, s-tpopsp-lynxos.adb, s-taprop-tru64.adb,
3255         s-tpopsp-posix-foreign.adb, s-taprop-irix.adb, s-interr-sigaction.adb,
3256         s-taprop-irix-athread.adb, s-taprop-hpux-dce.adb, s-taprop-linux.adb,
3257         s-taprop-dummy.adb, s-interr-dummy.adb, s-taprop-os2.adb,
3258         s-taprop-solaris.adb, s-tpopsp-solaris.adb, s-asthan-vms.adb,
3259         s-inmaop-vms.adb, s-interr-vms.adb, s-taprop-vms.adb,
3260         s-tpopde-vms.adb, s-taprop-mingw.adb, s-interr-vxworks.adb,
3261         s-taprop-vxworks.adb, s-tpopsp-vxworks.adb, s-taprop-posix.adb,
3262         s-tpopsp-posix.adb, s-tratas-default.adb, a-dynpri.adb,
3263         a-tasatt.adb, a-taside.adb, a-taside.ads, exp_attr.adb,
3264         exp_ch9.adb, g-thread.adb, rtsfind.ads, sem_attr.adb,
3265         s-interr.adb, s-interr.ads, s-soflin.ads, s-taasde.adb,
3266         s-taasde.ads, s-taenca.adb, s-taenca.ads, s-taprop.ads,
3267         s-tarest.adb, s-tarest.ads, s-tasdeb.adb, s-tasdeb.ads,
3268         s-tasini.adb, s-tasini.ads, s-taskin.adb, s-taskin.ads,
3269         s-tasque.adb, s-tasque.ads, s-tasren.adb, s-tasren.ads,
3270         s-tassta.adb, s-tassta.ads, s-tasuti.adb, s-tasuti.ads,
3271         s-tataat.adb, s-tataat.ads, s-tpinop.adb, s-tpinop.ads,
3272         s-tpoben.adb, s-tpobop.adb, s-tpobop.ads, s-tporft.adb,
3273         s-tposen.adb, s-tposen.ads, s-tratas.adb, s-tratas.ads: Change Task_ID
3274         to Task_Id (minor cleanup).
3275
3276 2004-05-17  Vincent Celier  <celier@gnat.com>
3277
3278         * g-os_lib.adb (Normalize_Pathname.Final_Value): Remove trailing
3279         directory separator.
3280
3281         * prj-proc.adb (Recursive_Process): Inherit attribute Languages from
3282         project being extended, if Languages is not declared in extending
3283         project.
3284
3285 2004-05-17  Javier Miranda  <miranda@gnat.com>
3286
3287         * sem_ch10.adb (Install_Limited_Withed_Unit): Do not install the
3288         limited view of a visible sibling.
3289
3290 2004-05-14  Robert Dewar  <dewar@gnat.com>
3291
3292         * gnat_ugn.texi: Minor change to -gnatS documentation
3293
3294         * sprint.adb: Remove some instances of Assert (False) and for this
3295         purpose replace them by output of a ??? string.
3296
3297         * checks.adb, exp_aggr.adb, sem_elim.adb: Remove useless pragma
3298         Assert (False).
3299
3300         * lib-writ.adb, lib-load.adb, lib.ads, lib.adb: Remove Dependent_Unit
3301         flag processing. This was suppressing required dependencies in
3302         No_Run_Time mode and is not needed since the binder does not generate
3303         references for things in libgnat anyway.
3304
3305         * sem_ch3.adb (Access_Type_Declaration): Reorganize code to avoid GCC
3306         warning.
3307
3308 2004-05-14  Thomas Quinot  <quinot@act-europe.fr>
3309
3310         * gnat_ugn.texi: Document AIX-specific issue with initialization of
3311         resolver library.
3312
3313         * exp_ch4.adb (Insert_Dereference_Action): Do not generate dereference
3314         action for the case of an actual parameter in an init proc call.
3315
3316 2004-05-14  Ed Schonberg  <schonberg@gnat.com>
3317
3318         * sem_ch4.adb (Analyze_Selected_Component): If prefix is a protected
3319         subtype, check visible entities in base type.
3320
3321         * exp_ch7.adb (Clean_Simple_Protected_Objects): Do not generate cleanup
3322         actions if the object is a renaming.
3323
3324         * sem_ch12.adb (Same_Instantiated_Entity): Predicate for
3325         Check_Formal_Package_Instance, to determine more precisely when the
3326         formal and the actual denote the same entity.
3327
3328 2004-05-14  Javier Miranda  <miranda@gnat.com>
3329
3330         * par-ch10.adb (P_Context_Clause): Complete documentation on AI-262
3331
3332         * sem_ch10.adb (Analyze_With_Clause): After analyzed, the entity
3333         corresponding to a private_with must be removed from visibility; it
3334         will be made visible later, just before we analyze the private part of
3335         the package.
3336         (Check_Private_Child_Unit): Allow private_with clauses in public
3337         siblings.
3338         (Install_Siblings): Make visible the private entities of private-withed
3339         siblings.
3340         (Install_Withed_Unit): Do not install the private withed unit if we
3341         are compiling a package declaration and the Private_With_OK flag was
3342         not set by the caller. These declarations will be installed later,
3343         just before we analyze the private part of the package.
3344
3345         * sem_ch3.adb (Analyze_Object_Declaration): In case of errors detected
3346         during the evaluation of the expression that initializes the object,
3347         decorate it with the expected type to avoid cascade errors.
3348         Code cleanup.
3349
3350         * sem_ch6.adb (Analyze_Subprogram_Body): If we are compiling a library
3351         subprogram we have to install the private_with clauses after its
3352         specification has been analyzed (as documented in AI-262.TXT).
3353
3354         * sem_ch8.adb (Has_Private_With): New function. Determines if the
3355         current compilation unit has a private with on a given entity.
3356         (Find_Direct_Name): Detect the Beaujolais problem described in
3357         AI-262.TXT
3358
3359         * sem_utils.ads, sem_util.adb (Is_Ancestor_Package): New function. It
3360         provides the functionality of the function Is_Ancestor that was
3361         previously available in sem_ch10. It has been renamed to avoid
3362         overloading.
3363
3364         * sprint.adb (Sprint_Node_Actual): Print limited_with clauses
3365
3366 2004-05-14  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
3367
3368         * utils.c (build_vms_descriptor): Use SImode pointers.
3369
3370 2004-05-14  Vasiliy Fofanov  <fofanov@act-europe.fr>
3371
3372         * gnat_ugn.texi: Revised chapter "GNAT and Libraries".
3373
3374 2004-05-14  GNAT Script  <nobody@gnat.com>
3375
3376         * Make-lang.in: Makefile automatically updated
3377
3378 2004-05-14  Arnaud Charlet  <charlet@act-europe.fr>
3379
3380         Renaming of target specific files for clarity
3381
3382         * Makefile.in: Rename GNAT target specific files.
3383
3384         * 31soccon.ads, 31soliop.ads 35soccon.ads, 3asoccon.ads,
3385         3bsoccon.ads, 3gsoccon.ads, 3hsoccon.ads, 3psoccon.ads,
3386         3ssoccon.ads, 3ssoliop.ads, 3veacodu.adb, 3vexpect.adb,
3387         3vsoccon.ads, 3vsocthi.adb, 3vsocthi.ads, 3vtrasym.adb,
3388         3wsoccon.ads, 3wsocthi.adb, 3wsocthi.ads, 3wsoliop.ads,
3389         3zsoccon.ads, 3zsocthi.adb, 3zsocthi.ads, 41intnam.ads,
3390         42intnam.ads, 45intnam.ads, 4aintnam.ads, 4cintnam.ads,
3391         4gintnam.ads, 4hexcpol.adb, 4hintnam.ads, 4lintnam.ads,
3392         4nintnam.ads, 4ointnam.ads, 4onumaux.ads, 4pintnam.ads,
3393         4sintnam.ads, 4vcaldel.adb, 4vcalend.adb, 4vcalend.ads,
3394         4vintnam.ads, 4wcalend.adb, 4wexcpol.adb, 4wintnam.ads,
3395         4zintnam.ads, 4znumaux.ads, 4zsytaco.adb, 4zsytaco.ads,
3396         51osinte.adb, 51osinte.ads, 51system.ads,
3397         52osinte.adb, 52osinte.ads, 53osinte.ads, 54osinte.ads,
3398         55osinte.adb, 55osinte.ads, 55system.ads, 56osinte.adb,
3399         56osinte.ads, 56system.ads, 56taprop.adb, 56taspri.ads,
3400         56tpopsp.adb, 57system.ads, 58system.ads,
3401         5amastop.adb, 5aml-tgt.adb, 5aosinte.adb, 5aosinte.ads,
3402         5asystem.ads, 5ataprop.adb, 5atasinf.ads, 5ataspri.ads,
3403         5atpopsp.adb, 5avxwork.ads, 5bml-tgt.adb, 5bosinte.adb,
3404         5bosinte.ads, 5bsystem.ads, 5cosinte.ads, 5csystem.ads,
3405         5dsystem.ads, 5esystem.ads, 5fintman.adb, 5fosinte.adb,
3406         5fosinte.ads, 5fsystem.ads, 5ftaprop.adb, 5ftasinf.ads,
3407         5ginterr.adb, 5gintman.adb, 5gmastop.adb, 5gml-tgt.adb,
3408         5gosinte.ads, 5gproinf.adb, 5gproinf.ads, 5gsystem.ads,
3409         5gtaprop.adb, 5gtasinf.adb, 5gtasinf.ads, 5gtpgetc.adb,
3410         5hml-tgt.adb, 5hosinte.adb, 5hosinte.ads, 5hparame.ads,
3411         5hsystem.ads, 5htaprop.adb, 5htaspri.ads, 5htraceb.adb,
3412         5iosinte.adb, 5iosinte.ads, 5itaprop.adb, 5itaspri.ads,
3413         5ksystem.ads, 5kvxwork.ads, 5lml-tgt.adb, 5losinte.ads,
3414         5lparame.adb, 5lsystem.ads, 5msystem.ads, 5mvxwork.ads,
3415         5ninmaop.adb, 5nintman.adb, 5nosinte.ads, 5nsystem.ads,
3416         5ntaprop.adb, 5ntaspri.ads, 5ointerr.adb, 5omastop.adb,
3417         5oosinte.adb, 5oosinte.ads, 5oosprim.adb, 5oparame.adb,
3418         5osystem.ads, 5otaprop.adb, 5otaspri.ads, 5posinte.ads,
3419         5posprim.adb, 5psystem.ads, 5pvxwork.ads, 5sintman.adb,
3420         5sml-tgt.adb, 5sosinte.adb, 5sosinte.ads, 5sosprim.adb,
3421         5sparame.adb, 5ssystem.ads, 5staprop.adb, 5stasinf.adb,
3422         5stasinf.ads, 5staspri.ads, 5stpopsp.adb, 5svxwork.ads,
3423         5tosinte.ads, 5usystem.ads, 5vasthan.adb, 5vdirval.adb,
3424         5vinmaop.adb, 5vinterr.adb, 5vintman.adb, 5vintman.ads,
3425         5vmastop.adb, 5vml-tgt.adb, 5vosinte.adb, 5vosinte.ads,
3426         5vosprim.adb, 5vosprim.ads, 5vparame.ads, 5vsymbol.adb,
3427         5vsystem.ads, 5vtaprop.adb, 5vtaspri.ads, 5vtpopde.adb,
3428         5vtpopde.ads, 5vtraent.adb, 5vtraent.ads, 5vvaflop.adb,
3429         5wdirval.adb, 5wgloloc.adb, 5wintman.adb, 5wmemory.adb,
3430         5wml-tgt.adb, 5wosinte.ads, 5wosprim.adb, 5wsystem.ads,
3431         5wtaprop.adb, 5wtaspri.ads, 5xparame.ads, 5xsystem.ads,
3432         5xvxwork.ads, 5yparame.ads, 5ysystem.ads, 5zinterr.adb,
3433         5zintman.adb, 5zintman.ads, 5zml-tgt.adb, 5zosinte.adb,
3434         5zosinte.ads, 5zosprim.adb, 5zparame.ads, 5zstchop.adb,
3435         5zsystem.ads, 5ztaprop.adb, 5ztaspri.ads, 5ztfsetr.adb,
3436         5ztpopsp.adb, 6vcpp.adb, 6vcstrea.adb, 6vinterf.ads,
3437         7sinmaop.adb, 7sintman.adb, 7sosinte.adb, 7sosprim.adb,
3438         7staprop.adb, 7staspri.ads, 7stfsetr.adb, 7stpopsp.adb,
3439         7straceb.adb, 7straces.adb, 7strafor.adb, 7strafor.ads,
3440         7stratas.adb, 86numaux.adb, 86numaux.ads: Replaced by files below.
3441
3442         * a-caldel-vms.adb, a-calend-mingw.adb, a-calend-vms.adb,
3443         a-calend-vms.ads, a-dirval-mingw.adb, a-dirval-vms.adb,
3444         a-excpol-abort.adb, a-excpol-interix.adb, a-intnam-aix.ads,
3445         a-intnam-dummy.ads, a-intnam-freebsd.ads, a-intnam-hpux.ads,
3446         a-intnam-interix.ads, a-intnam-irix.ads, a-intnam-linux.ads,
3447         a-intnam-lynxos.ads, a-intnam-mingw.ads, a-intnam-os2.ads,
3448         a-intnam-solaris.ads, a-intnam-tru64.ads, a-intnam-unixware.ads,
3449         a-intnam-vms.ads, a-intnam-vxworks.ads, a-numaux-libc-x86.ads,
3450         a-numaux-vxworks.ads, a-numaux-x86.adb, a-numaux-x86.ads,
3451         a-sytaco-vxworks.adb, a-sytaco-vxworks.ads, g-eacodu-vms.adb,
3452         g-expect-vms.adb, g-soccon-aix.ads, g-soccon-freebsd.ads,
3453         g-soccon-hpux.ads, g-soccon-interix.ads, g-soccon-irix.ads,
3454         g-soccon-mingw.ads, g-soccon-solaris.ads, g-soccon-tru64.ads,
3455         g-soccon-unixware.ads, g-soccon-vms.adb, g-soccon-vxworks.ads,
3456         g-socthi-mingw.adb, g-socthi-mingw.ads, g-socthi-vms.adb,
3457         g-socthi-vms.ads, g-socthi-vxworks.adb, g-socthi-vxworks.ads,
3458         g-soliop-mingw.ads, g-soliop-solaris.ads, g-soliop-unixware.ads,
3459         g-trasym-vms.adb, i-cpp-vms.adb, i-cstrea-vms.adb,
3460         interfac-vms.ads, mlib-tgt-aix.adb, mlib-tgt-hpux.adb,
3461         mlib-tgt-irix.adb, mlib-tgt-linux.adb, mlib-tgt-mingw.adb,
3462         mlib-tgt-solaris.adb, mlib-tgt-tru64.adb, mlib-tgt-vms.adb,
3463         mlib-tgt-vxworks.adb, s-asthan-vms.adb, s-gloloc-mingw.adb,
3464         s-inmaop-dummy.adb, s-inmaop-posix.adb, s-inmaop-vms.adb,
3465         s-interr-dummy.adb, s-interr-sigaction.adb, s-interr-vms.adb,
3466         s-interr-vxworks.adb, s-intman-dummy.adb, s-intman-irix.adb,
3467         s-intman-irix-athread.adb, s-intman-mingw.adb, s-intman-posix.adb,
3468         s-intman-solaris.adb, s-intman-vms.adb, s-intman-vms.ads,
3469         s-intman-vxworks.adb, s-intman-vxworks.ads, s-mastop-irix.adb,
3470         s-mastop-tru64.adb, s-mastop-vms.adb, s-mastop-x86.adb,
3471         s-memory-mingw.adb, s-osinte-aix.adb, s-osinte-aix.ads,
3472         s-osinte-aix-fsu.ads, s-osinte-dummy.ads, s-osinte-freebsd.adb,
3473         s-osinte-freebsd.ads, s-osinte-fsu.adb, s-osinte-hpux.ads,
3474         s-osinte-hpux-dce.adb, s-osinte-hpux-dce.ads, s-osinte-interix.ads,
3475         s-osinte-irix.adb, s-osinte-irix.ads, s-osinte-irix-athread.ads,
3476         s-osinte-linux.ads, s-osinte-linux-fsu.ads, s-osinte-linux-ia64.ads,
3477         s-osinte-lynxos-3.adb, s-osinte-lynxos-3.ads, s-osinte-lynxos.adb,
3478         s-osinte-lynxos.ads, s-osinte-mingw.ads, s-osinte-os2.adb,
3479         s-osinte-os2.ads, s-osinte-posix.adb, s-osinte-solaris.adb,
3480         s-osinte-solaris.ads, s-osinte-solaris-fsu.ads,
3481         s-osinte-solaris-posix.ads, s-osinte-tru64.adb, s-osinte-tru64.ads,
3482         s-osinte-unixware.adb, s-osinte-unixware.ads, s-osinte-vms.adb,
3483         s-osinte-vms.ads, s-osinte-vxworks.adb,
3484         s-osinte-vxworks.ads, s-osprim-mingw.adb,
3485         s-osprim-os2.adb, s-osprim-posix.adb, s-osprim-solaris.adb,
3486         s-osprim-unix.adb, s-osprim-vms.adb, s-osprim-vms.ads,
3487         s-osprim-vxworks.adb, s-parame-ae653.ads, s-parame-hpux.ads,
3488         s-parame-linux.adb, s-parame-os2.adb, s-parame-solaris.adb,
3489         s-parame-vms.ads, s-parame-vms-restrict.ads, s-parame-vxworks.ads,
3490         s-proinf-irix-athread.adb, s-proinf-irix-athread.ads,
3491         s-stchop-vxworks.adb, s-taprop-dummy.adb,
3492         s-taprop-hpux-dce.adb, s-taprop-irix.adb,
3493         s-taprop-irix-athread.adb, s-taprop-linux.adb, s-taprop-lynxos.adb,
3494         s-taprop-mingw.adb, s-taprop-os2.adb, s-taprop-posix.adb,
3495         s-taprop-solaris.adb, s-taprop-tru64.adb, s-taprop-vms.adb,
3496         s-taprop-vxworks.adb, s-tasinf-irix.ads, s-tasinf-irix-athread.adb,
3497         s-tasinf-irix-athread.ads, s-tasinf-solaris.adb, s-tasinf-solaris.ads,
3498         s-tasinf-tru64.ads, s-taspri-dummy.ads, s-taspri-hpux-dce.ads,
3499         s-taspri-linux.ads, s-taspri-lynxos.ads, s-taspri-mingw.ads,
3500         s-taspri-os2.ads, s-taspri-posix.ads, s-taspri-solaris.ads,
3501         s-taspri-tru64.ads, s-taspri-vms.ads, s-taspri-vxworks.ads,
3502         s-tfsetr-default.adb, s-tfsetr-vxworks.adb, s-tpopde-vms.adb,
3503         s-tpopde-vms.ads, s-tpopsp-lynxos.adb, s-tpopsp-posix.adb,
3504         s-tpopsp-posix-foreign.adb, s-tpopsp-solaris.adb, s-tpopsp-vxworks.adb,
3505         s-traceb-hpux.adb, s-traceb-mastop.adb, s-traces-default.adb,
3506         s-traent-vms.adb, s-traent-vms.ads, s-trafor-default.adb,
3507         s-trafor-default.ads, s-tratas-default.adb, s-vaflop-vms.adb,
3508         s-vxwork-alpha.ads, s-vxwork-m68k.ads, s-vxwork-mips.ads,
3509         s-vxwork-ppc.ads, s-vxwork-sparcv9.ads, s-vxwork-xscale.ads,
3510         symbols-vms.adb, system-aix.ads, system-freebsd-x86.ads,
3511         system-hpux.ads, system-interix.ads, system-irix-n32.ads,
3512         system-irix-o32.ads, system-linux-x86_64.ads,
3513         system-linux-x86.ads, system-lynxos-ppc.ads, system-lynxos-x86.ads,
3514         system-mingw.ads, system-os2.ads, system-solaris-sparc.ads,
3515         system-solaris-sparcv9.ads, system-solaris-x86.ads, system-tru64.ads,
3516         system-unixware.ads, system-vms.ads, system-vms-zcx.ads,
3517         system-vxworks-alpha.ads, system-vxworks-m68k.ads,
3518         system-vxworks-mips.ads, system-vxworks-ppc.ads,
3519         system-vxworks-sparcv9.ads, system-vxworks-xscale.ads: Replace files
3520         above.
3521
3522 2004-05-13  Zack Weinberg  <zack@codesourcery.com>
3523
3524         * trans.c (gnat_stabilize_reference_1): Remove case 'b'.
3525
3526 2004-05-13  Diego Novillo  <dnovillo@redhat.com>
3527
3528         Merge from tree-ssa-20020619-branch.
3529
3530         * config-lang.in (boot_language, build_by_default): Set
3531         to no.
3532         * utils.c (unchecked_convert): Use OEP_ONLY_CONST.
3533         (max_size): Add static chain op for call_expr.
3534
3535 2004-05-12  Richard Sandiford  <rsandifo@redhat.com>
3536
3537         PR target/15331
3538         * 5gmastop.adb (Roff): Choose between '4' and '0', not '4' and ' '.
3539
3540 2004-05-11  Roger Sayle  <roger@eyesopen.com>
3541
3542         * utils.c (max_size): Use MIN_EXPR to find the minimum value of a
3543         COND_EXPR.
3544
3545 2004-05-10  Doug Rupp  <rupp@gnat.com>
3546
3547         * 5qsystem.ads: Remove Short_Address subtype declaration. Moved to
3548         system.aux_dec.
3549
3550         * s-auxdec.ads: Add Short_Address subtype (moved here from System).
3551
3552         * Makefile.in: [VMS]: Add translation for 5qauxdec.ads.
3553
3554         * init.c: [VMS] Macroize LIB$ calls for IA64 and Alpha.
3555         Fixes undefined symbols in IA64 gnatlib.
3556
3557         * 5vinmaop.adb: Reference s-auxdec for Short_Address.
3558
3559         * 5xsystem.ads, 5vsystem.ads: Back out last change (addition of subtype
3560         Short_Address). This will be moved to system.auxdec.
3561
3562 2004-05-10  Thomas Quinot  <quinot@act-europe.fr>
3563
3564         * sem_util.adb: Replace test for presence of a node that is always
3565         present with a call to Discard_Node.
3566
3567         * sem_ch10.adb (Analyze_Compilation_Unit): Remove superfluous call to
3568         Analyze on the library unit node after generation of distribution stub
3569         constructs.  The call was a no-op because Unit_Node has already been
3570         Analyzed, and the tree fragments for the distribution stubs are
3571         analyzed as they are inserted in Exp_Dist.
3572         Update comment regarding to distribution stubs to reflect that we
3573         do not generate stub in separate files anymore.
3574
3575         * einfo.ads: Clarify the fact that a tagged private type has the
3576         E_Record_Type_With_Private Ekind.
3577
3578         * erroutc.adb: Minor reformatting
3579
3580         * erroutc.ads (Max_Msg_Length): Increase to cover possible larger
3581         values if line length is increased using -gnatyM (noticed during code
3582         reading).
3583
3584         * eval_fat.adb: Minor reformatting
3585         Put spaces around exponentiation operator
3586
3587 2004-05-10  Ed Schonberg  <schonberg@gnat.com>
3588
3589         PR ada/15005
3590         * sem_util.adb (Is_Dependent_Component_Of_Mutable_Object): If prefix
3591         has been rewritten as an explicit dereference, retrieve type of
3592         original node to check for possibly unconstrained record type.
3593
3594 2004-05-10  Ed Schonberg  <schonberg@gnat.com>
3595
3596         * exp_ch7.adb (Check_Visibly_Controlled): If given operation is not
3597         overriding, use the operation of the parent unconditionally.
3598
3599         * sem_ch4.adb (Remove_Address_Interpretations): Remove address
3600         operation when either operand is a literal, to avoid further
3601         ambiguities.
3602
3603         * sem_ch6.adb (New_Overloaded_Entity): If new entity is inherited and
3604         overridden by a previous explicit declaration, mark the previous entity
3605         as overriding.
3606
3607         * sem_disp.adb (Check_Dispatching_Operation): New predicate
3608         Is_Visibly_Controlled, to determine whether a declaration of a
3609         primitive control operation for a derived type overrides an inherited
3610         one. Add warning if the explicit declaration does not override.
3611
3612 2004-05-10  Vincent Celier  <celier@gnat.com>
3613
3614         * gnatls.adb (Gnatls): Initialize Snames, to avoid assertion error in
3615         some cases when the sources are no longer present.
3616
3617         * make.adb (Collect_Arguments): Fail if an external source, not part
3618         of any project need to be compiled, when switch -x has not been
3619         specified.
3620
3621         * makeusg.adb: Document new switch -x
3622
3623         * opt.ads (External_Unit_Compilation_Allowed): New Boolean flag,
3624         defaulted to False.
3625
3626         * switch-m.adb (Scan_Make_Switches): New switch -x
3627
3628         * vms_data.ads: Add VMS qualifier /NON_PROJECT_UNIT_COMPILATION for
3629         gnatmake switch -x.
3630
3631         * gnat_ugn.texi: Document new gnatmake switch -x
3632
3633 2004-05-10  Eric Botcazou  <ebotcazou@act-europe.fr>
3634
3635         * misc.c (gnat_init_options): Set flag_zero_initialized_in_bss to 0.
3636
3637         * utils.c (create_var_decl): Do not modify the DECL_COMMON flag.
3638         (process_attributes): Likewise.
3639
3640 2004-05-10  Joel Brobecker  <brobecker@gnat.com>
3641
3642         * s-inmaop.ads: Fix spelling mistake in one of the comments.
3643
3644 2004-05-10  Robert Dewar  <dewar@gnat.com>
3645
3646         * gnat_ugn.texi: Document that for config pragma files, the maximum
3647         line length is always 32767.
3648
3649         * gnat_rm.texi: For pragma Eliminate, note that concatenation of string
3650         literals is now allowed.
3651
3652         * gnat-style.texi: Remove statement about splitting long lines before
3653         an operator rather than after, since we do not follow this rule at all.
3654         Clarify rule (really lack of rule) for spaces around exponentiation
3655
3656         * sem_elim.adb: Allow concatenation of string literals as well as a
3657         single string literal for pragma arguments.
3658
3659         * sem_prag.ads, sem_prag.adb: (Is_Config_Static_String): New function
3660
3661         * a-textio.adb (Terminate_Line): Do not add line feed if nothing
3662         written for append case.
3663
3664         * frontend.adb: Changes to avoid checking max line length in config
3665         pragma files.
3666
3667         * g-os_lib.ads: Minor reformatting
3668
3669         * mlib-utl.adb: Do not define Max_Line_Length locally (definition was
3670         wrong in any case. Instead use standard value. Noticed during code
3671         reading.
3672
3673         * opt.ads (Max_Line_Length): New field, used to implement removal of
3674         limitation on length of lines when scanning config pragma files.
3675
3676         * osint.ads, prj-dect.adb, prj-strt.adb, prj-tree.adb,
3677         makeutl.ads, makeutl.adb: Minor reformatting
3678
3679         * scn.adb: Do not check line length while scanning config pragma files
3680         Do not check line length while scanning out license information
3681
3682         * scng.adb: Changes to avoid line length checks while parsing config
3683         pragma files.
3684
3685 2004-05-10  GNAT Script  <nobody@gnat.com>
3686
3687         * Make-lang.in: Makefile automatically updated
3688
3689 2004-05-05  Arnaud Charlet  <charlet@act-europe.fr>
3690
3691         * osint.adb (Find_Program_Name): Fix handling of VMS version
3692         number.
3693
3694 2004-05-05  Emmanuel Briot  <briot@act-europe.fr>
3695
3696         * g-os_lib.ads (Invalid_Time): New constant
3697
3698         * adaint.h, adaint.c (__gnat_file_time_name, __gnat_file_time_fd): Now
3699         return OS_Time instead of time_t to match what is imported by Ada.
3700         Now return -1 if the file doesn't exist, instead of a random value
3701
3702 2004-05-05  Robert Dewar  <dewar@gnat.com>
3703
3704         * usage.adb: Add line for -gnatR?s switch
3705
3706         * sem_ch13.adb, exp_ch2.adb: Minor reformatting
3707
3708         * g-regpat.ads, g-regpat.adb: Add documentation on handling of Size
3709         and for Match (Data_First, Data_last)
3710
3711         * lib-writ.adb (Write_With_Lines): Ensure that correct index number is
3712         written when we are dealing with multi-unit files.
3713
3714 2004-05-05  Jerome Guitton  <guitton@act-europe.fr>
3715
3716         * Makefile.in: Remove unused targets and variables.
3717
3718 2004-05-05  Vincent Celier  <celier@gnat.com>
3719
3720         * switch-m.adb: New gnatmake switch -eI
3721
3722         * vms_data.ads: Add VMS equivalents of new gnatclean swith -innn and
3723         of new gnatmake switch -eInnn.
3724
3725         * makegpr.adb: Take into account new parameters Index and Src_Index in
3726         Prj.Util.
3727
3728         * clean.adb: Implement support for multi-unit sources, including new
3729         switch -i.
3730
3731         * gnatcmd.adb (GNATCmd): Call Prj.Util.Value_Of with new parameter
3732         Src_Index.
3733
3734         * make.ads, make.adb (Insert_Q): New parameter Index, defaulted to 0
3735         (Extract_From_Q): New out parameter Index
3736         (Mark, Is_Marked): Subprograms moved to Makeutl
3737         (Switches_Of): New parameter Source_Index
3738         (Add_Switch): New parameter Index
3739         (Check): New parameter Source_Index
3740         (Collect_Arguments): New parameter Source_Index
3741         (Collect_Arguments_And_Compile): New parameter Source_Index
3742         (Compile): New parameter Source_Index
3743         Put subprograms in alphabetical order
3744         Add support for multi-source sources, including in project files.
3745
3746         * makeutl.ads, makeutl.adb (Unit_Index_Of): New function
3747         (Mark, Is_Marked, Delete_All_Marks): New subprograms, moved from
3748         Make.
3749
3750         * makeusg.adb: New gnatmake switch -eInnn
3751
3752         * mlib-prj.adb (Build_Library): Add new parameter Src_Index to call to
3753         Prj.Util.Value_Of.
3754
3755         * opt.ads (Main_Index): New variable, defaulted to 0.
3756
3757         * osint.ads, osinte.adb (Add_File): New parameter Index
3758         (Current_Source_Index): New function
3759
3760         * prj.adb: Take into account new components Index and Src_Index
3761
3762         * prj.ads (String_Element): New component Index
3763         (Variable_Value): New component Index
3764         (Array_Element): New component Src_Index
3765
3766         * prj-attr.adb: Indicate that optional index may be specified for
3767         attributes Main, Executable, Spec, Body and some of Switches.
3768
3769         * prj-attr.ads (Attribute_Kind): New values for optional indexes
3770         (Attribute_Record): New component Optional_Index
3771
3772         * prj-com.ads (File_Name_Data): New component Index
3773
3774         * prj-dect.adb (Parse_Attribute_Declaration): Process optional index
3775
3776         * prj-env.adb (Put): Output optional index
3777
3778         * prj-makr.adb: Put indexes for multi-unit sources in SFN pragmas and
3779         attributes Spec and Body.
3780
3781         * prj-nmsc.adb: Process optional indexes
3782
3783         * prj-pp.adb: Ouput "at" for optional indexes
3784
3785         * prj-proc.adb: Take into account optional indexes
3786
3787         * prj-strt.ads, prj-strt.adb (Terms): New Boolean parameter
3788         Optional_Index. For string literal,
3789         process optional index when Optional_Index is True.
3790         (Parse_Expresion): New Boolean parameter Optional_Index
3791
3792         * prj-tree.ads, prj-tree.adb (Source_Index_Of): New function
3793         (Set_Source_Index_Of): New procedure
3794
3795         * prj-util.adb (Executable_Of, Value_Of): Take into account optional
3796         index.
3797
3798         * prj-util.ads (Executable_Of): New parameter Index
3799         (Value_Of (Name_Id, Array_Element_Id) returning Variable_Value):
3800         New parameter Src_Index, defaulted to 0.
3801
3802 2004-05-05  Ed Schonberg  <schonberg@gnat.com>
3803
3804         PR ada/15257
3805         * sem_ch3.adb (Access_Definition): If this is an access parameter
3806         whose designated type is imported through a limited_with clause, do
3807         not add the enclosing subprogram to the list of private dependents of
3808         the type.
3809
3810 2004-05-05  Ed Schonberg  <schonberg@gnat.com>
3811
3812         PR ada/15258
3813         * sem_ch6.adb (Base_Types_Match): True if one type is imported through
3814         a limited_with clause, and the other is its non-limited view.
3815
3816 2004-05-05  Thomas Quinot  <quinot@act-europe.fr>
3817
3818         * cstand.adb (Create_Standard): Initialize Stand.Boolean_Literals.
3819
3820         * exp_attr.adb, exp_ch5.adb, exp_ch9.adb, exp_disp.adb,
3821         exp_fixd.adb, sem_attr.adb, sem_dist.adb, sem_util.adb: Use
3822         Stand.Boolean_Literals to produce references to entities
3823         Standard_False and Standard_True from compile-time computed boolean
3824         values.
3825
3826         * stand.ads (Boolean_Literals): New variable, provides the entity
3827         values for False and True, for use by the expander.
3828
3829 2004-05-05  Doug Rupp  <rupp@gnat.com>
3830
3831         * 5vinmaop.adb, 5[vx]system.ads: Add Short_Address subtype
3832         5vinmaop.adb: Unchecked convert Short_Address vice Address
3833
3834         * adaint.c, raise.c: Caste CRTL function return value
3835         to avoid gcc error on 32/64 bit IVMS.
3836
3837         * Makefile.in [VMS]: Use iar archiver if host = Alpha/VMS and
3838         target = IA64/VMS.
3839
3840         * init.c[VMS]: Only call Alpha specific __gnat_error_prehandler IN_RTS.
3841
3842         * 5qsystem.ads (Address): Declare as Long_Integer
3843         (Short_Address): Declare as 32 bit subtype of Address
3844         Declare  abstract address operations to avoid gratuitous ambiguities.
3845
3846 2004-05-05  Jose Ruiz  <ruiz@act-europe.fr>
3847
3848         * gnat_rm.texi: Use the new restriction Simple_Barriers (AI-249)
3849         instead of the old Boolean_Entry_Barriers.
3850         Ditto for No_Task_Attributes_Package instead of No_Task_Attributes.
3851
3852 2004-05-05  GNAT Script  <nobody@gnat.com>
3853
3854         * Make-lang.in: Makefile automatically updated
3855
3856 2004-05-03  Arnaud Charlet  <charlet@act-europe.fr>
3857
3858         * 50system.ads, 59system.ads, s-thread.ads: Removed, no longer used.
3859
3860 2004-05-03  Olivier Hainque  <hainque@act-europe.fr>
3861
3862         PR ada/15152
3863
3864         * exp_ch2.adb (Expand_Current_Value): Leave Machine_Code Asm arguments
3865         alone. Replacing object references by literals is inappropriate in a
3866         so low level context.
3867
3868 2004-05-03  Arnaud Charlet  <charlet@act-europe.fr>
3869
3870         * a-exexpr.adb: Add comments
3871
3872 2004-05-03  Joel Brobecker  <brobecker@gnat.com>
3873
3874         * a-tags.adb (Tag_Table): Add Index_Check pragma Suppress. Allows us to
3875         declare the Ancestor_Tags array in Type_Specific_Data with a small size
3876         without risking a bounds check error when accessing one of its
3877         components.
3878         (Type_Specific_Data): Define Ancestor_Tags as a small array.
3879         This prevents us from hitting a limitation during the debug info
3880         generation when using stabs.
3881
3882         * a-tags.adb (Dispatch_Table): Define the Prims_Ptr component as a
3883         small array.