diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-10 13:20:52 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-10 13:20:52 +0000 |
| commit | 4a8d5a0a2afc298c4e1acdc197e1889083b3e563 (patch) | |
| tree | 309d701a8f02c317380ed09fb46ab8e38d5c2cba /gcc/ada/xsnamest.adb | |
| parent | d563f41111240776b408a04da0c9c1761550566a (diff) | |
| download | gcc-4a8d5a0a2afc298c4e1acdc197e1889083b3e563.tar.gz | |
2009-04-10 Thomas Quinot <quinot@adacore.com>
* xsnamest.adb: Use XUtil to have uniform line endings (UNIX style) in
generated files on all platforms.
2009-04-10 Robert Dewar <dewar@adacore.com>
* sem_aux.adb: Minor reformatting
2009-04-10 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Access_Definition): Handle properly the case of a
protected function with formals that returns an anonymous access type.
2009-04-10 Thomas Quinot <quinot@adacore.com>
* sem_disp.adb: Minor reformatting
2009-04-10 Vasiliy Fofanov <fofanov@adacore.com>
* seh_init.c: Do not use the 32-bit specific implementation of
__gnat_install_SEH_handler on 64-bit Windows target (64-bit specific
version TBD).
2009-04-10 Jose Ruiz <ruiz@adacore.com>
* mlib-tgt-specific-xi.adb (Get_Target_Prefix): Target_Name may contain
a '/' at the end so we better use the complete target name to determine
whether it is a PowerPC 55xx target.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145898 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/xsnamest.adb')
| -rw-r--r-- | gcc/ada/xsnamest.adb | 26 |
1 files changed, 16 insertions, 10 deletions
diff --git a/gcc/ada/xsnamest.adb b/gcc/ada/xsnamest.adb index 77cb96589fc..2d6e8e97e08 100644 --- a/gcc/ada/xsnamest.adb +++ b/gcc/ada/xsnamest.adb @@ -35,18 +35,24 @@ with Ada.Strings.Unbounded.Text_IO; use Ada.Strings.Unbounded.Text_IO; with Ada.Strings.Maps; use Ada.Strings.Maps; with Ada.Strings.Maps.Constants; use Ada.Strings.Maps.Constants; with Ada.Text_IO; use Ada.Text_IO; +with Ada.Streams.Stream_IO; use Ada.Streams.Stream_IO; with GNAT.Spitbol; use GNAT.Spitbol; with GNAT.Spitbol.Patterns; use GNAT.Spitbol.Patterns; +with XUtil; use XUtil; + procedure XSnamesT is - InB : File_Type; - InT : File_Type; - OutS : File_Type; - OutB : File_Type; - InH : File_Type; - OutH : File_Type; + subtype VString is GNAT.Spitbol.VString; + + InS : Ada.Text_IO.File_Type; + InB : Ada.Text_IO.File_Type; + InH : Ada.Text_IO.File_Type; + + OutS : Ada.Streams.Stream_IO.File_Type; + OutB : Ada.Streams.Stream_IO.File_Type; + OutH : Ada.Streams.Stream_IO.File_Type; A, B : VString := Nul; Line : VString := Nul; @@ -131,7 +137,7 @@ procedure XSnamesT is if Header_Current_Symbol /= S then declare - Name2 : Vstring; + Name2 : VString; Pat : constant Pattern := "#define " & Header_Prefix (S).all & Break (' ') * Name2; @@ -175,7 +181,7 @@ procedure XSnamesT is -- Start of processing for XSnames begin - Open (InT, In_File, "snames.ads-tmpl"); + Open (InS, In_File, "snames.ads-tmpl"); Open (InB, In_File, "snames.adb-tmpl"); Open (InH, In_File, "snames.h-tmpl"); @@ -194,8 +200,8 @@ begin Put_Line (OutB, Line); - LoopN : while not End_Of_File (InT) loop - Line := Get_Line (InT); + LoopN : while not End_Of_File (InS) loop + Line := Get_Line (InS); if not Match (Line, Name_Ref) then Put_Line (OutS, Line); |