diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-03-22 15:06:28 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-03-22 15:06:28 +0100 |
| commit | 24105bab8c2cf186720770b33176f0880136fa68 (patch) | |
| tree | 046250c44426ffdf888413277208b576e9375d91 /gcc/ada/scn.adb | |
| parent | ead61c1d430c015cba9f73466aba2c719791d7bc (diff) | |
| download | gcc-24105bab8c2cf186720770b33176f0880136fa68.zip gcc-24105bab8c2cf186720770b33176f0880136fa68.tar.gz gcc-24105bab8c2cf186720770b33176f0880136fa68.tar.bz2 | |
[multiple changes]
2004-03-22 Cyrille Comar <comar@act-europe.fr>
* ali.ads: Fix Comment about Dynamic_Elab.
* gnatls.adb (Output_Unit): Add output of many flags (Dynamic_Elab,
Has_RACW, Is_Generic, etc.)
(Output_Object, Gnatls): Take into account ALI files not attached to
an object.
2004-03-22 Vincent Celier <celier@gnat.com>
* gprep.adb: Change all String_Access to Name_Id
(Is_ASCII_Letter): new function
(Double_File_Name_Buffer): New procedure
(Preprocess_Infile_Name): New procedure
(Process_Files): New procedure
(Gnatprep): Check if output and input are existing directories.
Call Process_Files to do the real job.
2004-03-22 Robert Dewar <dewar@gnat.com>
* prj-env.adb, prj-nmsc.ads, prj-proc.ads,
s-stache.ads, s-stache.adb: Comment updates. Minor reformatting.
2004-03-22 Sergey Rybin <rybin@act-europe.fr>
* scn.adb (Contains): Add check for EOF, is needed for a degenerated
case when the source contains only comments.
2004-03-22 Ed Schonberg <schonberg@gnat.com>
* sem_ch10.adb (Analyze_Compilation_Unit): When generating a
declaration for a child subprogram body that acts as a spec, indicate
that the entity in the declaration needs debugging information.
* sem_ch3.adb (Complete_Private_Subtype): Do not build an underlying
full view if the subtype is created for a constrained record component;
gigi has enough information to construct the record, and there is no
place in the tree for the declaration.
* sem_ch6.adb (Build_Body_To_Inline): Use an internal name without
serial number for the dummy body that is built for analysis, to avoid
inconsistencies in the generation of internal names when compiling
with -gnatN.
2004-03-22 Thomas Quinot <quinot@act-europe.fr>
* sem_util.adb (Is_Object_Reference): A view conversion denotes an
object.
2004-03-22 GNAT Script <nobody@gnat.com>
* Make-lang.in: Makefile automatically updated
From-SVN: r79826
Diffstat (limited to 'gcc/ada/scn.adb')
| -rw-r--r-- | gcc/ada/scn.adb | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gcc/ada/scn.adb b/gcc/ada/scn.adb index b1e5707..0398551 100644 --- a/gcc/ada/scn.adb +++ b/gcc/ada/scn.adb @@ -134,8 +134,15 @@ package body Scn is SS : Source_Ptr; begin + -- Loop to check characters. This loop is terminated by end of + -- line, and also we need to check for the EOF case, to take + -- care of files containing only comments. + SP := Scan_Ptr; - while Source (SP) /= CR and then Source (SP) /= LF loop + while Source (SP) /= CR and then + Source (SP) /= LF and then + Source (SP) /= EOF + loop if Source (SP) = S (S'First) then SS := SP; CP := S'First; |