From 4cd52f5eab66c5cb3fb60f535f2cff73864a6d5f Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Fri, 6 Apr 2007 11:17:57 +0200 Subject: atree.h, [...] (Copy_Node_With_Replacement): When copying a parameter list in a call... 2007-04-06 Ed Schonberg Bob Duff * atree.h, atree.ads, atree.adb (Copy_Node_With_Replacement): When copying a parameter list in a call, set properly the First_Named_Formal and Next_Named_Formal fields in the new list and in the enclosing call. (Watch_Node,New_Node_Breakpoint,New_Node_Debugging_Output): Shorten names, to ease typing in the debugger. Improve comments. (Watch_Node): New variable, intended to be set in the debugger. (New_Node_Breakpoint): New do-nothing procedure to set a breakpoint on, called when the watched node is created. (New_Node_Debugging_Output): Combined version of local procedures New_Node_Debugging_Output and New_Entity_Debugging_Output, now global, with a parameter so that conditional breakpoints like "if Node = 12345" work. (New_Node, New_Entity): Call the global New_Node_Debugging_Output. Add Elist1 function From-SVN: r123553 --- gcc/ada/atree.ads | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gcc/ada/atree.ads') diff --git a/gcc/ada/atree.ads b/gcc/ada/atree.ads index 80d531d..3d1192b 100644 --- a/gcc/ada/atree.ads +++ b/gcc/ada/atree.ads @@ -968,6 +968,9 @@ package Atree is function List14 (N : Node_Id) return List_Id; pragma Inline (List14); + function Elist1 (N : Node_Id) return Elist_Id; + pragma Inline (Elist1); + function Elist2 (N : Node_Id) return Elist_Id; pragma Inline (Elist2); @@ -1899,6 +1902,9 @@ package Atree is procedure Set_List14 (N : Node_Id; Val : List_Id); pragma Inline (Set_List14); + procedure Set_Elist1 (N : Node_Id; Val : Elist_Id); + pragma Inline (Set_Elist1); + procedure Set_Elist2 (N : Node_Id; Val : Elist_Id); pragma Inline (Set_Elist2); -- cgit v1.1