From 6a8bab6a69009ce622e551daa9fcaef88fb8602a Mon Sep 17 00:00:00 2001
From: Joel Sherrill <joel.sherrill@OARcorp.com>
Date: Tue, 8 Jul 2003 16:38:46 +0000
Subject: [PATCH] 2003-07-08	Joel Sherrill <joel@OARcorp.com>

	PR 418/ada
	* rtems.adb: Add missing all keyword to derefence pointer.
---
 cpukit/ada/ChangeLog | 5 +++++
 cpukit/ada/rtems.adb | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/cpukit/ada/ChangeLog b/cpukit/ada/ChangeLog
index 775f98a4c9..659add15bc 100644
--- a/cpukit/ada/ChangeLog
+++ b/cpukit/ada/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-08	Joel Sherrill <joel@OARcorp.com>
+
+	PR 418/ada
+	* rtems.adb: Add missing all keyword to derefence pointer.
+
 2003-03-06	Ralf Corsepius <corsepiu@faw.uni-ulm.de>
 
 	* configure.ac: Remove AC_CONFIG_AUX_DIR.
diff --git a/cpukit/ada/rtems.adb b/cpukit/ada/rtems.adb
index 37e111482e..4b415a662c 100644
--- a/cpukit/ada/rtems.adb
+++ b/cpukit/ada/rtems.adb
@@ -1665,7 +1665,7 @@ package body RTEMS is
          Interfaces.C.To_C (Name),
          Device_Info_Base'Unchecked_Access
       );
-      Device_Info := Device_Info_Base;
+      Device_Info.All := Device_Info_Base;
 
    end IO_Lookup_Name;