From dedccb649ea0a46375597008a2786c59ea6152ad Mon Sep 17 00:00:00 2001
From: Joel Sherrill <joel.sherrill@OARcorp.com>
Date: Mon, 24 Aug 2009 12:15:24 +0000
Subject: [PATCH] 2009-08-24      Christian Mauderer
 <christian.mauderer@embedded-brains.de>

	* rtems.adb: Use rtems_debug_is_enabled().
---
 c/src/ada/ChangeLog | 4 ++++
 c/src/ada/rtems.adb | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/c/src/ada/ChangeLog b/c/src/ada/ChangeLog
index fd5a406d56..c105bf64de 100644
--- a/c/src/ada/ChangeLog
+++ b/c/src/ada/ChangeLog
@@ -1,3 +1,7 @@
+2009-08-24      Christian Mauderer <christian.mauderer@embedded-brains.de>
+
+	* rtems.adb: Use rtems_debug_is_enabled().
+
 2008-12-16	Joel Sherrill <joel.sherrill@oarcorp.com>
 
 	* rtems.adb: Use public API not _TOD_Microseconds_per_tick.
diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb
index f46e23740d..22d97549a3 100644
--- a/c/src/ada/rtems.adb
+++ b/c/src/ada/rtems.adb
@@ -2154,7 +2154,7 @@ package body RTEMS is
       function Debug_Is_Enabled_Base (
          Level : RTEMS.Debug_Set
       )  return RTEMS.Boolean;
-      pragma Import (C, Debug_Is_Enabled_Base, "_Debug_Is_enabled");
+      pragma Import (C, Debug_Is_Enabled_Base, "rtems_debug_is_enabled");
    begin
 
       return Debug_Is_Enabled_Base (Level);