diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2003-11-21 11:46:37 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2003-11-21 11:46:37 +0100 |
| commit | f1f9fe3022a9f1d4cf964e13d3ba0b7c323128ba (patch) | |
| tree | 132085c540a6cf57220b0a3538e1675d09a58a83 /gcc/ada/scn.adb | |
| parent | d91edf86b0cb904a88fc086d9580fcfa8ee53d3f (diff) | |
| download | gcc-f1f9fe3022a9f1d4cf964e13d3ba0b7c323128ba.zip gcc-f1f9fe3022a9f1d4cf964e13d3ba0b7c323128ba.tar.gz gcc-f1f9fe3022a9f1d4cf964e13d3ba0b7c323128ba.tar.bz2 | |
[multiple changes]
2003-11-20 Jerome Guitton <guitton@act-europe.fr>
* 5ztiitho.adb: Remove an unreferenced variable.
2003-11-20 Thomas Quinot <quinot@act-europe.fr>
* adaint.c: For FreeBSD, use mkstemp.
2003-11-20 Arnaud Charlet <charlet@act-europe.fr>
* gnatlbr.adb: Now reference Gnat_Static_Version_String.
2003-11-20 Robert Dewar <dewar@gnat.com>
* bld.adb: Remove useless USE of gnatvsn
* gnatchop.adb: Minor reformatting
Clean up version handling to be more consistent
* gnatxref.adb: Minor reformatting
* gprcmd.adb: Minor reformatting
Fix output of copyright to be more consistent with other tools
2003-11-20 Vincent Celier <celier@gnat.com>
* make.adb (Scan_Make_Args): Do not transmit --RTS= to gnatlink
2003-11-20 Sergey Rybin <rybin@act-europe.fr>
* atree.adb (Initialize): Add initializations for global variables
used in New_Copy_Tree.
* cstand.adb (Create_Standard): Add call to Initialize_Scanner (with
Internal_Source_File as the actual).
Put the set of statements creating Any_Character before the set of
statements creating Any_Array to have Any_Character fully initialized
when it is used in creating Any_Array.
* scn.adb (Initialize_Scanner): Do not set Comes_From_Source ON and do
not call Scan in case if the actual is Internal_Source_File
Add 2003 to copyright note.
* sinput.adb (Source_First, Source_Last, Source_Text): Add code for
processing Internal_Source_File.
* types.ads: Add the constant Internal_Source_File representing the
source buffer for artificial source-code-like strings created within
the compiler (the definition of Source_File_Index is changed).
From-SVN: r73798
Diffstat (limited to 'gcc/ada/scn.adb')
| -rw-r--r-- | gcc/ada/scn.adb | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/gcc/ada/scn.adb b/gcc/ada/scn.adb index 91908d3..1e829e4 100644 --- a/gcc/ada/scn.adb +++ b/gcc/ada/scn.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2003 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- -- @@ -264,7 +264,9 @@ package body Scn is -- Set default for Comes_From_Source. All nodes built now until we -- reenter the analyzer will have Comes_From_Source set to True - Set_Comes_From_Source_Default (True); + if Index /= Internal_Source_File then + Set_Comes_From_Source_Default (True); + end if; -- Check license if GNAT type header possibly present @@ -278,7 +280,9 @@ package body Scn is -- call Scan. Scan initial token (note this initializes Prev_Token, -- Prev_Token_Ptr). - Scan; + if Index /= Internal_Source_File then + Scan; + end if; -- Clear flags for reserved words used as indentifiers |