g-awk.ads: Move all pragma inlines next to the routine declarations.

	* g-awk.ads: Move all pragma inlines next to the routine
	 declarations. This is more uniform with other GNAT spec.

From-SVN: r46495

gcc/ada/ChangeLog

-Tue Oct 23 19:00:51 2001  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
+2001-10-25  Pascal Obry <obry@gnat.com>
 
-	* misc.c (gnat_init, gnat_init_options, gnat_decode_option):
-	Now static.
-	(LANG_HOOKS_GET_ALIAS_SET): New macro.
-	(gnat_expand_expr, case NULL_EXPR): Always call set_mem_attributes.
-	(gnat_get_alias_set): Renamed from lang_get_alias_set.
-	* gigi.h (gnat_decode_option, gnat_init_option, gnat_init):
-	Delete declarations.
-	(gnat_get_alias_set): Likewise.
+	* g-awk.ads: Move all pragma inlines next to the routine 
+	 declarations. This is more uniform with other GNAT spec.
 
-2001-10-22  Geert Bosh  <bosch@gnat.com>
+2001-10-22  Geert Bosch  <bosch@gnat.com>
 
 	* Make-lang.in (gnattools, cross-gnattools): Remove gnatmem.
 
-2001-10-19  Geert Bosh  <bosch@gnat.com>
+2001-10-19  Geert Bosch  <bosch@gnat.com>
 
 	* Makefile.in (tools, gnattools): Remove gnatmem.
 

gcc/ada/g-awk.ads

@@ -6,9 +6,9 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                            $Revision: 1.10 $
+--                            $Revision$
 --                                                                          --
---              Copyright (C) 2000 Ada Core Technologies, Inc.              --
+--           Copyright (C) 2000-2001 Ada Core Technologies, 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- --
@@ -297,6 +297,7 @@ package GNAT.AWK is
    function Number_Of_Fields
      (Session : Session_Type := Current_Session)
       return    Count;
+   pragma Inline (Number_Of_Fields);
    --  Returns the number of fields in the current record. It returns 0 when
    --  no file is being processed.
 
@@ -309,6 +310,7 @@ package GNAT.AWK is
    function Number_Of_File_Lines
      (Session : Session_Type := Current_Session)
       return    Count;
+   pragma Inline (Number_Of_File_Lines);
    --  Returns the current line number in the processed file. It returns 0 when
    --  no file is being processed.
 
@@ -320,6 +322,7 @@ package GNAT.AWK is
    function Number_Of_Lines
      (Session : Session_Type := Current_Session)
       return    Count;
+   pragma Inline (Number_Of_Lines);
    --  Returns the number of line processed until now. This is equal to number
    --  of line in each already processed file plus FNR. It returns 0 when
    --  no file is being processed.
@@ -333,6 +336,7 @@ package GNAT.AWK is
    function Number_Of_Files
      (Session : Session_Type := Current_Session)
       return    Natural;
+   pragma Inline (Number_Of_Files);
    --  Returns the number of files associated with Session. This is the total
    --  number of files added with Add_File and Add_Files services.
 
@@ -523,10 +527,10 @@ package GNAT.AWK is
    --  This procedure can be used from a subprogram called by procedure Parse
    --  or by an instantiation of For_Every_Line (see below).
 
-
    function End_Of_Data
      (Session : Session_Type := Current_Session)
       return    Boolean;
+   pragma Inline (End_Of_Data);
    --  Returns True if there is no more data to be processed in Session. It
    --  means that the latest session's file is being processed and that
    --  there is no more data to be read in this file (End_Of_File is True).
@@ -534,6 +538,7 @@ package GNAT.AWK is
    function End_Of_File
      (Session : Session_Type := Current_Session)
       return    Boolean;
+   pragma Inline (End_Of_File);
    --  Returns True when there is no more data to be processed on the current
    --  session's file.
 
@@ -569,13 +574,6 @@ package GNAT.AWK is
    --  open.
 
 private
-   pragma Inline (End_Of_File);
-   pragma Inline (End_Of_Data);
-   pragma Inline (Number_Of_Fields);
-   pragma Inline (Number_Of_Lines);
-   pragma Inline (Number_Of_Files);
-   pragma Inline (Number_Of_File_Lines);
-
    type Session_Data;
    type Session_Data_Access is access Session_Data;