2001-10-02 15:55:47 +02:00
|
|
|
------------------------------------------------------------------------------
|
|
|
|
-- --
|
|
|
|
-- GNAT RUN-TIME COMPONENTS --
|
|
|
|
-- --
|
|
|
|
-- A D A . T E X T _ I O . M O D U L A R _ A U X --
|
|
|
|
-- --
|
|
|
|
-- S p e c --
|
|
|
|
-- --
|
[multiple changes]
2014-08-01 Arnaud Charlet <charlet@adacore.com>
* exp_vfpt.adb, exp_vfpt.ads: Removed, no longer used.
* gcc-interface/Make-lang.in: Remove exp_vfpt.o
2014-08-01 Javier Miranda <miranda@adacore.com>
* inline.ads (Inlined_Calls, Backend_Calls,
Backend_Inlined_Subps, Backend_Not_Inlined_Subps): Declarations
moved to inline.adb (Cannot_Inline): Update documentation.
(Check_And_Build_Body_To_Inline): Renamed.
(List_Inlining_Info): Subprogram moved here from package exp_ch6.
* inline.adb (Check_Inlining_Restrictions): New local variable.
(Inlined_Calls, Backend_Calls, Backend_Inlined_Subps,
Backend_Not_Inlined_Subps): Declarations moved here
from inline.ads (Number_Of_Statements): Removed.
(Remove_Pragmas): Avoid duplicated version of this subprogram.
(Build_Body_To_Inline): Code cleanup.
(Build_Body_To_Inline.Has_Excluded_Statament): Removed.
(Check_And_Build_Body_To_Inline): Renamed. Code cleanup.
(Check_Body_To_Inline): Removed.
(Generate_Body_To_Inline): Renamed as Generate_Subprogram_Body.
(Has_Excluded_Declaration): No action if not
Check_Inlining_Restrictions.
(Has_Excluded_Statement): No action if not Check_Inlining_Restrictions.
(Initialize): Initialize the lists of inlined calls and subprograms.
(List_Inlining_Info): Subprogram moved here from package exp_ch6.
* sem_ch6.adb (Analyze_Subprogram_Body_Helper): Update call
to Check_And_Build_Body_To_Inline since it has been renamed as
Check_And_Split_Unconstrained_Function
* exp_ch6.ad[sb] (List_Inlining_Info): Subprogram moved to
package inline.
* gnat1drv.adb Update call to Inline.List_Inlining_Info.
2014-08-01 Vincent Celier <celier@adacore.com>
* debug.adb: Add documentation for new debug switch -ds.
* make.adb (List_Bad_Compilations): Do not issue any message
when switch -ds is specified.
* makeutl.adb (Fail_Program): Do not issue any message when
-ds is specified.
(Finish_Program): Ditto.
2014-08-01 Robert Dewar <dewar@adacore.com>
* s-exnint.adb, s-exnint.ads, s-wwdwch.ads, s-carsi8.ads,
s-casi32.ads, indepsw.adb, a-timoau.ads, s-explli.adb, s-explli.ads,
s-casi16.ads, s-powtab.ads, g-wistsp.ads, a-ztmoau.adb,
indepsw-gnu.adb, s-imgllb.ads, types.adb, gnat.ads, s-proinf.adb,
indepsw-aix.adb, s-caun64.ads, s-imgllw.ads, s-traces-default.adb,
s-vxwork-x86.ads, s-expllu.adb, s-exnlli.adb, s-exnlli.ads,
s-traces.adb, widechar.ads, stand.adb, s-expint.adb,
s-tratas-default.adb, s-expint.ads, s-geveop.ads, s-caun32.ads,
s-expuns.adb, s-mantis.adb, s-mantis.ads, s-caun16.ads, s-tasinf.adb,
s-memcop.ads, s-dsaser.ads, s-imgbiu.ads, a-szmzco.ads, g-strspl.ads,
s-casi64.ads, g-zstspl.ads, indepsw-mingw.adb, tree_io.adb,
s-boarop.ads, uname.ads, s-fore.adb, s-fore.ads, g-timsta.adb,
g-timsta.ads, s-assert.adb, s-vector.ads, s-tratas.adb,
s-tratas.ads: Minor fix to copyright notices.
2014-08-01 Eric Botcazou <ebotcazou@adacore.com>
* sinfo.ads: Remove long obsolete comment.
From-SVN: r213423
2014-08-01 10:32:27 +02:00
|
|
|
-- Copyright (C) 1992-2014, Free Software Foundation, Inc. --
|
2001-10-02 15:55:47 +02:00
|
|
|
-- --
|
|
|
|
-- 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- --
|
2009-04-09 17:00:19 +02:00
|
|
|
-- ware Foundation; either version 3, or (at your option) any later ver- --
|
2001-10-02 15:55:47 +02:00
|
|
|
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
|
|
|
|
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
|
2009-04-09 17:00:19 +02:00
|
|
|
-- or FITNESS FOR A PARTICULAR PURPOSE. --
|
|
|
|
-- --
|
|
|
|
-- As a special exception under Section 7 of GPL version 3, you are granted --
|
|
|
|
-- additional permissions described in the GCC Runtime Library Exception, --
|
|
|
|
-- version 3.1, as published by the Free Software Foundation. --
|
|
|
|
-- --
|
|
|
|
-- You should have received a copy of the GNU General Public License and --
|
|
|
|
-- a copy of the GCC Runtime Library Exception along with this program; --
|
|
|
|
-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
|
|
|
|
-- <http://www.gnu.org/licenses/>. --
|
2001-10-02 15:55:47 +02:00
|
|
|
-- --
|
|
|
|
-- GNAT was originally developed by the GNAT team at New York University. --
|
2002-10-23 09:33:35 +02:00
|
|
|
-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
2001-10-02 15:55:47 +02:00
|
|
|
-- --
|
|
|
|
------------------------------------------------------------------------------
|
|
|
|
|
|
|
|
-- This package contains the routines for Ada.Text_IO.Modular_IO that are
|
|
|
|
-- shared among separate instantiations of this package. The routines in
|
|
|
|
-- this package are identical semantically to those in Modular_IO itself,
|
|
|
|
-- except that the generic parameter Num has been replaced by Unsigned or
|
|
|
|
-- Long_Long_Unsigned, and the default parameters have been removed because
|
|
|
|
-- they are supplied explicitly by the calls from within the generic template.
|
|
|
|
|
|
|
|
with System.Unsigned_Types;
|
|
|
|
|
|
|
|
private package Ada.Text_IO.Modular_Aux is
|
|
|
|
|
|
|
|
package U renames System.Unsigned_Types;
|
|
|
|
|
|
|
|
procedure Get_Uns
|
|
|
|
(File : File_Type;
|
|
|
|
Item : out U.Unsigned;
|
|
|
|
Width : Field);
|
|
|
|
|
|
|
|
procedure Get_LLU
|
|
|
|
(File : File_Type;
|
|
|
|
Item : out U.Long_Long_Unsigned;
|
|
|
|
Width : Field);
|
|
|
|
|
|
|
|
procedure Put_Uns
|
|
|
|
(File : File_Type;
|
|
|
|
Item : U.Unsigned;
|
|
|
|
Width : Field;
|
|
|
|
Base : Number_Base);
|
|
|
|
|
|
|
|
procedure Put_LLU
|
|
|
|
(File : File_Type;
|
|
|
|
Item : U.Long_Long_Unsigned;
|
|
|
|
Width : Field;
|
|
|
|
Base : Number_Base);
|
|
|
|
|
|
|
|
procedure Gets_Uns
|
|
|
|
(From : String;
|
|
|
|
Item : out U.Unsigned;
|
|
|
|
Last : out Positive);
|
|
|
|
|
|
|
|
procedure Gets_LLU
|
|
|
|
(From : String;
|
|
|
|
Item : out U.Long_Long_Unsigned;
|
|
|
|
Last : out Positive);
|
|
|
|
|
|
|
|
procedure Puts_Uns
|
|
|
|
(To : out String;
|
|
|
|
Item : U.Unsigned;
|
|
|
|
Base : Number_Base);
|
|
|
|
|
|
|
|
procedure Puts_LLU
|
|
|
|
(To : out String;
|
|
|
|
Item : U.Long_Long_Unsigned;
|
|
|
|
Base : Number_Base);
|
|
|
|
|
|
|
|
end Ada.Text_IO.Modular_Aux;
|