diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2003-07-08 16:38:33 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2003-07-08 16:38:33 +0000 |
commit | 47f6eea940f27e3376f411198ff0d465588746bf (patch) | |
tree | 46f2b70fb475279128370fb057c0de332028a7b4 | |
parent | 2003-07-08 Joel Sherrill <joel@OARcorp.com> (diff) | |
download | rtems-47f6eea940f27e3376f411198ff0d465588746bf.tar.bz2 |
2003-07-08 Joel Sherrill <joel@OARcorp.com>
PR 418/ada
* rtems.adb: Add missing all keyword to derefence pointer.
-rw-r--r-- | c/src/ada/ChangeLog | 5 | ||||
-rw-r--r-- | c/src/ada/rtems.adb | 2 | ||||
-rw-r--r-- | cpukit/ada/ChangeLog | 5 | ||||
-rw-r--r-- | cpukit/ada/rtems.adb | 2 |
4 files changed, 12 insertions, 2 deletions
diff --git a/c/src/ada/ChangeLog b/c/src/ada/ChangeLog index 49711d6ecd..dd4dba2ffb 100644 --- a/c/src/ada/ChangeLog +++ b/c/src/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-07-08 Ralf Corsepius <corsepiu@faw.uni-ulm.de> * configure.ac: Remove (Merged into ../configure.ac). diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb index 37e111482e..4b415a662c 100644 --- a/c/src/ada/rtems.adb +++ b/c/src/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; diff --git a/cpukit/ada/ChangeLog b/cpukit/ada/ChangeLog index 49711d6ecd..dd4dba2ffb 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-07-08 Ralf Corsepius <corsepiu@faw.uni-ulm.de> * configure.ac: Remove (Merged into ../configure.ac). 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; |