diff options
Diffstat (limited to 'gcc/ada/scos.h')
| -rw-r--r-- | gcc/ada/scos.h | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/gcc/ada/scos.h b/gcc/ada/scos.h index 6c1f545..4fb396c 100644 --- a/gcc/ada/scos.h +++ b/gcc/ada/scos.h @@ -45,8 +45,10 @@ struct SCO_Unit_Table_Entry typedef struct SCO_Unit_Table_Entry *SCO_Unit_Table_Type; -extern SCO_Unit_Table_Type scos__sco_unit_table__table; -#define SCO_Unit_Table scos__sco_unit_table__table +/* The following depends on the fact that The_Instance.Table + is the first component. */ +extern SCO_Unit_Table_Type scos__sco_unit_table__the_instance; +#define SCO_Unit_Table scos__sco_unit_table__the_instance extern Int scos__sco_unit_table__first(void); #define SCO_Unit_Table_First scos__sco_unit_table__first @@ -74,8 +76,10 @@ struct SCO_Table_Entry typedef struct SCO_Table_Entry *SCO_Table_Type; -extern SCO_Table_Type scos__sco_table__table; -#define SCO_Table scos__sco_table__table +/* The following depends on the fact that The_Instance.Table + is the first component. */ +extern SCO_Table_Type scos__sco_table__the_instance; +#define SCO_Table scos__sco_table__the_instance extern Int scos__sco_table__first(void); #define SCO_Table_First scos__sco_table__first |