Changeset a6b44a8a in rtems for c/src/ada/rtems.adb

Timestamp:

06/03/97 00:55:42 (26 years ago)

Author:

Joel Sherrill <joel.sherrill@…>

Branches:

4.10, 4.11, 4.8, 4.9, 5, master

Children:

7d366f1c

Parents:

d0f426a1

Message:

added Signal constants, Is_Status_Successful, and Attribute constants.

File:

• c/src/ada/rtems.adb (modified) (1 diff)

c/src/ada/rtems.adb

@@ -159 +159 @@
    end Are_Statuses_Equal;
 
+   function Is_Status_Successful (
+      Status  : in     RTEMS.Status_Codes
+   ) return Standard.Boolean is
+   begin
+
+      if Status = RTEMS.Successful then
+         return True;
+      end if;
+
+      return False;
+
+   end Is_Status_Successful;
+
    --
    --