diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-18 11:55:47 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-18 11:55:47 +0000 |
| commit | c0d15e023ae983032e6ab5127cd39414c13ea9b3 (patch) | |
| tree | 4b33a5dc68585402508fa243369778006f1ade16 /gcc/ada/s-interr-dummy.adb | |
| parent | 24ded5c146bddd8b5847df85a951e757197b8a3e (diff) | |
| download | gcc-c0d15e023ae983032e6ab5127cd39414c13ea9b3.tar.gz | |
2005-03-17 Vasiliy Fofanov <fofanov@adacore.com>
* gnat_ugn.texi: Document gnatmem restriction
2005-03-17 Thomas Quinot <quinot@adacore.com>
* snames.adb: Document new TSS names introduced by exp_dist/exp_tss
cleanup
2005-03-17 Robert Dewar <dewar@adacore.com>
* s-interr.ads, s-interr.adb, sem_ch3.adb, prj.ads, prj.adb,
a-interr.adb, a-interr.ads, s-interr-sigaction.adb, s-interr-dummy.adb,
s-interr-vms.adb, s-interr-vxworks.adb: Minor reformatting
* casing.adb: Comment improvements
2005-03-17 Pascal Obry <obry@adacore.com>
* g-expect.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96678 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-interr-dummy.adb')
| -rw-r--r-- | gcc/ada/s-interr-dummy.adb | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/gcc/ada/s-interr-dummy.adb b/gcc/ada/s-interr-dummy.adb index 0702981ade3..01c3ba19b0f 100644 --- a/gcc/ada/s-interr-dummy.adb +++ b/gcc/ada/s-interr-dummy.adb @@ -7,7 +7,7 @@ -- B o d y -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2004, Ada Core Technologies -- +-- Copyright (C) 1995-2005 AdaCore -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -32,10 +32,7 @@ -- -- ------------------------------------------------------------------------------ --- This is an OS/2 version of this package. - --- This version is a stub, for systems that --- do not support interrupts (or signals). +-- This version is for systems that do not support interrupts (or signals) with Ada.Exceptions; @@ -93,8 +90,7 @@ package body System.Interrupts is --------------------- function Current_Handler - (Interrupt : Interrupt_ID) - return Parameterless_Handler + (Interrupt : Interrupt_ID) return Parameterless_Handler is begin Unimplemented; @@ -155,7 +151,6 @@ package body System.Interrupts is return Boolean is pragma Warnings (Off, Object); - begin Unimplemented; return True; @@ -166,7 +161,6 @@ package body System.Interrupts is return Boolean is pragma Warnings (Off, Object); - begin Unimplemented; return True; |