Changeset 6666ea88 in rtems


Ignore:
Timestamp:
06/03/97 18:07:30 (27 years ago)
Author:
Joel Sherrill <joel.sherrill@…>
Branches:
4.10, 4.11, 4.8, 4.9, 5, master
Children:
93bd518
Parents:
9bec37b
Message:

Added True and False constants for RTEMS.Boolean types. This necessitated
making sure every True/False? reference was fully qualified.

Files:
4 edited

Legend:

Unmodified
Added
Removed

  • c/src/ada/rtems.adb

    r9bec37b r6666ea88  
    3737   begin
    3838
    39       return 1;
     39      if Ada_Boolean = Standard.True then
     40         return RTEMS.True;
     41      end if;
     42
     43      return RTEMS.False;
    4044
    4145   end From_Ada_Boolean;
    … …  
    4650   begin
    4751
    48       return TRUE;
     52      if RTEMS_Boolean = RTEMS.True then
     53         return Standard.True;
     54      end if;
     55
     56      return Standard.False;
    4957
    5058   end To_Ada_Boolean;
    … …  
    6270      Milliseconds : RTEMS.Unsigned32
    6371   ) return RTEMS.Interval is
    64    begin
    65 
    66       return 0;
     72      Ticks_Per_Second : RTEMS.Interval;
     73      pragma Import (C, Ticks_Per_Second, "_TOD_Ticks_per_second");
     74
     75   begin
     76
     77      return Milliseconds / Ticks_Per_Second;
    6778
    6879   end Milliseconds_To_Ticks;
    … …  
    159170
    160171      if Status = Desired then
    161          return True;
     172         return Standard.True;
    162173      end if;
    163174
    164       return False;
     175      return Standard.False;
    165176
    166177   end Are_Statuses_Equal;
    … …  
    172183
    173184      if Status = RTEMS.Successful then
    174          return True;
     185         return Standard.True;
    175186      end if;
    176187
    177       return False;
     188      return Standard.False;
    178189
    179190   end Is_Status_Successful;
    … …  
    189200      return To_Unsigned32(Left) - To_Unsigned32(Right);
    190201   end Subtract;
     202
     203   function Are_Equal (
     204      Left   : in     RTEMS.Address;
     205      Right  : in     RTEMS.Address
     206   ) return Standard.Boolean is
     207      function To_Unsigned32 is
     208         new Ada.Unchecked_Conversion (System.Address, RTEMS.Unsigned32);
     209
     210   begin
     211      return (To_Unsigned32(Left) = To_Unsigned32(Right));
     212   end Are_Equal;
     213
    191214
    192215   --
    … …  
    560583   end Interrupt_Catch;
    561584
     585   -- XXX
    562586   function Interrupt_Disable
    563587   return RTEMS.ISR_Level is
    … …  
    583607   return RTEMS.Boolean is
    584608   begin
    585       return RTEMS.From_Ada_Boolean (True);
     609      return RTEMS.From_Ada_Boolean (Standard.True);
    586610   end Interrupt_Is_In_Progress;
    587611

  • c/src/ada/rtems.ads

    r9bec37b r6666ea88  
    782782   ) return RTEMS.Unsigned32;
    783783
     784   function Are_Equal (
     785      Left   : in     RTEMS.Address;
     786      Right  : in     RTEMS.Address
     787   ) return Standard.Boolean;
    784788   --
    785789   --  RTEMS API

  • cpukit/ada/rtems.adb

    r9bec37b r6666ea88  
    3737   begin
    3838
    39       return 1;
     39      if Ada_Boolean = Standard.True then
     40         return RTEMS.True;
     41      end if;
     42
     43      return RTEMS.False;
    4044
    4145   end From_Ada_Boolean;
    … …  
    4650   begin
    4751
    48       return TRUE;
     52      if RTEMS_Boolean = RTEMS.True then
     53         return Standard.True;
     54      end if;
     55
     56      return Standard.False;
    4957
    5058   end To_Ada_Boolean;
    … …  
    6270      Milliseconds : RTEMS.Unsigned32
    6371   ) return RTEMS.Interval is
    64    begin
    65 
    66       return 0;
     72      Ticks_Per_Second : RTEMS.Interval;
     73      pragma Import (C, Ticks_Per_Second, "_TOD_Ticks_per_second");
     74
     75   begin
     76
     77      return Milliseconds / Ticks_Per_Second;
    6778
    6879   end Milliseconds_To_Ticks;
    … …  
    159170
    160171      if Status = Desired then
    161          return True;
     172         return Standard.True;
    162173      end if;
    163174
    164       return False;
     175      return Standard.False;
    165176
    166177   end Are_Statuses_Equal;
    … …  
    172183
    173184      if Status = RTEMS.Successful then
    174          return True;
     185         return Standard.True;
    175186      end if;
    176187
    177       return False;
     188      return Standard.False;
    178189
    179190   end Is_Status_Successful;
    … …  
    189200      return To_Unsigned32(Left) - To_Unsigned32(Right);
    190201   end Subtract;
     202
     203   function Are_Equal (
     204      Left   : in     RTEMS.Address;
     205      Right  : in     RTEMS.Address
     206   ) return Standard.Boolean is
     207      function To_Unsigned32 is
     208         new Ada.Unchecked_Conversion (System.Address, RTEMS.Unsigned32);
     209
     210   begin
     211      return (To_Unsigned32(Left) = To_Unsigned32(Right));
     212   end Are_Equal;
     213
    191214
    192215   --
    … …  
    560583   end Interrupt_Catch;
    561584
     585   -- XXX
    562586   function Interrupt_Disable
    563587   return RTEMS.ISR_Level is
    … …  
    583607   return RTEMS.Boolean is
    584608   begin
    585       return RTEMS.From_Ada_Boolean (True);
     609      return RTEMS.From_Ada_Boolean (Standard.True);
    586610   end Interrupt_Is_In_Progress;
    587611

  • cpukit/ada/rtems.ads

    r9bec37b r6666ea88  
    782782   ) return RTEMS.Unsigned32;
    783783
     784   function Are_Equal (
     785      Left   : in     RTEMS.Address;
     786      Right  : in     RTEMS.Address
     787   ) return Standard.Boolean;
    784788   --
    785789   --  RTEMS API
Note: See TracChangeset for help on using the changeset viewer.