gcc/ada/

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-maccod.ads

diff --git a/gcc/ada/s-maccod.ads b/gcc/ada/s-maccod.ads
index 8f66ffd..d0082ae 100644 (file)
--- a/gcc/ada/s-maccod.ads
+++ b/gcc/ada/s-maccod.ads
@@ -6,8 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                                                                          --
---          Copyright (C) 1992-2000 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2006, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT 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- --
@@ -17,8 +16,8 @@
 -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
 -- for  more details.  You should have  received  a copy of the GNU General --
 -- Public License  distributed with GNAT;  see file COPYING.  If not, write --
--- to  the Free Software Foundation,  59 Temple Place - Suite 330,  Boston, --
--- MA 02111-1307, USA.                                                      --
+-- to  the  Free Software Foundation,  51  Franklin  Street,  Fifth  Floor, --
+-- Boston, MA 02110-1301, USA.                                              --
 --                                                                          --
 -- As a special exception,  if other files  instantiate  generics from this --
 -- unit, or you link  this unit with other files  to produce an executable, --
@@ -32,12 +31,12 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
---  This package provides machine code support, both for instrinsic machine
+--  This package provides machine code support, both for intrinsic machine
 --  operations, and also for machine code statements. See GNAT documentation
 --  for full details.
 
 package System.Machine_Code is
-pragma Pure (Machine_Code);
+   pragma Pure;
 
    type Asm_Input_Operand  is private;
    type Asm_Output_Operand is private;
@@ -90,32 +89,28 @@ pragma Pure (Machine_Code);
      Outputs  : Asm_Output_Operand_List;
      Inputs   : Asm_Input_Operand_List;
      Clobber  : String  := "";
-     Volatile : Boolean := False)
-     return     Asm_Insn;
+     Volatile : Boolean := False) return Asm_Insn;
 
    function Asm (
      Template : String;
      Outputs  : Asm_Output_Operand := No_Output_Operands;
      Inputs   : Asm_Input_Operand_List;
      Clobber  : String  := "";
-     Volatile : Boolean := False)
-     return     Asm_Insn;
+     Volatile : Boolean := False) return Asm_Insn;
 
    function Asm (
      Template : String;
      Outputs  : Asm_Output_Operand_List;
      Inputs   : Asm_Input_Operand := No_Input_Operands;
      Clobber  : String  := "";
-     Volatile : Boolean := False)
-     return     Asm_Insn;
+     Volatile : Boolean := False) return Asm_Insn;
 
    function Asm (
      Template : String;
      Outputs  : Asm_Output_Operand := No_Output_Operands;
      Inputs   : Asm_Input_Operand  := No_Input_Operands;
      Clobber  : String  := "";
-     Volatile : Boolean := False)
-     return     Asm_Insn;
+     Volatile : Boolean := False) return Asm_Insn;
 
    pragma Import (Intrinsic, Asm);
 
@@ -125,7 +120,7 @@ private
    type Asm_Output_Operand is new Integer;
    type Asm_Insn           is new Integer;
    --  All three of these types are dummy types, to meet the requirements of
-   --  type consistenty. No values of these types are ever referenced.
+   --  type consistency. No values of these types are ever referenced.
 
    No_Input_Operands  : constant Asm_Input_Operand  := 0;
    No_Output_Operands : constant Asm_Output_Operand := 0;