2004-10-04 Vincent Celier <celier@gnat.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / a-intsig.adb

diff --git a/gcc/ada/a-intsig.adb b/gcc/ada/a-intsig.adb
index e7d6d56..781290e 100644 (file)
--- a/gcc/ada/a-intsig.adb
+++ b/gcc/ada/a-intsig.adb
@@ -6,8 +6,7 @@
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --
---                                                                          --
---              Copyright (C) 2000 Free Software Foundation, Inc.           --
+--           Copyright (C) 2000-2004 Free Software Foundation, Inc.         --
 --                                                                          --
 -- 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- --
@@ -27,18 +26,17 @@
 -- however invalidate  any other reasons why  the executable file  might be --
 -- covered by the  GNU Public License.                                      --
 --                                                                          --
--- GNARL was developed by the GNARL team at Florida State University. It is --
--- now maintained by Ada Core Technologies Inc. in cooperation with Florida --
--- State University (http://www.gnat.com).                                  --
+-- GNARL was developed by the GNARL team at Florida State University.       --
+-- Extensive contributions were provided by Ada Core Technologies, Inc.     --
 --                                                                          --
 ------------------------------------------------------------------------------
---
+
 with System.Interrupt_Management.Operations;
 package body Ada.Interrupts.Signal is
 
-   -------------------------
-   --  Generate_Interrupt --
-   -------------------------
+   ------------------------
+   -- Generate_Interrupt --
+   ------------------------
 
    procedure Generate_Interrupt (Interrupt : Interrupt_ID) is
    begin