diff options
Diffstat (limited to 'gcc/ada/a-wtcstr.adb')
| -rw-r--r-- | gcc/ada/a-wtcstr.adb | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/gcc/ada/a-wtcstr.adb b/gcc/ada/a-wtcstr.adb index ff463104c7d..c69b92ec896 100644 --- a/gcc/ada/a-wtcstr.adb +++ b/gcc/ada/a-wtcstr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-1998 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2002 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- -- @@ -61,17 +61,21 @@ package body Ada.Wide_Text_IO.C_Streams is procedure Open (File : in out File_Type; - Mode : in File_Mode; - C_Stream : in FILEs; - Form : in String := "") + Mode : File_Mode; + C_Stream : FILEs; + Form : String := ""; + Name : String := "") is - File_Control_Block : Wide_Text_AFCB; + Dummy_File_Control_Block : Wide_Text_AFCB; + pragma Warnings (Off, Dummy_File_Control_Block); + -- Yes, we know this is never assigned a value, only the tag + -- is used for dispatching purposes, so that's expected. begin FIO.Open (File_Ptr => AP (File), - Dummy_FCB => File_Control_Block, + Dummy_FCB => Dummy_File_Control_Block, Mode => To_FCB (Mode), - Name => "", + Name => Name, Form => Form, Amethod => 'W', Creat => False, |
