diff options
author | Bob Duff <duff@adacore.com> | 2020-01-31 08:28:45 -0500 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-05 08:17:39 -0400 |
commit | e0fd1b9c9d906f9693bb4e7d56a37ec5adf4bc0a (patch) | |
tree | d942f40348b3f37595b185d4dd2dbee0cbf3215a /gcc/ada/exp_tss.ads | |
parent | c3c80e3c3adde1f96d9f5070eccf1184a97ce2cd (diff) | |
download | gcc-e0fd1b9c9d906f9693bb4e7d56a37ec5adf4bc0a.zip gcc-e0fd1b9c9d906f9693bb4e7d56a37ec5adf4bc0a.tar.gz gcc-e0fd1b9c9d906f9693bb4e7d56a37ec5adf4bc0a.tar.bz2 |
[Ada] Put_Image attribute
2020-06-05 Bob Duff <duff@adacore.com>
gcc/ada/
* exp_attr.adb, exp_ch11.adb, exp_imgv.adb, exp_tss.ads,
par-ch4.adb, sem_attr.adb, sem_util.ads: Misc cleanup.
Diffstat (limited to 'gcc/ada/exp_tss.ads')
-rw-r--r-- | gcc/ada/exp_tss.ads | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/gcc/ada/exp_tss.ads b/gcc/ada/exp_tss.ads index 37b0418..59234ff 100644 --- a/gcc/ada/exp_tss.ads +++ b/gcc/ada/exp_tss.ads @@ -170,12 +170,9 @@ package Exp_Tss is -- be explicitly frozen, so the N_Freeze_Entity node always exists). function TSS (Typ : Entity_Id; Nam : TSS_Name_Type) return Entity_Id; - -- Finds the TSS with the given name associated with the given type - -- If no such TSS exists, then Empty is returned; - function TSS (Typ : Entity_Id; Nam : Name_Id) return Entity_Id; - -- Finds the TSS with the given name associated with the given type. If - -- no such TSS exists, then Empty is returned. + -- Finds the TSS with the given name associated with the given type. + -- If no such TSS exists, then Empty is returned. function Same_TSS (E1, E2 : Entity_Id) return Boolean; -- Returns True if E1 and E2 are the same kind of TSS, even if the names |