From ba2034610fcc0d56dd52cb20c26f9ab1997b520e Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@adacore.com>
Date: Wed, 1 Jan 2020 15:19:05 -0500
Subject: [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.
---
 gcc/ada/namet.adb | 36 +++---------------------------------
 1 file changed, 3 insertions(+), 33 deletions(-)

(limited to 'gcc/ada/namet.adb')

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 --
    ------------
-- 
cgit v1.1