mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-26 02:30:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

par-ch3.adb (P_Type_Declaration): Properly handle missing type keyword

Browse Source 
2008-08-01  Robert Dewar  <dewar@adacore.com>

	* par-ch3.adb (P_Type_Declaration): Properly handle missing type
	keyword

From-SVN: r138503
This commit is contained in:
Arnaud Charlet 2008-08-01 11:31:42 +02:00
parent 2fc66c69c7
commit 0c2466035d
2 changed files with 36 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
gcc/ada/ChangeLog
View File

@ -1,3 +1,37 @@
2008-08-01 Gary Dismukes <dismukes@adacore.com>
* exp_ch6.adb (Expand_Call): Adjustment to previous fix for passing
correct accessibility levels. In the "when others" case, retrieve the
access level of the Etype of Prev rather than Prev_Orig, because the
original exression has not always been analyzed.
2008-08-01 Robert Dewar <dewar@adacore.com>
* prj-nmsc.adb: Minor reformatting
* sem_ch4.adb: Minor reformatting
Minor code reorganization
* prj.ads: Minor reformatting
* s-os_lib.adb: Minor reformatting
* par-prag.adb (Prag, case Wide_Character_Encoding): Deal with upper
half encodings
* scans.ads: Minor reformatting.
* sem_prag.adb (Analyze_Pragma): Put entries in alpha order
(Analyze_Pragma): Make sure all GNAT pragmas call GNAT_Pragma
* sem_res.adb:
(Resolve_Call): Check violation of No_Specific_Termination_Handlers
* sem_ch12.adb: Minor comment reformatting
* par-ch3.adb (P_Type_Declaration): Properly handle missing type
keyword
2008-08-01 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/utils.c (convert_vms_descriptor): Add gnu_expr_alt_type

11
gcc/ada/par-ch3.adb
View File

@ -295,15 +295,8 @@ package body Ch3 is
else
T_Type;
if Token = Tok_Identifier
and then Nkind (Token_Node) = N_Defining_Identifier
then
Ident_Node := Token_Node;
Scan; -- past defining identifier
else
Ident_Node := P_Defining_Identifier (C_Is);
end if;
Type_Token_Location := Type_Loc;
Ident_Node := P_Defining_Identifier (C_Is);
end if;
Discr_Sloc := Token_Ptr;