diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-02-08 11:13:54 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-02-08 11:13:54 +0100 |
| commit | 7b50c4a3fab8576892a1358bfa08a99e7d510201 (patch) | |
| tree | ac74688e2712a1abbfa5739a283cc020bbff4d7a /gcc/ada/sinput.ads | |
| parent | f62054146e86e792b6ce061bd418b9a2384ae9a5 (diff) | |
| download | gcc-7b50c4a3fab8576892a1358bfa08a99e7d510201.zip gcc-7b50c4a3fab8576892a1358bfa08a99e7d510201.tar.gz gcc-7b50c4a3fab8576892a1358bfa08a99e7d510201.tar.bz2 | |
[multiple changes]
2012-02-08 Vincent Celier <celier@adacore.com>
* gcc-interface/Make-lang.in: Add g-byorma.o to gnatbind objects
(g-buorma is now imported by sinput).
Update dependencies.
* scn.adb (Initialize_Scanner): Call Check_For_BOM
* sinput-p.adb (Source_File_Is_Subunit): Call Check_For_BOM
* sinput.adb: New procedure Check_For_BOM
* sinput.ads: New procedure Check_For_BOM
2012-02-08 Vincent Pucci <pucci@adacore.com>
* impunit.adb: Dimension package names updated
* Makefile.rtl: s-dim added
* sem_dim.adb (Is_Procedure_Put_Call): minor changes
(Is_Dim_IO_Package_Instantiation): minor changes
* sem_dim.ads: minor changes in comments
* snames.ads-tmpl: Name_Dim added Name_Dim_Float_IO and
Name_Dim_Integer_IO removed
* s-dim.ads: New package. Define the dimension terminology.
* s-diflio.adb, s-diinio.adb, s-dimkio.ads, s-dimmks.ads,
* s-dmotpr.ads: Package names updated.
* s-diflio.ads, s-diinio.ads: Documentation added and package
names updated.
2012-02-08 Gary Dismukes <dismukes@adacore.com>
* gcc-interface/utils2.c (build_call_alloc_dealloc_proc): Revise test
for storage pools to test for an underlying record type rather than
testing Is_Tagged_Type, so that simple storage pools will be handled
the same as normal Ada storage pools.
From-SVN: r184004
Diffstat (limited to 'gcc/ada/sinput.ads')
| -rw-r--r-- | gcc/ada/sinput.ads | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/gcc/ada/sinput.ads b/gcc/ada/sinput.ads index 1d13f6e..816fa72 100644 --- a/gcc/ada/sinput.ads +++ b/gcc/ada/sinput.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2012, 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- -- @@ -712,6 +712,16 @@ package Sinput is -- Writes out internal tables to current tree file using the relevant -- Table.Tree_Write routines. + procedure Check_For_BOM; + -- Check if the current source starts with a BOM. Scan_Ptr needs to be at + -- the start of the current source. + -- If the current source starts with a recognized BOM, then some flags + -- such as Wide_Character_Encoding_Method are set accordingly. + -- An exception is raised if a BOM is found that indicates an unrecognized + -- format. + -- This procedure has no effect if there is no BOM at the beginning of the + -- current source. + private pragma Inline (File_Name); pragma Inline (First_Mapped_Line); |