mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-31 21:41:33 +08:00
Code Issues Packages Projects Releases Wiki Activity

trans.c (establish_gnat_vms_condition_handler): Clear DECL_CONTEXT.

Browse Source 
* gcc-interface/trans.c (establish_gnat_vms_condition_handler): Clear
	DECL_CONTEXT.
	(Subprogram_Body_to_gnu): Fix pasto.

From-SVN: r145661
This commit is contained in:
Eric Botcazou 2009-04-07 09:57:06 +00:00 committed by Eric Botcazou
parent 10069d53fb
commit 2d5be6c15d
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@ -1,3 +1,9 @@
2009-04-07 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/trans.c (establish_gnat_vms_condition_handler): Clear
DECL_CONTEXT.
(Subprogram_Body_to_gnu): Fix pasto.
2009-04-07 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/gigi.h (standard_datatypes): Remove ADT_void_type_decl.

6
gcc/ada/gcc-interface/trans.c
View File

@ -2123,6 +2123,9 @@ establish_gnat_vms_condition_handler (void)
ptr_void_type_node,
NULL_TREE),
NULL_TREE, 0, 1, 1, 0, Empty);
/* ??? DECL_CONTEXT shouldn't have been set because of DECL_EXTERNAL. */
DECL_CONTEXT (gnat_vms_condition_handler_decl) = NULL_TREE;
}
/* Do nothing if the establish builtin is not available, which might happen
@ -2242,7 +2245,8 @@ Subprogram_Body_to_gnu (Node_Id gnat_node)
this happens. The foreign or exported condition is expected to satisfy
all the constraints. */
if (TARGET_ABI_OPEN_VMS
&& (Has_Foreign_Convention (gnat_node) || Is_Exported (gnat_node)))
&& (Has_Foreign_Convention (gnat_subprog_id)
|| Is_Exported (gnat_subprog_id)))
establish_gnat_vms_condition_handler ();
process_decls (Declarations (gnat_node), Empty, Empty, true, true);