diff options
Diffstat (limited to 'gcc/ada/alfa_test.adb')
| -rw-r--r-- | gcc/ada/alfa_test.adb | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/gcc/ada/alfa_test.adb b/gcc/ada/alfa_test.adb index 40c18a8..c0cf37e 100644 --- a/gcc/ada/alfa_test.adb +++ b/gcc/ada/alfa_test.adb @@ -23,23 +23,23 @@ -- -- ------------------------------------------------------------------------------ --- This utility program is used to test proper operation of the Get_ALFA and --- Put_ALFA units. To run it, compile any source file with switch -gnatd.E or --- -gnatd.F to get an ALI file file.ALI containing ALFA information. Then run +-- This utility program is used to test proper operation of the Get_Alfa and +-- Put_Alfa units. To run it, compile any source file with switch -gnatd.E or +-- -gnatd.F to get an ALI file file.ALI containing Alfa information. Then run -- this utility using: --- ALFA_Test file.ali +-- Alfa_Test file.ali --- This test will read the ALFA information from the ALI file, and use --- Get_ALFA to store this in binary form in the internal tables in ALFA. Then --- Put_ALFA is used to write the information from these tables back into text --- form. This output is compared with the original ALFA information in the ALI +-- This test will read the Alfa information from the ALI file, and use +-- Get_Alfa to store this in binary form in the internal tables in Alfa. Then +-- Put_Alfa is used to write the information from these tables back into text +-- form. This output is compared with the original Alfa information in the ALI -- file and the two should be identical. If not an error message is output. -with Get_ALFA; -with Put_ALFA; +with Get_Alfa; +with Put_Alfa; -with ALFA; use ALFA; +with Alfa; use Alfa; with Types; use Types; with Ada.Command_Line; use Ada.Command_Line; @@ -47,7 +47,7 @@ with Ada.Streams; use Ada.Streams; with Ada.Streams.Stream_IO; use Ada.Streams.Stream_IO; with Ada.Text_IO; -procedure ALFA_Test is +procedure Alfa_Test is Infile : File_Type; Outfile_1 : File_Type; Outfile_2 : File_Type; @@ -133,8 +133,8 @@ begin end if; end Put_Char; - -- Subprograms used by Get_ALFA (these also copy the output to Outfile_1 - -- for later comparison with the output generated by Put_ALFA). + -- Subprograms used by Get_Alfa (these also copy the output to Outfile_1 + -- for later comparison with the output generated by Put_Alfa). function Getc return Character; function Nextc return Character; @@ -180,7 +180,7 @@ begin C := Getc; end Skipc; - -- Subprograms used by Put_ALFA, which write information to Outfile_2 + -- Subprograms used by Put_Alfa, which write information to Outfile_2 function Write_Info_Col return Positive; procedure Write_Info_Char (C : Character); @@ -237,10 +237,10 @@ begin Write_Info_Char (LF); end Write_Info_Terminate; - -- Local instantiations of Put_ALFA and Get_ALFA + -- Local instantiations of Put_Alfa and Get_Alfa - procedure Get_ALFA_Info is new Get_ALFA; - procedure Put_ALFA_Info is new Put_ALFA; + procedure Get_Alfa_Info is new Get_Alfa; + procedure Put_Alfa_Info is new Put_Alfa; -- Start of processing for Process @@ -267,15 +267,15 @@ begin Set_Index (Infile, Index (Infile) - 1); - -- Read ALFA information to internal ALFA tables, also copying ALFA info + -- Read Alfa information to internal Alfa tables, also copying Alfa info -- to Outfile_1. - Initialize_ALFA_Tables; - Get_ALFA_Info; + Initialize_Alfa_Tables; + Get_Alfa_Info; - -- Write ALFA information from internal ALFA tables to Outfile_2 + -- Write Alfa information from internal Alfa tables to Outfile_2 - Put_ALFA_Info; + Put_Alfa_Info; -- Junk blank line (see comment at end of Lib.Writ) @@ -329,4 +329,4 @@ begin exception when Stop => null; -end ALFA_Test; +end Alfa_Test; |