Delete old versions of GCC.

Change-Id: I710f125d905290e1024cbd67f48299861790c66c

1 files changed, 0 insertions, 173 deletions

diff --git a/gcc-4.4.0/gcc/ada/s-wchstw.adb b/gcc-4.4.0/gcc/ada/s-wchstw.adb
deleted file mode 100644
index e50f4c2f6..000000000
--- a/gcc-4.4.0/gcc/ada/s-wchstw.adb
+++ /dev/null
@@ -1,173 +0,0 @@
-------------------------------------------------------------------------------
---                                                                          --
---                         GNAT RUN-TIME COMPONENTS                         --
---                                                                          --
---                       S Y S T E M . W C H _ S T W                        --
---                                                                          --
---                                 B o d y                                  --
---                                                                          --
---          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.      --
---                                                                          --
-------------------------------------------------------------------------------
-
-with System.WCh_Con; use System.WCh_Con;
-with System.WCh_Cnv; use System.WCh_Cnv;
-
-package body System.WCh_StW is
-
-   -----------------------
-   -- Local Subprograms --
-   -----------------------
-
-   procedure Get_Next_Code
-     (S  : String;
-      P  : in out Natural;
-      V  : out UTF_32_Code;
-      EM : WC_Encoding_Method);
-   --  Scans next character starting at S(P) and returns its value in V. On
-   --  exit P is updated past the last character read. Raises Constraint_Error
-   --  if the string is not well formed. Raises Constraint_Error if the code
-   --  value is greater than 16#7FFF_FFFF#. On entry P <= S'Last.
-
-   -------------------
-   -- Get_Next_Code --
-   -------------------
-
-   procedure Get_Next_Code
-     (S  : String;
-      P  : in out Natural;
-      V  : out UTF_32_Code;
-      EM : WC_Encoding_Method)
-   is
-      function In_Char return Character;
-      --  Function to return a character, bumping P, raises Constraint_Error
-      --  if P > S'Last on entry.
-
-      function Get_UTF_32 is new Char_Sequence_To_UTF_32 (In_Char);
-      --  Function to get next UFT_32 value
-
-      -------------
-      -- In_Char --
-      -------------
-
-      function In_Char return Character is
-      begin
-         if P > S'Last then
-            raise Constraint_Error with "badly formed wide character code";
-         else
-            P := P + 1;
-            return S (P - 1);
-         end if;
-      end In_Char;
-
-   --  Start of processing for Get_Next_Code
-
-   begin
-      --  Check for wide character encoding
-
-      case EM is
-         when WCEM_Hex =>
-            if S (P) = ASCII.ESC then
-               V := Get_UTF_32 (In_Char, EM);
-               return;
-            end if;
-
-         when WCEM_Upper | WCEM_Shift_JIS | WCEM_EUC | WCEM_UTF8 =>
-            if S (P) >= Character'Val (16#80#) then
-               V := Get_UTF_32 (In_Char, EM);
-               return;
-            end if;
-
-         when WCEM_Brackets =>
-            if P + 2 <= S'Last
-              and then S (P) = '['
-              and then S (P + 1) = '"'
-              and then S (P + 2) /= '"'
-            then
-               V := Get_UTF_32 (In_Char, EM);
-               return;
-            end if;
-      end case;
-
-      --  If it is not a wide character code, just get it
-
-      V := Character'Pos (S (P));
-      P := P + 1;
-   end Get_Next_Code;
-
-   ---------------------------
-   -- String_To_Wide_String --
-   ---------------------------
-
-   procedure String_To_Wide_String
-     (S  : String;
-      R  : out Wide_String;
-      L  : out Natural;
-      EM : System.WCh_Con.WC_Encoding_Method)
-   is
-      SP : Natural;
-      V  : UTF_32_Code;
-
-   begin
-      pragma Assert (S'First = 1);
-
-      SP := S'First;
-      L  := 0;
-      while SP <= S'Last loop
-         Get_Next_Code (S, SP, V, EM);
-
-         if V > 16#FFFF# then
-            raise Constraint_Error with
-              "out of range value for wide character";
-         end if;
-
-         L := L + 1;
-         R (L) := Wide_Character'Val (V);
-      end loop;
-   end String_To_Wide_String;
-
-   --------------------------------
-   -- String_To_Wide_Wide_String --
-   --------------------------------
-
-   procedure String_To_Wide_Wide_String
-     (S  : String;
-      R  : out Wide_Wide_String;
-      L  : out Natural;
-      EM : System.WCh_Con.WC_Encoding_Method)
-   is
-      pragma Assert (S'First = 1);
-
-      SP : Natural;
-      V  : UTF_32_Code;
-
-   begin
-      SP := S'First;
-      L := 0;
-      while SP <= S'Last loop
-         Get_Next_Code (S, SP, V, EM);
-         L := L + 1;
-         R (L) := Wide_Wide_Character'Val (V);
-      end loop;
-   end String_To_Wide_Wide_String;
-
-end System.WCh_StW;