diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-03-06 05:33:41 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-10 09:34:59 -0400 |
| commit | 3aeb5ebe953a78223ef7ac9abee9b7adb709b29f (patch) | |
| tree | 528417aa5a9fd8e69a7ce0d7ec10bb608a99c43a /gcc/ada/repinfo-input.adb | |
| parent | a53b03b5a7b2cdb00aed0618117f6b855eb3891a (diff) | |
| download | gcc-3aeb5ebe953a78223ef7ac9abee9b7adb709b29f.zip gcc-3aeb5ebe953a78223ef7ac9abee9b7adb709b29f.tar.gz gcc-3aeb5ebe953a78223ef7ac9abee9b7adb709b29f.tar.bz2 | |
[Ada] Remove more references to ASIS
2020-06-10 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* atree.adb, contracts.adb, debug.adb, freeze.adb,
repinfo-input.adb, repinfo.adb, sem_attr.adb, sem_ch10.adb,
sem_ch13.adb, sem_ch3.adb, sem_ch5.adb, sem_ch6.adb,
sem_ch8.adb, sem_ch9.adb, sem_disp.adb, sem_eval.adb,
sem_prag.adb: Remove more references to ASIS.
Diffstat (limited to 'gcc/ada/repinfo-input.adb')
| -rw-r--r-- | gcc/ada/repinfo-input.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/repinfo-input.adb b/gcc/ada/repinfo-input.adb index 72a81f6..ed25be2 100644 --- a/gcc/ada/repinfo-input.adb +++ b/gcc/ada/repinfo-input.adb @@ -36,13 +36,12 @@ with Namet; use Namet; with Output; use Output; with Snames; use Snames; with Table; +with Ttypes; package body Repinfo.Input is - SSU : constant := 8; - -- Value for Storage_Unit, we do not want to get this from TTypes, since - -- this introduces problematic dependencies in ASIS, and in any case this - -- value is assumed to be 8 for the implementation of the DDA. + SSU : Pos renames Ttypes.System_Storage_Unit; + -- Value for Storage_Unit type JSON_Entity_Kind is (JE_Record_Type, JE_Array_Type, JE_Other); -- Kind of an entiy |