Changeset d766b7fd in rtems for c/src/ada

Timestamp:

Jun 2, 1997, 11:46:15 PM (24 years ago)

Author:

Joel Sherrill <joel.sherrill@…>

Branches:

4.10, 4.11, 4.8, 4.9, 5, master

Children:

ad9865e

Parents:

529cdccd

Message:

added Minimum_Stack_Size and Mode constants

File:

• c/src/ada/rtems.ads (modified) (7 diffs)

c/src/ada/rtems.ads

@@ -158 +158 @@
          Major              : RTEMS.Device_Major_Number;
          Minor              : RTEMS.Device_Minor_Number;
-         
+
       end record;
 
@@ -184 +184 @@
 
    Default_Modes      : constant RTEMS.Mode      := 16#0000#;
+
+   All_Mode_Masks     : constant RTEMS.Mode := 16#0000_ffff#;
+   Current_Mode       : constant RTEMS.Mode := 16#0000_0000#;
+   Preempt_Mask       : constant RTEMS.Mode := 16#0000_0100#;
+   Timeslice_Mask     : constant RTEMS.Mode := 16#0000_0200#;
+   ASR_Mask           : constant RTEMS.Mode := 16#0000_0400#;
+   -- Interrupt_Mask  : constant RTEMS.Mode := CPU_Modes_Interrupt_Mask;
+   Preempt            : constant RTEMS.Mode := 16#0000_0000#;
+   No_Preempt         : constant RTEMS.Mode := 16#0000_0100#;
+   No_Timeslice       : constant RTEMS.Mode := 16#0000_0000#;
+   Timeslice          : constant RTEMS.Mode := 16#0000_0200#;
+   ASR                : constant RTEMS.Mode := 16#0000_0000#;
+   No_ASR             : constant RTEMS.Mode := 16#0000_0400#;
 
    --
@@ -197 +210 @@
       Level : in     RTEMS.Unsigned32
    ) return RTEMS.Attribute;
-   
+
+   Minimum_Stack_Size : RTEMS.Unsigned32;
+   pragma Import (C, Minimum_Stack_Size, "rtems_minimum_stack_size");
+
+
    --
    --  Notepad index constants
@@ -333 +350 @@
      Expired                 => 4
    );
- 
+
    type Rate_Monotonic_Period_Status is
       record
@@ -504 +521 @@
    type POSIX_Initialization_Threads_Table_Pointer is access all
        POSIX_Initialization_Threads_Table;
-   
+
    type POSIX_API_Configuration_Table_Entry is
       record
@@ -513 +530 @@
          Maximum_Queued_Signals          : Interfaces.C.Int;
          Number_Of_Initialization_Tasks  : Interfaces.C.Int;
-         User_Initialization_Tasks_Table : 
+         User_Initialization_Tasks_Table :
             RTEMS.POSIX_Initialization_Threads_Table_Pointer;
       end record;
@@ -1329 +1346 @@
   Configuration : RTEMS.Configuration_Table_Pointer;
   pragma Import (C, Configuration, "_Configuration_Table");
-  -- function Configuration 
-  -- return RTEMS.Configuration_Table_Pointer;
-
-  
+
+
 private
 end RTEMS;