From a7cadd18606c9c3ce2776b6f876ca98849b24b84 Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Thu, 25 Feb 2021 10:38:55 -0500 Subject: [Ada] Variable-sized node types -- cleanup gcc/ada/ * atree.ads, einfo-utils.ads, einfo-utils.adb, fe.h, gen_il.adb, gen_il.ads, gen_il-gen-gen_entities.adb, gen_il-gen-gen_nodes.adb, sem_ch12.adb, sem_ch3.adb, sem_util.adb, sinfo-utils.ads, treepr.adb, types.ads: Clean up ??? comments and other comments. * atree.adb: Clean up ??? comments and other comments. (Validate_Node): Fix bug: "Off_0 (N) < Off_L (N)" should be "Off_0 (N) <= Off_L (N)". * gen_il-gen.adb, gen_il-gen.ads: Clean up ??? comments and other comments. Add support for getter-specific and setter-specific preconditions. Detect the error of putting a field in the wrong subrange. Misc cleanup. (Node_Field vs. Entity_Field): Clean up Nmake. Improve comments. * gen_il-utils.ads: Misc cleanup. Move... * gen_il-internals.ads: ... here. * gen_il-utils.adb: Misc cleanup. Move... * gen_il-internals.adb: ... here. * gen_il-fields.ads: Move Was_Default_Init_Box_Association, which was in the wrong subrange. Add comments. Misc cleanup. * gen_il-types.ads: Add Named_Access_Kind. * sinfo-cn.adb: Clean up ??? comments and other comments. Remove redundant assertions. * einfo.ads, sinfo.ads: Clean up ??? comments and other comments. Remove all the comments indicating field offsets. These are obsolete now that Gen_IL computes the offsets automatically. --- gcc/ada/fe.h | 4 ---- 1 file changed, 4 deletions(-) (limited to 'gcc/ada/fe.h') diff --git a/gcc/ada/fe.h b/gcc/ada/fe.h index 46531bf..6317737 100644 --- a/gcc/ada/fe.h +++ b/gcc/ada/fe.h @@ -658,10 +658,6 @@ B Unknown_Normalized_Position_Max (Entity_Id E); #define Unknown_RM_Size einfo__utils__unknown_rm_size B Unknown_RM_Size (Entity_Id E); -// The following were automatically generated as INLINE functions in the old -// einfo.h by the spitbol program. -// Is it important that they be inlined???? - #define Is_Discrete_Or_Fixed_Point_Type einfo__utils__is_discrete_or_fixed_point_type B Is_Discrete_Or_Fixed_Point_Type (E Id); -- cgit v1.1