diff options
Diffstat (limited to 'gcc/ada/exp_disp.ads')
| -rw-r--r-- | gcc/ada/exp_disp.ads | 24 |
1 files changed, 11 insertions, 13 deletions
diff --git a/gcc/ada/exp_disp.ads b/gcc/ada/exp_disp.ads index e02cca76995..fa16aaf0ffb 100644 --- a/gcc/ada/exp_disp.ads +++ b/gcc/ada/exp_disp.ads @@ -39,26 +39,24 @@ package Exp_Disp is -- N_Null_Statement nodes that have extra attributes. The information -- available through these extra attributes relies on the kind of SCIL -- node. The SCIL node kind is stored in the Scil_Nkind attribute of - -- the N_Null_Statement node. The kind of SCIL nodes generated by the - -- frontend are the following: - - -- IP_Tag_Init: Scil node of tag component initialization. - - -- Dispatching_Call: Scil node of dispatching call. Used by the - -- CodePeer backend to locate nodes associated with dispatching - -- calls. - - -- Dispatching_Table_Object_Init: Scil node of object declaration - -- containing a dispatch table. - - -- Dispatching_Table_Tag_Init: Scil node of tag initialization. + -- the N_Null_Statement node, and indicates the type of the SCIL node. type Scil_Node_Kind is (Unused, + -- What is this for ??? + IP_Tag_Init, + -- SCIL node for tag component initialization + Dispatching_Call, + -- SCIL node for dispatching call. Used by the CodePeer backend to + -- locate nodes associated with dispatching calls. + Dispatch_Table_Object_Init, + -- SCIL node for object declaration containing a dispatch table + Dispatch_Table_Tag_Init); + -- SCIL node for tag initialization ------------------------------------- -- Predefined primitive operations -- |