---- gcc/gcc/ada/erroutc.adb.org 2007-02-06 19:20:40.633030250 +0100
-+++ gcc/gcc/ada/erroutc.adb 2007-02-06 19:21:08.486771000 +0100
+--- gcc-4_1-branch/gcc/ada/erroutc.adb~ 2005-11-30 12:12:07.000000000 +0100
++++ gcc-4_1-branch/gcc/ada/erroutc.adb 2007-02-08 19:47:25.000000000 +0100
@@ -39,7 +39,6 @@
with Sinput; use Sinput;
with Snames; use Snames;
with Uintp; use Uintp;
package body Erroutc is
+--- /dev/null 2007-01-04 19:59:32.080403511 +0100
++++ gcc-4_1-branch/gcc/ada/s-wchcon.adb 2007-02-08 19:59:59.000000000 +0100
+@@ -0,0 +1,2 @@
++package body System.WCh_Con is
++end System.WCh_Con;
+--- gcc-4_1-branch/gcc/ada/s-wchcon.ads~ 2007-02-08 19:59:57.000000000 +0100
++++ gcc-4_1-branch/gcc/ada/s-wchcon.ads 2007-02-08 20:07:21.000000000 +0100
+@@ -39,6 +39,7 @@
+ -- an appropriate WITH, and the interface can be expected to remain stable.
+
+ package System.WCh_Con is
++ pragma Elaborate_Body;
+ pragma Pure;
+
+ -------------------------------------
+--- gcc-4_1-branch/gcc/ada/sem_attr.adb~ 2005-11-30 12:12:07.000000000 +0100
++++ gcc-4_1-branch/gcc/ada/sem_attr.adb 2007-02-08 20:11:24.000000000 +0100
+@@ -56,7 +56,6 @@
+ with Stand; use Stand;
+ with Sinfo; use Sinfo;
+ with Sinput; use Sinput;
+-with Stand;
+ with Stringt; use Stringt;
+ with Targparm; use Targparm;
+ with Ttypes; use Ttypes;