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/nlists.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/nlists.adb')
-rw-r--r-- | gcc/ada/nlists.adb | 26 |
1 files changed, 1 insertions, 25 deletions
diff --git a/gcc/ada/nlists.adb b/gcc/ada/nlists.adb index 0f9884d..a51b191c 100644 --- a/gcc/ada/nlists.adb +++ b/gcc/ada/nlists.adb @@ -141,8 +141,7 @@ package body Nlists is Next_Node.Set_Last (N); Prev_Node.Set_Last (N); - -- Make sure we have no uninitialized junk in any new entires added. - -- This ensures that Tree_Gen will not write out any uninitialized junk. + -- Make sure we have no uninitialized junk in any new entries added. for J in Old_Last + 1 .. N loop Next_Node.Table (J) := Empty; @@ -1470,29 +1469,6 @@ package body Nlists is Prev_Node.Table (Node) := To; end Set_Prev; - --------------- - -- Tree_Read -- - --------------- - - procedure Tree_Read is - begin - pragma Assert (not Locked); - Lists.Tree_Read; - Next_Node.Tree_Read; - Prev_Node.Tree_Read; - end Tree_Read; - - ---------------- - -- Tree_Write -- - ---------------- - - procedure Tree_Write is - begin - Lists.Tree_Write; - Next_Node.Tree_Write; - Prev_Node.Tree_Write; - end Tree_Write; - ------------ -- Unlock -- ------------ |