aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/sinput-p.ads
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2010-09-09 15:53:19 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2010-09-09 15:53:19 +0200
commit5fdc49eca660d130ec4815eb7a804aa7fd89773d (patch)
treee086c42c03e0ad00c16188e846a79c6649bb7102 /gcc/ada/sinput-p.ads
parentb100151b6d20180b9e11b259943fd8e63fdec865 (diff)
downloadgcc-5fdc49eca660d130ec4815eb7a804aa7fd89773d.zip
gcc-5fdc49eca660d130ec4815eb7a804aa7fd89773d.tar.gz
gcc-5fdc49eca660d130ec4815eb7a804aa7fd89773d.tar.bz2
[multiple changes]
2010-09-09 Robert Dewar <dewar@adacore.com> * sinput-p.ads: Minor comment update. 2010-09-09 Arnaud Charlet <charlet@adacore.com> * s-tpobop.adb, s-taenca.adb (Wait_For_Completion_With_Timeout): Reset Entry_Call.State if needed so that the call is marked as cancelled by Check_Pending_Actions_For_Entry_Call. (Timed_Protected_Entry_Call): Adjust calls to Defer/Under_Abort, since this procedure may be called from a controlled operation (Initialize/Finalize). 2010-09-09 Vadim Godunko <godunko@adacore.com> * impunit.adb: Correct spelling of package's name in the comment. From-SVN: r164101
Diffstat (limited to 'gcc/ada/sinput-p.ads')
-rw-r--r--gcc/ada/sinput-p.ads4
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sinput-p.ads b/gcc/ada/sinput-p.ads
index 8f925bb..112a6f7 100644
--- a/gcc/ada/sinput-p.ads
+++ b/gcc/ada/sinput-p.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2008, Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2010, 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- --
@@ -54,7 +54,7 @@ package Sinput.P is
-- 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 and
-- gprbuild to decide if a body without a spec in a project file needs to
- -- be compiled or not.
+ -- be compiled or not. Returns False if X = No_Source_File.
type Saved_Project_Scan_State is limited private;
-- Used to save project scan state in following two routines