diff options
Diffstat (limited to 'gcc/ada/sinput-p.ads')
-rw-r--r-- | gcc/ada/sinput-p.ads | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gcc/ada/sinput-p.ads b/gcc/ada/sinput-p.ads index 1cc19b378b8..0ebf8f646c7 100644 --- a/gcc/ada/sinput-p.ads +++ b/gcc/ada/sinput-p.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002, 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- -- @@ -37,6 +37,15 @@ package Sinput.P is -- Load into memory the source of a project source file. -- Initialize the Scans state. + function Source_File_Is_Subunit (X : Source_File_Index) return Boolean; + -- This function determines if a source file represents a subunit. It + -- works by scanning for the first compilation unit token, and returning + -- True if it is the token SEPARATE. It will return False otherwise, + -- meaning that the file cannot possibly be a legal subunit. This + -- function does NOT do a complete parse of the file, or build a + -- tree. It is used in gnatmake to decide if a body without a spec + -- in a project file needs to be compiled or not. + type Saved_Project_Scan_State is limited private; -- Used to save project scan state in following two routines |