Changeset a6b44a8a in rtems


Ignore:
Timestamp:
Jun 3, 1997, 12:55:42 AM (23 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.

Files:
4 edited

Legend:

Unmodified
Added
Removed
  • c/src/ada/rtems.adb

    rd0f426a1 ra6b44a8a  
    159159   end Are_Statuses_Equal;
    160160
     161   function Is_Status_Successful (
     162      Status  : in     RTEMS.Status_Codes
     163   ) return Standard.Boolean is
     164   begin
     165
     166      if Status = RTEMS.Successful then
     167         return True;
     168      end if;
     169
     170      return False;
     171
     172   end Is_Status_Successful;
     173
    161174   --
    162175   --
  • c/src/ada/rtems.ads

    rd0f426a1 ra6b44a8a  
    1515
    1616with System;
     17with System.Storage_Elements; use System.Storage_Elements;
    1718with Interfaces;
    1819with Interfaces.C;
    1920
    2021package RTEMS is
     22
     23   Structure_Alignment : constant := 16;
    2124
    2225   --
     
    5861   Double_Units     : constant := 8;
    5962
    60    --
     63   Null_Address     : constant RTEMS.Address :=
     64      System.Storage_Elements.To_Address(0);
     65
    6166   --  More Types
    6267   --
     
    204209   --
    205210
    206    Default_Attributes : constant RTEMS.Attribute := 16#0000#;
    207 
    208    --Floating_Point :
    209    --No_Floating_Point :
     211   Default_Attributes  : constant RTEMS.Attribute := 16#00000000#;
     212   No_Floating_Point   : constant RTEMS.Attribute := 16#00000000#;
     213   Floating_Point      : constant RTEMS.Attribute := 16#00000001#;
     214   Local               : constant RTEMS.Attribute := 16#00000000#;
     215   Global              : constant RTEMS.Attribute := 16#00000002#;
     216   FIFO                : constant RTEMS.Attribute := 16#00000000#;
     217   Priority            : constant RTEMS.Attribute := 16#00000004#;
     218   Counting_Semaphore  : constant RTEMS.Attribute := 16#00000000#;
     219   Binary_Semaphore    : constant RTEMS.Attribute := 16#00000010#;
     220   No_Inherit_Priority : constant RTEMS.Attribute := 16#00000000#;
     221   Inherit_Priority    : constant RTEMS.Attribute := 16#00000020#;
     222   No_Priority_Ceiling : constant RTEMS.Attribute := 16#00000000#;
     223   Priority_Ceiling    : constant RTEMS.Attribute := 16#00000040#;
    210224
    211225   function Interrupt_Level (
     
    466480
    467481   --
     482   --  RTEMS Signals
     483   --
     484
     485   All_Signals : constant RTEMS.Signal_Set := 16#7FFFFFFF#;
     486   Signal_0    : constant RTEMS.Signal_Set := 16#00000001#;
     487   Signal_1    : constant RTEMS.Signal_Set := 16#00000002#;
     488   Signal_2    : constant RTEMS.Signal_Set := 16#00000004#;
     489   Signal_3    : constant RTEMS.Signal_Set := 16#00000008#;
     490   Signal_4    : constant RTEMS.Signal_Set := 16#00000010#;
     491   Signal_5    : constant RTEMS.Signal_Set := 16#00000020#;
     492   Signal_6    : constant RTEMS.Signal_Set := 16#00000040#;
     493   Signal_7    : constant RTEMS.Signal_Set := 16#00000080#;
     494   Signal_8    : constant RTEMS.Signal_Set := 16#00000100#;
     495   Signal_9    : constant RTEMS.Signal_Set := 16#00000200#;
     496   Signal_10   : constant RTEMS.Signal_Set := 16#00000400#;
     497   Signal_11   : constant RTEMS.Signal_Set := 16#00000800#;
     498   Signal_12   : constant RTEMS.Signal_Set := 16#00001000#;
     499   Signal_13   : constant RTEMS.Signal_Set := 16#00002000#;
     500   Signal_14   : constant RTEMS.Signal_Set := 16#00004000#;
     501   Signal_15   : constant RTEMS.Signal_Set := 16#00008000#;
     502   Signal_16   : constant RTEMS.Signal_Set := 16#00010000#;
     503   Signal_17   : constant RTEMS.Signal_Set := 16#00020000#;
     504   Signal_18   : constant RTEMS.Signal_Set := 16#00040000#;
     505   Signal_19   : constant RTEMS.Signal_Set := 16#00080000#;
     506   Signal_20   : constant RTEMS.Signal_Set := 16#00100000#;
     507   Signal_21   : constant RTEMS.Signal_Set := 16#00200000#;
     508   Signal_22   : constant RTEMS.Signal_Set := 16#00400000#;
     509   Signal_23   : constant RTEMS.Signal_Set := 16#00800000#;
     510   Signal_24   : constant RTEMS.Signal_Set := 16#01000000#;
     511   Signal_25   : constant RTEMS.Signal_Set := 16#02000000#;
     512   Signal_26   : constant RTEMS.Signal_Set := 16#04000000#;
     513   Signal_27   : constant RTEMS.Signal_Set := 16#08000000#;
     514   Signal_28   : constant RTEMS.Signal_Set := 16#10000000#;
     515   Signal_29   : constant RTEMS.Signal_Set := 16#20000000#;
     516   Signal_30   : constant RTEMS.Signal_Set := 16#40000000#;
     517   Signal_31   : constant RTEMS.Signal_Set := 16#80000000#;
     518
     519   --
    468520   --  RTEMS API Configuration Information
    469521   --
     
    710762   ) return Standard.Boolean;
    711763
     764   function Is_Status_Successful (
     765      Status  : in     RTEMS.Status_Codes
     766   ) return Standard.Boolean;
     767
    712768   --
    713769   --  RTEMS API
  • cpukit/ada/rtems.adb

    rd0f426a1 ra6b44a8a  
    159159   end Are_Statuses_Equal;
    160160
     161   function Is_Status_Successful (
     162      Status  : in     RTEMS.Status_Codes
     163   ) return Standard.Boolean is
     164   begin
     165
     166      if Status = RTEMS.Successful then
     167         return True;
     168      end if;
     169
     170      return False;
     171
     172   end Is_Status_Successful;
     173
    161174   --
    162175   --
  • cpukit/ada/rtems.ads

    rd0f426a1 ra6b44a8a  
    1515
    1616with System;
     17with System.Storage_Elements; use System.Storage_Elements;
    1718with Interfaces;
    1819with Interfaces.C;
    1920
    2021package RTEMS is
     22
     23   Structure_Alignment : constant := 16;
    2124
    2225   --
     
    5861   Double_Units     : constant := 8;
    5962
    60    --
     63   Null_Address     : constant RTEMS.Address :=
     64      System.Storage_Elements.To_Address(0);
     65
    6166   --  More Types
    6267   --
     
    204209   --
    205210
    206    Default_Attributes : constant RTEMS.Attribute := 16#0000#;
    207 
    208    --Floating_Point :
    209    --No_Floating_Point :
     211   Default_Attributes  : constant RTEMS.Attribute := 16#00000000#;
     212   No_Floating_Point   : constant RTEMS.Attribute := 16#00000000#;
     213   Floating_Point      : constant RTEMS.Attribute := 16#00000001#;
     214   Local               : constant RTEMS.Attribute := 16#00000000#;
     215   Global              : constant RTEMS.Attribute := 16#00000002#;
     216   FIFO                : constant RTEMS.Attribute := 16#00000000#;
     217   Priority            : constant RTEMS.Attribute := 16#00000004#;
     218   Counting_Semaphore  : constant RTEMS.Attribute := 16#00000000#;
     219   Binary_Semaphore    : constant RTEMS.Attribute := 16#00000010#;
     220   No_Inherit_Priority : constant RTEMS.Attribute := 16#00000000#;
     221   Inherit_Priority    : constant RTEMS.Attribute := 16#00000020#;
     222   No_Priority_Ceiling : constant RTEMS.Attribute := 16#00000000#;
     223   Priority_Ceiling    : constant RTEMS.Attribute := 16#00000040#;
    210224
    211225   function Interrupt_Level (
     
    466480
    467481   --
     482   --  RTEMS Signals
     483   --
     484
     485   All_Signals : constant RTEMS.Signal_Set := 16#7FFFFFFF#;
     486   Signal_0    : constant RTEMS.Signal_Set := 16#00000001#;
     487   Signal_1    : constant RTEMS.Signal_Set := 16#00000002#;
     488   Signal_2    : constant RTEMS.Signal_Set := 16#00000004#;
     489   Signal_3    : constant RTEMS.Signal_Set := 16#00000008#;
     490   Signal_4    : constant RTEMS.Signal_Set := 16#00000010#;
     491   Signal_5    : constant RTEMS.Signal_Set := 16#00000020#;
     492   Signal_6    : constant RTEMS.Signal_Set := 16#00000040#;
     493   Signal_7    : constant RTEMS.Signal_Set := 16#00000080#;
     494   Signal_8    : constant RTEMS.Signal_Set := 16#00000100#;
     495   Signal_9    : constant RTEMS.Signal_Set := 16#00000200#;
     496   Signal_10   : constant RTEMS.Signal_Set := 16#00000400#;
     497   Signal_11   : constant RTEMS.Signal_Set := 16#00000800#;
     498   Signal_12   : constant RTEMS.Signal_Set := 16#00001000#;
     499   Signal_13   : constant RTEMS.Signal_Set := 16#00002000#;
     500   Signal_14   : constant RTEMS.Signal_Set := 16#00004000#;
     501   Signal_15   : constant RTEMS.Signal_Set := 16#00008000#;
     502   Signal_16   : constant RTEMS.Signal_Set := 16#00010000#;
     503   Signal_17   : constant RTEMS.Signal_Set := 16#00020000#;
     504   Signal_18   : constant RTEMS.Signal_Set := 16#00040000#;
     505   Signal_19   : constant RTEMS.Signal_Set := 16#00080000#;
     506   Signal_20   : constant RTEMS.Signal_Set := 16#00100000#;
     507   Signal_21   : constant RTEMS.Signal_Set := 16#00200000#;
     508   Signal_22   : constant RTEMS.Signal_Set := 16#00400000#;
     509   Signal_23   : constant RTEMS.Signal_Set := 16#00800000#;
     510   Signal_24   : constant RTEMS.Signal_Set := 16#01000000#;
     511   Signal_25   : constant RTEMS.Signal_Set := 16#02000000#;
     512   Signal_26   : constant RTEMS.Signal_Set := 16#04000000#;
     513   Signal_27   : constant RTEMS.Signal_Set := 16#08000000#;
     514   Signal_28   : constant RTEMS.Signal_Set := 16#10000000#;
     515   Signal_29   : constant RTEMS.Signal_Set := 16#20000000#;
     516   Signal_30   : constant RTEMS.Signal_Set := 16#40000000#;
     517   Signal_31   : constant RTEMS.Signal_Set := 16#80000000#;
     518
     519   --
    468520   --  RTEMS API Configuration Information
    469521   --
     
    710762   ) return Standard.Boolean;
    711763
     764   function Is_Status_Successful (
     765      Status  : in     RTEMS.Status_Codes
     766   ) return Standard.Boolean;
     767
    712768   --
    713769   --  RTEMS API
Note: See TracChangeset for help on using the changeset viewer.