Merge with LLVM upstream 2011/10/20 (r142530)

Conflicts:
	lib/Support/Unix/Host.inc

Change-Id: Idc00db3b63912dca6348bddd9f8a1af2a8d5d147

33 files changed, 0 insertions, 268 deletions

diff --git a/test/FrontendAda/Support/element_copy.ads b/test/FrontendAda/Support/element_copy.ads
deleted file mode 100644
index 52c6e49275..0000000000
--- a/test/FrontendAda/Support/element_copy.ads
+++ /dev/null
@@ -1,8 +0,0 @@
-package Element_Copy is
-   type SmallInt is range 1 .. 4;
-   type SmallStr is array (SmallInt range <>) of Character;
-   type VariableSizedField (D : SmallInt := 2) is record
-      S : SmallStr (1 .. D) := "Hi";
-   end record;
-   function F return VariableSizedField;
-end;
diff --git a/test/FrontendAda/Support/fat_fields.ads b/test/FrontendAda/Support/fat_fields.ads
deleted file mode 100644
index d3eab3e286..0000000000
--- a/test/FrontendAda/Support/fat_fields.ads
+++ /dev/null
@@ -1,6 +0,0 @@
-package Fat_Fields is
-   pragma Elaborate_Body;
-   type A is array (Positive range <>) of Boolean;
-   type A_Ptr is access A;
-   P : A_Ptr := null;
-end;
diff --git a/test/FrontendAda/Support/global_constant.ads b/test/FrontendAda/Support/global_constant.ads
deleted file mode 100644
index cef4b11f68..0000000000
--- a/test/FrontendAda/Support/global_constant.ads
+++ /dev/null
@@ -1,4 +0,0 @@
-package Global_Constant is
-   pragma Elaborate_Body;
-   An_Error : exception;
-end;
diff --git a/test/FrontendAda/Support/non_lvalue.ads b/test/FrontendAda/Support/non_lvalue.ads
deleted file mode 100644
index 7d4eeed8b8..0000000000
--- a/test/FrontendAda/Support/non_lvalue.ads
+++ /dev/null
@@ -1,11 +0,0 @@
-package Non_LValue is
-   type T (Length : Natural) is record
-      A : String (1 .. Length);
-      B : String (1 .. Length);
-   end record;
-   type T_Ptr is access all T;
-   type U is record
-      X : T_Ptr;
-   end record;
-   function A (Y : U) return String;
-end;
diff --git a/test/FrontendAda/Support/real_cst.ads b/test/FrontendAda/Support/real_cst.ads
deleted file mode 100644
index 54a34bc405..0000000000
--- a/test/FrontendAda/Support/real_cst.ads
+++ /dev/null
@@ -1,4 +0,0 @@
-with Ada.Streams;
-package Real_Cst is
-   procedure Write (Stream : access Ada.Streams.Root_Stream_Type'Class);
-end;
diff --git a/test/FrontendAda/Support/unc_constructor.ads b/test/FrontendAda/Support/unc_constructor.ads
deleted file mode 100644
index d6f8db50d8..0000000000
--- a/test/FrontendAda/Support/unc_constructor.ads
+++ /dev/null
@@ -1,8 +0,0 @@
-package Unc_Constructor is
-   type C is null record;
-   type A is array (Positive range <>) of C;
-   A0 : constant A;
-   procedure P (X : A);
-private
-   A0 : aliased constant A := (1 .. 0 => (null record));
-end;
diff --git a/test/FrontendAda/Support/var_offset.ads b/test/FrontendAda/Support/var_offset.ads
deleted file mode 100644
index 55d0eb21f7..0000000000
--- a/test/FrontendAda/Support/var_offset.ads
+++ /dev/null
@@ -1,9 +0,0 @@
-package Var_Offset is
-   pragma Elaborate_Body;
-   type T (L : Natural) is record
-      Var_Len   : String (1 .. L);
-      Space     : Integer;
-      Small     : Character;
-      Bad_Field : Character;
-   end record;
-end;
diff --git a/test/FrontendAda/Support/var_size.ads b/test/FrontendAda/Support/var_size.ads
deleted file mode 100644
index 6a570cba8b..0000000000
--- a/test/FrontendAda/Support/var_size.ads
+++ /dev/null
@@ -1,7 +0,0 @@
-package Var_Size is
-   type T (Length : Natural) is record
-      A : String (1 .. Length);
-      B : String (1 .. Length);
-   end record;
-   function A (X : T) return String;
-end;
diff --git a/test/FrontendAda/array_constructor.adb b/test/FrontendAda/array_constructor.adb
deleted file mode 100644
index 13517c7565..0000000000
--- a/test/FrontendAda/array_constructor.adb
+++ /dev/null
@@ -1,6 +0,0 @@
--- RUN: %llvmgcc -S %s
-procedure Array_Constructor is
-   A : array (Integer range <>) of Boolean := (True, False);
-begin
-   null;
-end;
diff --git a/test/FrontendAda/array_range_ref.adb b/test/FrontendAda/array_range_ref.adb
deleted file mode 100644
index 037c5aa8b6..0000000000
--- a/test/FrontendAda/array_range_ref.adb
+++ /dev/null
@@ -1,7 +0,0 @@
--- RUN: %llvmgcc -S %s
-procedure Array_Range_Ref is
-   A : String (1 .. 3);
-   B : String := A (A'RANGE)(1 .. 3);
-begin
-   null;
-end;
diff --git a/test/FrontendAda/array_ref.adb b/test/FrontendAda/array_ref.adb
deleted file mode 100644
index 2bf4b7988d..0000000000
--- a/test/FrontendAda/array_ref.adb
+++ /dev/null
@@ -1,11 +0,0 @@
--- RUN: %llvmgcc -S %s
-procedure Array_Ref is
-   type A is array (Natural range <>, Natural range <>) of Boolean;
-   type A_Access is access A;
-   function Get (X : A_Access) return Boolean is
-   begin
-      return X (0, 0);
-   end;
-begin
-   null;
-end;
diff --git a/test/FrontendAda/array_size.adb b/test/FrontendAda/array_size.adb
deleted file mode 100644
index c73616c980..0000000000
--- a/test/FrontendAda/array_size.adb
+++ /dev/null
@@ -1,10 +0,0 @@
--- RUN: %llvmgcc -S %s
-procedure Array_Size is
-   subtype S is String (1 .. 2);
-   type R is record
-      A : S;
-   end record;
-   X : R;
-begin
-   null;
-end;
diff --git a/test/FrontendAda/asm.adb b/test/FrontendAda/asm.adb
deleted file mode 100644
index 844885e671..0000000000
--- a/test/FrontendAda/asm.adb
+++ /dev/null
@@ -1,6 +0,0 @@
--- RUN: %llvmgcc -S %s
-with System.Machine_Code;
-procedure Asm is
-begin
-   System.Machine_Code.Asm ("");
-end;
diff --git a/test/FrontendAda/constant_fold.ads b/test/FrontendAda/constant_fold.ads
deleted file mode 100644
index 6223e7cb64..0000000000
--- a/test/FrontendAda/constant_fold.ads
+++ /dev/null
@@ -1,4 +0,0 @@
--- RUN: %llvmgcc -S -emit-llvm %s -o - | not grep ptrtoint
-package Constant_Fold is
-  Error : exception;
-end;
diff --git a/test/FrontendAda/debug_var_size.ads b/test/FrontendAda/debug_var_size.ads
deleted file mode 100644
index e8863cbddf..0000000000
--- a/test/FrontendAda/debug_var_size.ads
+++ /dev/null
@@ -1,8 +0,0 @@
--- RUN: %llvmgcc -S -g %s
-package Debug_Var_Size is
-   subtype Length_Type is Positive range 1 .. 64;
-   type T (Length : Length_Type := 1) is record
-      Varying_Length : String (1 .. Length);
-      Fixed_Length   : Boolean;
-   end record;
-end;
diff --git a/test/FrontendAda/dg.exp b/test/FrontendAda/dg.exp
deleted file mode 100644
index 2307c3fdbe..0000000000
--- a/test/FrontendAda/dg.exp
+++ /dev/null
@@ -1,6 +0,0 @@
-load_lib llvm.exp
-
-if [ llvm_gcc_supports ada ] then {
-    RunLLVMTests [lsort [glob -nocomplain $srcdir/$subdir/*.{adb,ads}]]
-}
-
diff --git a/test/FrontendAda/element_copy.adb b/test/FrontendAda/element_copy.adb
deleted file mode 100644
index 29274fa744..0000000000
--- a/test/FrontendAda/element_copy.adb
+++ /dev/null
@@ -1,8 +0,0 @@
--- RUN: %llvmgcc -S -O2 %s -I%p/Support -o - | grep 105 | count 2
-package body Element_Copy is
-   function F return VariableSizedField is
-      X : VariableSizedField;
-   begin
-      return X;
-   end;
-end;
diff --git a/test/FrontendAda/emit_var.ads b/test/FrontendAda/emit_var.ads
deleted file mode 100644
index 47e2538691..0000000000
--- a/test/FrontendAda/emit_var.ads
+++ /dev/null
@@ -1,5 +0,0 @@
--- RUN: %llvmgcc -S %s
-with Ada.Finalization;
-package Emit_Var is
-   type Search_Type is new Ada.Finalization.Controlled with null record;
-end;
diff --git a/test/FrontendAda/fat_fields.adb b/test/FrontendAda/fat_fields.adb
deleted file mode 100644
index 443a9b679c..0000000000
--- a/test/FrontendAda/fat_fields.adb
+++ /dev/null
@@ -1,10 +0,0 @@
--- RUN: %llvmgcc -S %s -I%p/Support
--- RUN: %llvmgcc -S %s -I%p/Support -O2
-package body Fat_Fields is
-   procedure Proc is
-   begin
-      if P = null then
-         null;
-      end if;
-   end;
-end;
diff --git a/test/FrontendAda/field_order.ads b/test/FrontendAda/field_order.ads
deleted file mode 100644
index 9b2b37c20d..0000000000
--- a/test/FrontendAda/field_order.ads
+++ /dev/null
@@ -1,7 +0,0 @@
--- RUN: %llvmgcc -S %s
-package Field_Order is
-   type Tagged_Type is abstract tagged null record;
-   type With_Discriminant (L : Positive) is new Tagged_Type with record
-      S : String (1 .. L);
-   end record;
-end;
diff --git a/test/FrontendAda/global_constant.adb b/test/FrontendAda/global_constant.adb
deleted file mode 100644
index 330f97b5d0..0000000000
--- a/test/FrontendAda/global_constant.adb
+++ /dev/null
@@ -1,5 +0,0 @@
--- RUN: %llvmgcc -S %s -I%p/Support
-package body Global_Constant is
-begin
-   raise An_Error;
-end;
diff --git a/test/FrontendAda/init_size.ads b/test/FrontendAda/init_size.ads
deleted file mode 100644
index f423682bec..0000000000
--- a/test/FrontendAda/init_size.ads
+++ /dev/null
@@ -1,12 +0,0 @@
--- RUN: %llvmgcc -S %s
-package Init_Size is
-   type T (B : Boolean := False) is record
-      case B is
-         when False =>
-            I : Integer;
-         when True =>
-            J : Long_Long_Integer; -- Bigger than I
-      end case;
-   end record;
-   A_T : constant T := (False, 0);
-end;
diff --git a/test/FrontendAda/negative_field_offset.adb b/test/FrontendAda/negative_field_offset.adb
deleted file mode 100644
index ec8184dde4..0000000000
--- a/test/FrontendAda/negative_field_offset.adb
+++ /dev/null
@@ -1,16 +0,0 @@
--- RUN: %llvmgcc -S %s
-with System;
-procedure Negative_Field_Offset (N : Integer) is
-   type String_Pointer is access String;
-   --  Force use of a thin pointer.
-   for String_Pointer'Size use System.Word_Size;
-   P : String_Pointer;
-
-   procedure Q (P : String_Pointer) is
-   begin
-      P (1) := 'Z';
-   end;
-begin
-   P := new String (1 .. N);
-   Q (P);
-end;
diff --git a/test/FrontendAda/non_bitfield.ads b/test/FrontendAda/non_bitfield.ads
deleted file mode 100644
index 8a49d46f6b..0000000000
--- a/test/FrontendAda/non_bitfield.ads
+++ /dev/null
@@ -1,12 +0,0 @@
--- RUN: %llvmgcc -S %s
-package Non_Bitfield is
-   type SP is access String;
-   type E is (A, B, C);
-   type T (D : E) is record
-      case D is
-         when A => X : Boolean;
-         when B => Y : SP;
-         when C => Z : String (1 .. 2);
-      end case;
-   end record;
-end;
diff --git a/test/FrontendAda/non_lvalue.adb b/test/FrontendAda/non_lvalue.adb
deleted file mode 100644
index 71e7e102d0..0000000000
--- a/test/FrontendAda/non_lvalue.adb
+++ /dev/null
@@ -1,7 +0,0 @@
--- RUN: %llvmgcc -S %s -I%p/Support
-package body Non_LValue is
-   function A (Y : U) return String is
-   begin
-      return Y.X.B;
-   end;
-end;
diff --git a/test/FrontendAda/placeholder.adb b/test/FrontendAda/placeholder.adb
deleted file mode 100644
index 88908263f8..0000000000
--- a/test/FrontendAda/placeholder.adb
+++ /dev/null
@@ -1,12 +0,0 @@
--- RUN: %llvmgcc -S %s
-procedure Placeholder is
-   subtype Bounded is Integer range 1 .. 5;
-   type Vector is array (Bounded range <>) of Integer;
-   type Interval (Length : Bounded := 1) is record
-      Points : Vector (1 .. Length);
-   end record;
-   An_Interval : Interval := (Length => 1, Points => (1 => 1));
-   generic The_Interval : Interval; package R is end;
-   package body R is end;
-   package S is new R (An_Interval);
-begin null; end;
diff --git a/test/FrontendAda/real_cst.adb b/test/FrontendAda/real_cst.adb
deleted file mode 100644
index 7514371025..0000000000
--- a/test/FrontendAda/real_cst.adb
+++ /dev/null
@@ -1,8 +0,0 @@
--- RUN: %llvmgcc -S -O2 -gnatn %s -I%p/Support
-package body Real_Cst is
-   Cst : constant Float := 0.0;
-   procedure Write (Stream : access Ada.Streams.Root_Stream_Type'Class) is
-   begin
-      Float'Write (Stream, Cst);
-   end;
-end;
diff --git a/test/FrontendAda/switch.adb b/test/FrontendAda/switch.adb
deleted file mode 100644
index 0c83a2e642..0000000000
--- a/test/FrontendAda/switch.adb
+++ /dev/null
@@ -1,12 +0,0 @@
--- RUN: %llvmgcc -S %s
-function Switch (N : Integer) return Integer is
-begin
-   case N is
-      when Integer'First .. -1 =>
-         return -1;
-      when 0 =>
-         return 0;
-      when others =>
-         return 1;
-   end case;
-end;
diff --git a/test/FrontendAda/unc_constructor.adb b/test/FrontendAda/unc_constructor.adb
deleted file mode 100644
index ee10de6c81..0000000000
--- a/test/FrontendAda/unc_constructor.adb
+++ /dev/null
@@ -1,9 +0,0 @@
--- RUN: %llvmgcc -S %s -I%p/Support
-package body Unc_Constructor is
-   procedure P (X : A) is
-   begin
-      if X = A0 then
-         null;
-      end if;
-   end;
-end;
diff --git a/test/FrontendAda/var_offset.adb b/test/FrontendAda/var_offset.adb
deleted file mode 100644
index 1d3ca98fa4..0000000000
--- a/test/FrontendAda/var_offset.adb
+++ /dev/null
@@ -1,7 +0,0 @@
--- RUN: %llvmgcc -S %s -I%p/Support
-package body Var_Offset is
-   function F (X : T) return Character is
-   begin
-      return X.Bad_Field;
-   end;
-end;
diff --git a/test/FrontendAda/var_size.adb b/test/FrontendAda/var_size.adb
deleted file mode 100644
index 291f91d4ee..0000000000
--- a/test/FrontendAda/var_size.adb
+++ /dev/null
@@ -1,7 +0,0 @@
--- RUN: %llvmgcc -S %s -I%p/Support
-package body Var_Size is
-   function A (X : T) return String is
-   begin
-      return X.A;
-   end;
-end;
diff --git a/test/FrontendAda/vce.adb b/test/FrontendAda/vce.adb
deleted file mode 100644
index 85cdca066a..0000000000
--- a/test/FrontendAda/vce.adb
+++ /dev/null
@@ -1,7 +0,0 @@
--- RUN: %llvmgcc -S %s
-procedure VCE is
-  S : String (1 .. 2);
-  B : Character := 'B';
-begin
-  S := 'A' & B;
-end;
diff --git a/test/FrontendAda/vce_lv.adb b/test/FrontendAda/vce_lv.adb
deleted file mode 100644
index d1b9e0824f..0000000000
--- a/test/FrontendAda/vce_lv.adb
+++ /dev/null
@@ -1,9 +0,0 @@
--- RUN: %llvmgcc -S %s
-procedure VCE_LV is
-   type P is access String ;
-   type T is new P (5 .. 7);
-   subtype U is String (5 .. 7);
-   X : T := new U'(others => 'A');
-begin
-   null;
-end;