diff options
Diffstat (limited to 'gcc/ada/exp_ch3.ads')
| -rw-r--r-- | gcc/ada/exp_ch3.ads | 16 |
1 files changed, 3 insertions, 13 deletions
diff --git a/gcc/ada/exp_ch3.ads b/gcc/ada/exp_ch3.ads index 24e2263..f7d43c4 100644 --- a/gcc/ada/exp_ch3.ads +++ b/gcc/ada/exp_ch3.ads @@ -25,10 +25,9 @@ -- Expand routines for chapter 3 constructs -with Types; use Types; -with Elists; use Elists; -with Exp_Tss; use Exp_Tss; -with Uintp; use Uintp; +with Types; use Types; +with Elists; use Elists; +with Uintp; use Uintp; package Exp_Ch3 is @@ -208,13 +207,4 @@ package Exp_Ch3 is -- Make_Predefined_Primitive_Eq_Spec; see there for description of -- the Renamed_Eq parameter. - function Stream_Operation_OK - (Typ : Entity_Id; - Operation : TSS_Name_Type) return Boolean; - -- Check whether the named stream operation must be emitted for a given - -- type. The rules for inheritance of stream attributes by type extensions - -- are enforced by this function. Furthermore, various restrictions prevent - -- the generation of these operations, as a useful optimization or for - -- certification purposes and to save unnecessary generated code. - end Exp_Ch3; |