diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-16 14:26:58 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-16 14:26:58 +0200 |
| commit | 673369608c82ea332809a5e5141b1ab659cb56d1 (patch) | |
| tree | 169785dc0648022f79f9c1abb5d1b9da85e4201b /gcc/ada/a-direct.adb | |
| parent | e01934b794c8fb78c38e7ca26fe7a1d0bfb3e7f4 (diff) | |
| download | gcc-673369608c82ea332809a5e5141b1ab659cb56d1.tar.gz | |
[multiple changes]
2012-07-16 Robert Dewar <dewar@adacore.com>
* a-direct.adb, g-dirope.adb: Minor reformatting.
2012-07-16 Tristan Gingold <gingold@adacore.com>
* a-except.ads, a-except-2005.ads: Remove outdated comment.
2012-07-16 Robert Dewar <dewar@adacore.com>
* sem_ch6.adb (Subprogram_Name_Greater): Fix algorithm to
conform to documentation.
2012-07-16 Ed Schonberg <schonberg@adacore.com>
* gnat1drv.adb (Check_Library_Items): Removed, no longer used.
2012-07-16 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Array_Type_Declaration): if component type has
invariants, the array type itself requires an invariant procedure.
* exp_ch3.ads, exp_ch3.adb (Build_Array_Invariant_Proc): new
procedure, to build a checking procedure that applies the
invariant check on some type T to each component of an array
of T's. Code is similar to the construction of the init_proc
for an array, and handles multidimensional arrays by recursing
over successive dimensions.
2012-07-16 Hristian Kirtchev <kirtchev@adacore.com>
* g-debpoo.adb: Revert previous change.
2012-07-16 Hristian Kirtchev <kirtchev@adacore.com>
* freeze.adb (Freeze_Entity): Insert the itype reference to a
library-level class-wide subtype after the freeze node of the
equivalent record type.
From-SVN: r189526
Diffstat (limited to 'gcc/ada/a-direct.adb')
| -rw-r--r-- | gcc/ada/a-direct.adb | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/gcc/ada/a-direct.adb b/gcc/ada/a-direct.adb index 42a19b0be89..e166c9f8f32 100644 --- a/gcc/ada/a-direct.adb +++ b/gcc/ada/a-direct.adb @@ -408,25 +408,22 @@ package body Ada.Directories is -- Acquire setting of encoding parameter declare - Formstr : constant String := To_Lower (Form); + Formstr : constant String := To_Lower (Form); Encoding : CRTL.Filename_Encoding; -- Filename encoding specified into the form parameter - V1, V2 : Natural; + V1, V2 : Natural; begin Form_Parameter (Formstr, "encoding", V1, V2); if V1 = 0 then Encoding := CRTL.Unspecified; - elsif Formstr (V1 .. V2) = "utf8" then Encoding := CRTL.UTF8; - elsif Formstr (V1 .. V2) = "8bits" then Encoding := CRTL.ASCII_8bits; - else raise Use_Error with "invalid Form"; end if; |