Check in a pristine copy of GCC 4.8.1.

The copy of GCC that we use for Android is still not working for
mingw. Rather than finding all the differences that have crept into
our GCC, just check in a copy from
ftp://ftp.gnu.org/gnu/gcc/gcc-4.9.3/gcc-4.8.1.tar.bz2.

GCC 4.8.1 was chosen because it is what we have been using for mingw
thus far, and the emulator doesn't yet work when upgrading to 4.9.

Bug: http://b/26523949
Change-Id: Iedc0f05243d4332cc27ccd46b8a4b203c88dcaa3

1 files changed, 99 insertions, 0 deletions

diff --git a/gcc-4.8.1/gcc/ada/fname.ads b/gcc-4.8.1/gcc/ada/fname.ads
new file mode 100644
index 000000000..74523c098
--- /dev/null
+++ b/gcc-4.8.1/gcc/ada/fname.ads
@@ -0,0 +1,99 @@
+------------------------------------------------------------------------------
+--                                                                          --
+--                         GNAT COMPILER COMPONENTS                         --
+--                                                                          --
+--                                F N A M E                                 --
+--                                                                          --
+--                                 S p e c                                  --
+--                                                                          --
+--          Copyright (C) 1992-2009, Free Software Foundation, Inc.         --
+--                                                                          --
+-- GNAT is free software;  you can  redistribute it  and/or modify it under --
+-- terms of the  GNU General Public License as published  by the Free Soft- --
+-- ware  Foundation;  either version 3,  or (at your option) any later ver- --
+-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
+-- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
+-- or FITNESS FOR A PARTICULAR PURPOSE.                                     --
+--                                                                          --
+-- As a special exception under Section 7 of GPL version 3, you are granted --
+-- additional permissions described in the GCC Runtime Library Exception,   --
+-- version 3.1, as published by the Free Software Foundation.               --
+--                                                                          --
+-- You should have received a copy of the GNU General Public License and    --
+-- a copy of the GCC Runtime Library Exception along with this program;     --
+-- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
+-- <http://www.gnu.org/licenses/>.                                          --
+--                                                                          --
+-- GNAT was originally developed  by the GNAT team at  New York University. --
+-- Extensive contributions were provided by Ada Core Technologies Inc.      --
+--                                                                          --
+------------------------------------------------------------------------------
+
+--  This package, together with its child package Fname.UF define the
+--  association between source file names and unit names as defined
+--  (see package Uname for definition of format of unit names).
+
+with Namet; use Namet;
+
+package Fname is
+
+   --  Note: this package spec does not depend on the Uname spec in the Ada
+   --  sense, but the comments and description of the semantics do depend on
+   --  the conventions established by Uname.
+
+   ---------------------------
+   -- File Name Conventions --
+   ---------------------------
+
+   --  GNAT requires that there be a one to one correspondence between source
+   --  file names (as used in the Osint package interface) and unit names as
+   --  defined by the Uname package. This correspondence is defined by the
+   --  two subprograms defined here in the Fname package.
+
+   --   For full rules of file naming, see GNAT User's Guide. Note that the
+   --   naming rules are affected by the presence of Source_File_Name pragmas
+   --   that have been previously processed.
+
+   --  Note that the file name does *not* include the directory name. The
+   --  management of directories is provided by Osint, and full file names
+   --  are used only for error message purposes within GNAT itself.
+
+   -----------------
+   -- Subprograms --
+   -----------------
+
+   function Is_Predefined_File_Name
+     (Fname              : File_Name_Type;
+      Renamings_Included : Boolean := True) return Boolean;
+   --  This function determines if the given file name (which must be a simple
+   --  file name with no directory information) is the file name for one of the
+   --  predefined library units (i.e. part of the Ada, System, or Interface
+   --  hierarchies). Note that units in the GNAT hierarchy are not considered
+   --  predefined (see Is_Internal_File_Name below). On return, Name_Buffer
+   --  contains the file name. The Renamings_Included parameter indicates
+   --  whether annex J renamings such as Text_IO are to be considered as
+   --  predefined. If Renamings_Included is True, then Text_IO will return
+   --  True, otherwise only children of Ada, Interfaces and System return True.
+
+   function Is_Predefined_File_Name
+     (Renamings_Included : Boolean := True) return Boolean;
+   --  This version is called with the file name already in Name_Buffer
+
+   function Is_Internal_File_Name
+     (Fname              : File_Name_Type;
+      Renamings_Included : Boolean := True) return Boolean;
+   --  Similar to Is_Predefined_File_Name. The internal file set is a superset
+   --  of the predefined file set including children of GNAT, and also children
+   --  of DEC for the VMS case.
+
+   procedure Tree_Read;
+   --  Dummy procedure (reads dummy table values from tree file)
+
+   procedure Tree_Write;
+   --  Writes out internal tables to current tree file using Tree_Write
+   --  This is actually a dummy routine, since the relevant table is
+   --  no longer used, but we retain it for now, to avoid a tree file
+   --  incompatibility with the 3.13 compiler. Should be removed for
+   --  the 3.14a release ???
+
+end Fname;