diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-25 19:56:43 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-25 19:56:43 +0000 |
| commit | daeadc187ed689046ba6fd674120f57498592cbc (patch) | |
| tree | 917fb7d222168a5f60f3dcca145e8f98f17220cd /gcc/ada | |
| parent | 11472d75914198671c2b7e494331e387860066c4 (diff) | |
| download | gcc-daeadc187ed689046ba6fd674120f57498592cbc.tar.gz | |
* 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
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 16 | ||||
| -rw-r--r-- | gcc/ada/g-awk.ads | 18 |
2 files changed, 13 insertions, 21 deletions
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 <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 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; |