diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-12 12:58:01 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-04-12 12:58:01 +0000 |
| commit | 7d9794f3928b4421d1fac666345734e7f4db4ed7 (patch) | |
| tree | 6db6862ab6efa3907d870a62cf3e6efc4c96409e /gcc/ada/i-cstrea.ads | |
| parent | 0b07d69c7934a5bebb7e10e7cab8c8559eca19e5 (diff) | |
| download | gcc-7d9794f3928b4421d1fac666345734e7f4db4ed7.tar.gz | |
2013-04-12 Robert Dewar <dewar@adacore.com>
* opt.ads (Style_Check_Main): New switch.
* sem.adb (Semantics): Set Style_Check flag properly for new
unit to be analyzed.
* sem_ch10.adb (Analyze_With_Clause): Don't reset Style_Check,
the proper setting of this flag is now part of the Semantics
procedure.
* switch-c.adb (Scan_Front_End_Switches): Set Style_Check_Main
for -gnatg and -gnaty
2013-04-12 Doug Rupp <rupp@adacore.com>
* s-crtl.ads (fopen, freopen): Add vms_form parameter
* i-cstrea.ads (fopen, freopen): Likewise.
* adaint.h (__gnat_fopen, __gnat_freopen): Likewise.
* adaint.c (__gnat_fopen, __gnat_freopen): Likewise.
[VMS]: Split out RMS keys and call CRTL function appropriately.
* s-fileio.adb (Form_VMS_RMS_Keys, Form_RMS_Context_Key): New
subprograms.
(Open, Reset): Call Form_VMS_RMS_Keys. Call fopen,freopen with
vms_form
* gnat_rm.texi: Document implemented RMS keys.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@197902 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/i-cstrea.ads')
| -rw-r--r-- | gcc/ada/i-cstrea.ads | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/i-cstrea.ads b/gcc/ada/i-cstrea.ads index 1a7e76a713b..95dae64361e 100644 --- a/gcc/ada/i-cstrea.ads +++ b/gcc/ada/i-cstrea.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1995-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-2013, 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- -- @@ -107,8 +107,8 @@ package Interfaces.C_Streams is function fopen (filename : chars; mode : chars; - encoding : System.CRTL.Filename_Encoding := System.CRTL.UTF8) - return FILEs + encoding : System.CRTL.Filename_Encoding := System.CRTL.UTF8; + vms_form : chars := System.Null_Address) return FILEs renames System.CRTL.fopen; -- Note: to maintain target independence, use text_translation_required, -- a boolean variable defined in sysdep.c to deal with the target @@ -144,8 +144,8 @@ package Interfaces.C_Streams is (filename : chars; mode : chars; stream : FILEs; - encoding : System.CRTL.Filename_Encoding := System.CRTL.UTF8) - return FILEs + encoding : System.CRTL.Filename_Encoding := System.CRTL.UTF8; + vms_form : chars := System.Null_Address) return FILEs renames System.CRTL.freopen; function fseek |