gcc/ada/s-interr-dummy.adb

   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --                  GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                --
   4 --                                                                          --
   5 --                     S Y S T E M . I N T E R R U P T S                    --
   6 --                                                                          --
   7 --                                  B o d y                                 --
   8 --                                                                          --
   9 --             Copyright (C) 1991-1994, Florida State University            --
  10 --                     Copyright (C) 1995-2008, AdaCore                     --
  11 --                                                                          --
  12 -- GNARL is free software; you can  redistribute it  and/or modify it under --
  13 -- terms of the  GNU General Public License as published  by the Free Soft- --
  14 -- ware  Foundation;  either version 2,  or (at your option) any later ver- --
  15 -- sion. GNARL is distributed in the hope that it will be useful, but WITH- --
  16 -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
  17 -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
  18 -- for  more details.  You should have  received  a copy of the GNU General --
  19 -- Public License  distributed with GNARL; see file COPYING.  If not, write --
  20 -- to  the  Free Software Foundation,  51  Franklin  Street,  Fifth  Floor, --
  21 -- Boston, MA 02110-1301, USA.                                              --
  22 --                                                                          --
  23 -- As a special exception,  if other files  instantiate  generics from this --
  24 -- unit, or you link  this unit with other files  to produce an executable, --
  25 -- this  unit  does not  by itself cause  the resulting  executable  to  be --
  26 -- covered  by the  GNU  General  Public  License.  This exception does not --
  27 -- however invalidate  any other reasons why  the executable file  might be --
  28 -- covered by the  GNU Public License.                                      --
  29 --                                                                          --
  30 -- GNARL was developed by the GNARL team at Florida State University.       --
  31 -- Extensive contributions were provided by Ada Core Technologies, Inc.     --
  32 --                                                                          --
  33 ------------------------------------------------------------------------------
  34
  35 --  This version is for systems that do not support interrupts (or signals)
  36
  37 package body System.Interrupts is
  38
  39    pragma Warnings (Off); -- kill warnings on unreferenced formals
  40
  41    use System.Tasking;
  42
  43    -----------------------
  44    -- Local Subprograms --
  45    -----------------------
  46
  47    procedure Unimplemented;
  48    --  This procedure raises a Program_Error with an appropriate message
  49    --  indicating that an unimplemented feature has been used.
  50
  51    --------------------
  52    -- Attach_Handler --
  53    --------------------
  54
  55    procedure Attach_Handler
  56      (New_Handler : Parameterless_Handler;
  57       Interrupt   : Interrupt_ID;
  58       Static      : Boolean := False)
  59    is
  60    begin
  61       Unimplemented;
  62    end Attach_Handler;
  63
  64    -----------------------------
  65    -- Bind_Interrupt_To_Entry --
  66    -----------------------------
  67
  68    procedure Bind_Interrupt_To_Entry
  69      (T       : Task_Id;
  70       E       : Task_Entry_Index;
  71       Int_Ref : System.Address)
  72    is
  73    begin
  74       Unimplemented;
  75    end Bind_Interrupt_To_Entry;
  76
  77    ---------------------
  78    -- Block_Interrupt --
  79    ---------------------
  80
  81    procedure Block_Interrupt (Interrupt : Interrupt_ID) is
  82    begin
  83       Unimplemented;
  84    end Block_Interrupt;
  85
  86    ---------------------
  87    -- Current_Handler --
  88    ---------------------
  89
  90    function Current_Handler
  91      (Interrupt : Interrupt_ID) return Parameterless_Handler
  92    is
  93    begin
  94       Unimplemented;
  95       return null;
  96    end Current_Handler;
  97
  98    --------------------
  99    -- Detach_Handler --
 100    --------------------
 101
 102    procedure Detach_Handler
 103      (Interrupt : Interrupt_ID;
 104       Static    : Boolean := False)
 105    is
 106    begin
 107       Unimplemented;
 108    end Detach_Handler;
 109
 110    ------------------------------
 111    -- Detach_Interrupt_Entries --
 112    ------------------------------
 113
 114    procedure Detach_Interrupt_Entries (T : Task_Id) is
 115    begin
 116       Unimplemented;
 117    end Detach_Interrupt_Entries;
 118
 119    ----------------------
 120    -- Exchange_Handler --
 121    ----------------------
 122
 123    procedure Exchange_Handler
 124      (Old_Handler : out Parameterless_Handler;
 125       New_Handler : Parameterless_Handler;
 126       Interrupt   : Interrupt_ID;
 127       Static      : Boolean := False)
 128    is
 129    begin
 130       Old_Handler := null;
 131       Unimplemented;
 132    end Exchange_Handler;
 133
 134    --------------
 135    -- Finalize --
 136    --------------
 137
 138    procedure Finalize (Object : in out Static_Interrupt_Protection) is
 139    begin
 140       Unimplemented;
 141    end Finalize;
 142
 143    -------------------------------------
 144    -- Has_Interrupt_Or_Attach_Handler --
 145    -------------------------------------
 146
 147    function Has_Interrupt_Or_Attach_Handler
 148      (Object : access Dynamic_Interrupt_Protection)
 149       return   Boolean
 150    is
 151       pragma Warnings (Off, Object);
 152    begin
 153       Unimplemented;
 154       return True;
 155    end Has_Interrupt_Or_Attach_Handler;
 156
 157    function Has_Interrupt_Or_Attach_Handler
 158      (Object : access Static_Interrupt_Protection)
 159       return   Boolean
 160    is
 161       pragma Warnings (Off, Object);
 162    begin
 163       Unimplemented;
 164       return True;
 165    end Has_Interrupt_Or_Attach_Handler;
 166
 167    ----------------------
 168    -- Ignore_Interrupt --
 169    ----------------------
 170
 171    procedure Ignore_Interrupt (Interrupt : Interrupt_ID) is
 172    begin
 173       Unimplemented;
 174    end Ignore_Interrupt;
 175
 176    ----------------------
 177    -- Install_Handlers --
 178    ----------------------
 179
 180    procedure Install_Handlers
 181      (Object       : access Static_Interrupt_Protection;
 182       New_Handlers : New_Handler_Array)
 183    is
 184    begin
 185       Unimplemented;
 186    end Install_Handlers;
 187
 188    ---------------------------------
 189    -- Install_Restricted_Handlers --
 190    ---------------------------------
 191
 192    procedure Install_Restricted_Handlers (Handlers : New_Handler_Array) is
 193    begin
 194       Unimplemented;
 195    end Install_Restricted_Handlers;
 196
 197    ----------------
 198    -- Is_Blocked --
 199    ----------------
 200
 201    function Is_Blocked (Interrupt : Interrupt_ID) return Boolean is
 202    begin
 203       Unimplemented;
 204       return True;
 205    end Is_Blocked;
 206
 207    -----------------------
 208    -- Is_Entry_Attached --
 209    -----------------------
 210
 211    function Is_Entry_Attached (Interrupt : Interrupt_ID) return Boolean is
 212    begin
 213       Unimplemented;
 214       return True;
 215    end Is_Entry_Attached;
 216
 217    -------------------------
 218    -- Is_Handler_Attached --
 219    -------------------------
 220
 221    function Is_Handler_Attached (Interrupt : Interrupt_ID) return Boolean is
 222    begin
 223       Unimplemented;
 224       return True;
 225    end Is_Handler_Attached;
 226
 227    ----------------
 228    -- Is_Ignored --
 229    ----------------
 230
 231    function Is_Ignored (Interrupt : Interrupt_ID) return Boolean is
 232    begin
 233       Unimplemented;
 234       return True;
 235    end Is_Ignored;
 236
 237    -----------------
 238    -- Is_Reserved --
 239    -----------------
 240
 241    function Is_Reserved (Interrupt : Interrupt_ID) return Boolean is
 242    begin
 243       Unimplemented;
 244       return True;
 245    end Is_Reserved;
 246
 247    ---------------
 248    -- Reference --
 249    ---------------
 250
 251    function Reference (Interrupt : Interrupt_ID) return System.Address is
 252    begin
 253       Unimplemented;
 254       return Interrupt'Address;
 255    end Reference;
 256
 257    --------------------------------
 258    -- Register_Interrupt_Handler --
 259    --------------------------------
 260
 261    procedure Register_Interrupt_Handler
 262      (Handler_Addr : System.Address)
 263    is
 264    begin
 265       Unimplemented;
 266    end Register_Interrupt_Handler;
 267
 268    -----------------------
 269    -- Unblock_Interrupt --
 270    -----------------------
 271
 272    procedure Unblock_Interrupt (Interrupt : Interrupt_ID) is
 273    begin
 274       Unimplemented;
 275    end Unblock_Interrupt;
 276
 277    ------------------
 278    -- Unblocked_By --
 279    ------------------
 280
 281    function Unblocked_By (Interrupt : Interrupt_ID)
 282      return System.Tasking.Task_Id is
 283    begin
 284       Unimplemented;
 285       return null;
 286    end Unblocked_By;
 287
 288    ------------------------
 289    -- Unignore_Interrupt --
 290    ------------------------
 291
 292    procedure Unignore_Interrupt (Interrupt : Interrupt_ID) is
 293    begin
 294       Unimplemented;
 295    end Unignore_Interrupt;
 296
 297    -------------------
 298    -- Unimplemented; --
 299    -------------------
 300
 301    procedure Unimplemented is
 302    begin
 303       raise Program_Error with "interrupts/signals not implemented";
 304    end Unimplemented;
 305
 306 end System.Interrupts;