diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-01-01 15:19:05 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-03 06:01:26 -0400 |
| commit | ba2034610fcc0d56dd52cb20c26f9ab1997b520e (patch) | |
| tree | 5260826d088dfa1346429c93e923ffd7866428bb /gcc/ada/namet.adb | |
| parent | bad8184e3e16dfd4d30099e18e443c4a54b97c83 (diff) | |
| download | gcc-ba2034610fcc0d56dd52cb20c26f9ab1997b520e.zip gcc-ba2034610fcc0d56dd52cb20c26f9ab1997b520e.tar.gz gcc-ba2034610fcc0d56dd52cb20c26f9ab1997b520e.tar.bz2 | |
[Ada] Remove ASIS tree generation
2020-06-03 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* aspects.adb, aspects.ads, atree.adb, atree.ads, elists.adb,
elists.ads, fname.adb, fname.ads, gnat1drv.adb, lib.adb,
lib.ads, namet.adb, namet.ads, nlists.adb, nlists.ads, opt.adb,
opt.ads, osint-c.adb, osint-c.ads, repinfo.adb, repinfo.ads,
sem_aux.adb, sem_aux.ads, sinput.adb, sinput.ads, stand.ads,
stringt.adb, stringt.ads, switch-c.adb, table.adb, table.ads,
uintp.adb, uintp.ads, urealp.adb, urealp.ads (Tree_Read,
Tree_Write): Remove generation of ASIS trees.
* doc/gnat_ugn/building_executable_programs_with_gnat.rst:
Remove -gnatt and -gnatct documentation.
* gnat_ugn.texi: Regenerate.
* tree_in.ads, tree_in.adb, tree_io.ads, tree_io.adb,
tree_gen.ads, tree_gen.adb, stand.adb: Remove.
* gcc-interface/Makefile.in, gcc-interface/Make-lang.in: Remove
references to tree_gen.o tree_in.o tree_io.o.
Diffstat (limited to 'gcc/ada/namet.adb')
| -rw-r--r-- | gcc/ada/namet.adb | 36 |
1 files changed, 3 insertions, 33 deletions
diff --git a/gcc/ada/namet.adb b/gcc/ada/namet.adb index 70f4993..60c1050 100644 --- a/gcc/ada/namet.adb +++ b/gcc/ada/namet.adb @@ -33,11 +33,9 @@ -- source file must be properly reflected in the C header file namet.h -- which is created manually from namet.ads and namet.adb. -with Debug; use Debug; -with Opt; use Opt; -with Output; use Output; -with System; use System; -with Tree_IO; use Tree_IO; +with Debug; use Debug; +with Opt; use Opt; +with Output; use Output; with Widechar; with Interfaces; use Interfaces; @@ -1729,34 +1727,6 @@ package body Namet is return Buf.Chars (1 .. Buf.Length); end To_String; - --------------- - -- Tree_Read -- - --------------- - - procedure Tree_Read is - begin - Name_Chars.Tree_Read; - Name_Entries.Tree_Read; - - Tree_Read_Data - (Hash_Table'Address, - Hash_Table'Length * (Hash_Table'Component_Size / Storage_Unit)); - end Tree_Read; - - ---------------- - -- Tree_Write -- - ---------------- - - procedure Tree_Write is - begin - Name_Chars.Tree_Write; - Name_Entries.Tree_Write; - - Tree_Write_Data - (Hash_Table'Address, - Hash_Table'Length * (Hash_Table'Component_Size / Storage_Unit)); - end Tree_Write; - ------------ -- Unlock -- ------------ |