diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-12 14:58:01 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-12 14:58:01 +0200 |
| commit | 7f18b29a17b0905afb33ab3c0617fc587b766f97 (patch) | |
| tree | 6db6862ab6efa3907d870a62cf3e6efc4c96409e /gcc/ada/adaint.h | |
| parent | 0c68c6135fcd6bf0b97fc801b1d0ddc606275651 (diff) | |
| download | gcc-7f18b29a17b0905afb33ab3c0617fc587b766f97.zip gcc-7f18b29a17b0905afb33ab3c0617fc587b766f97.tar.gz gcc-7f18b29a17b0905afb33ab3c0617fc587b766f97.tar.bz2 | |
[multiple changes]
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.
From-SVN: r197902
Diffstat (limited to 'gcc/ada/adaint.h')
| -rw-r--r-- | gcc/ada/adaint.h | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/adaint.h b/gcc/ada/adaint.h index 7956e27..78af57c 100644 --- a/gcc/ada/adaint.h +++ b/gcc/ada/adaint.h @@ -6,7 +6,7 @@ * * * C Header File * * * - * Copyright (C) 1992-2012, Free Software Foundation, Inc. * + * Copyright (C) 1992-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- * @@ -128,9 +128,10 @@ extern int __gnat_rename (char *, char *); extern int __gnat_chdir (char *); extern int __gnat_rmdir (char *); -extern FILE *__gnat_fopen (char *, char *, int); +extern FILE *__gnat_fopen (char *, char *, int, + char *); extern FILE *__gnat_freopen (char *, char *, FILE *, - int); + int, char *); extern int __gnat_open_read (char *, int); extern int __gnat_open_rw (char *, int); extern int __gnat_open_create (char *, int); |