Mercurial > hg > CbC > CbC_gcc

comparison gcc/ada/adabkend.adb @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
4 -- -- 4 -- --
5 -- A D A B K E N D -- 5 -- A D A B K E N D --
6 -- -- 6 -- --
7 -- B o d y -- 7 -- B o d y --
8 -- -- 8 -- --
9 -- Copyright (C) 2001-2017, AdaCore -- 9 -- Copyright (C) 2001-2018, AdaCore --
10 -- -- 10 -- --
11 -- GNAT is free software; you can redistribute it and/or modify it under -- 11 -- GNAT is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- -- 12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 3, or (at your option) any later ver- -- 13 -- ware Foundation; either version 3, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
65 Current_Error_Node := Empty; 65 Current_Error_Node := Empty;
66 66
67 Driver (Lib.Cunit (Types.Main_Unit)); 67 Driver (Lib.Cunit (Types.Main_Unit));
68 end Call_Back_End; 68 end Call_Back_End;
69 69
70 ------------------------ 70 -----------------------------
71 -- Scan_Compiler_Args -- 71 -- Scan_Compiler_Arguments --
72 ------------------------ 72 -----------------------------
73 73
74 procedure Scan_Compiler_Arguments is 74 procedure Scan_Compiler_Arguments is
75 Output_File_Name_Seen : Boolean := False; 75 Output_File_Name_Seen : Boolean := False;
76 -- Set to True after having scanned the file_name for switch 76 -- Set to True after having scanned the file_name for switch
77 -- "-gnatO file_name" 77 -- "-gnatO file_name"