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

	 declarations. This is more uniform with other GNAT spec.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46495 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 0d7dcbd..afaa3ae 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,19 +1,13 @@
-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.
 

diff --git a/gcc/ada/g-awk.ads b/gcc/ada/g-awk.ads
index 9ac484f..4b9caa0 100644 (file)
--- a/gcc/ada/g-awk.ads
+++ b/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;