diff options
Diffstat (limited to 'gcc-4.4.3/gcc/ada/sinput-p.adb')
| -rw-r--r-- | gcc-4.4.3/gcc/ada/sinput-p.adb | 121 |
1 files changed, 0 insertions, 121 deletions
diff --git a/gcc-4.4.3/gcc/ada/sinput-p.adb b/gcc-4.4.3/gcc/ada/sinput-p.adb deleted file mode 100644 index b57c73bf9..000000000 --- a/gcc-4.4.3/gcc/ada/sinput-p.adb +++ /dev/null @@ -1,121 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT COMPILER COMPONENTS -- --- -- --- S I N P U T . P -- --- -- --- B o d y -- --- -- --- Copyright (C) 1992-2008, Free Software Foundation, 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- -- --- ware Foundation; either version 3, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- --- for more details. You should have received a copy of the GNU General -- --- Public License distributed with GNAT; see file COPYING3. If not, go to -- --- http://www.gnu.org/licenses for a complete copy of the license. -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - -with Prj.Err; -with Sinput.C; - -package body Sinput.P is - - First : Boolean := True; - -- Flag used when Load_Project_File is called the first time, - -- to set Main_Source_File. - -- The flag is reset to False at the first call to Load_Project_File. - -- Calling Reset_First sets it back to True. - - ----------------------- - -- Load_Project_File -- - ----------------------- - - function Load_Project_File (Path : String) return Source_File_Index is - X : Source_File_Index; - - begin - X := Sinput.C.Load_File (Path); - - if First then - Main_Source_File := X; - First := False; - end if; - - return X; - end Load_Project_File; - - ----------------- - -- Reset_First -- - ----------------- - - procedure Reset_First is - begin - First := True; - end Reset_First; - - -------------------------------- - -- Restore_Project_Scan_State -- - -------------------------------- - - procedure Restore_Project_Scan_State - (Saved_State : Saved_Project_Scan_State) - is - begin - Restore_Scan_State (Saved_State.Scan_State); - Source := Saved_State.Source; - Current_Source_File := Saved_State.Current_Source_File; - end Restore_Project_Scan_State; - - ----------------------------- - -- Save_Project_Scan_State -- - ----------------------------- - - procedure Save_Project_Scan_State - (Saved_State : out Saved_Project_Scan_State) - is - begin - Save_Scan_State (Saved_State.Scan_State); - Saved_State.Source := Source; - Saved_State.Current_Source_File := Current_Source_File; - end Save_Project_Scan_State; - - ---------------------------- - -- Source_File_Is_Subunit -- - ---------------------------- - - function Source_File_Is_Subunit (X : Source_File_Index) return Boolean is - begin - Prj.Err.Scanner.Initialize_Scanner (X); - - -- No error for special characters that are used for preprocessing - - Prj.Err.Scanner.Set_Special_Character ('#'); - Prj.Err.Scanner.Set_Special_Character ('$'); - - -- We scan past junk to the first interesting compilation unit - -- token, to see if it is SEPARATE. We ignore WITH keywords during - -- this and also PRIVATE. The reason for ignoring PRIVATE is that - -- it handles some error situations, and also to handle PRIVATE WITH - -- in Ada 2005 mode. - - while Token = Tok_With - or else Token = Tok_Private - or else (Token not in Token_Class_Cunit and then Token /= Tok_EOF) - loop - Prj.Err.Scanner.Scan; - end loop; - - Prj.Err.Scanner.Reset_Special_Characters; - - return Token = Tok_Separate; - end Source_File_Is_Subunit; - -end Sinput.P; |