From: Geert Bosch Date: Thu, 25 Oct 2001 19:56:43 +0000 (+0200) Subject: g-awk.ads: Move all pragma inlines next to the routine declarations. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0d2b8e0bd6c4af6e3c3ee59c099669f09c63f156;p=gcc.git 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 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 0d7dcbd5463..afaa3ae8ef4 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,19 +1,13 @@ -Tue Oct 23 19:00:51 2001 Richard Kenner +2001-10-25 Pascal Obry - * 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 +2001-10-22 Geert Bosch * Make-lang.in (gnattools, cross-gnattools): Remove gnatmem. -2001-10-19 Geert Bosh +2001-10-19 Geert Bosch * Makefile.in (tools, gnattools): Remove gnatmem. diff --git a/gcc/ada/g-awk.ads b/gcc/ada/g-awk.ads index 9ac484f6e82..4b9caa05d21 100644 --- 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;