This is the mail archive of the mailing list for the GCC project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Ada] Fix a couple of glitches for VMS

Not exercised anywhere else.

Tested on i586-suse-linux, applied on the mainline.

2009-04-07  Eric Botcazou  <>

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

Eric Botcazou
Index: gcc-interface/trans.c
--- gcc-interface/trans.c	(revision 145660)
+++ gcc-interface/trans.c	(working copy)
@@ -2123,6 +2123,9 @@ establish_gnat_vms_condition_handler (vo
 			       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_nod
      this happens.  The foreign or exported condition is expected to satisfy
      all the constraints.  */
-      && (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);

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]