diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-18 12:12:41 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-18 12:12:41 +0200 |
| commit | 50ea63572d0e1705c44eee2a8a5d16882093d0bc (patch) | |
| tree | 55f14146a481d50e1106fd100d22f9f2da802ec3 /gcc/ada/adaint.c | |
| parent | c624298a19aa42cc335c33b980a17da2bbd7fb94 (diff) | |
| download | gcc-50ea63572d0e1705c44eee2a8a5d16882093d0bc.tar.gz | |
[multiple changes]
2014-07-18 Robert Dewar <dewar@adacore.com>
* sem_prag.adb, sem_attr.adb,
sem_aggr.adb, sinfo.ads, sem_eval.ads: Minor reformatting.
2014-07-18 Pascal Obry <obry@adacore.com>
* sysdep.c (__gnat_wide_text_translation_required): Removed from here.
* initialize.c (__gnat_wide_text_translation_required): Defined here.
2014-07-18 Pascal Obry <obry@adacore.com>
* adaint.c (__gnat_fputwc): New routine.
* s-crtl.ads (fputwc): Now imported as __gnat_fputwc.
2014-07-18 Hristian Kirtchev <kirtchev@adacore.com>
* einfo.adb: Flag 270 is now used as Stores_Attribute_Old_Prefix.
(Set_Stores_Attribute_Old_Prefix): New routine.
(Stores_Attribute_Old_Prefix): New routine.
(Write_Entity_Flags):
Output flag Stores_Attribute_Old_Prefix.
* einfo.ads Add new flag Stores_Attribute_Old_Prefix along with
comment on usage.
(Set_Stores_Attribute_Old_Prefix): New routine
along with pragma Inline.
(Stores_Attribute_Old_Prefix): New
routine along with pragma Inline.
* exp_attr.adb (Expand_N_Attribute_Reference): Mark the generated
constant which captures the result of attribute 'Old's prefix.
* sem_util.adb (In_Assertion_Expression_Pragma): Recognize a
relocated expression which acted as a prefix of attribute 'Old.
2014-07-18 Bob Duff <duff@adacore.com>
* s-spsufi.adb (Finalize_And_Deallocate): Set Subpool.Owner to
null before dispatching to Deallocate_Subpool.
* s-stposu.ads (Default_Subpool_For_Pool): Change mode of
parameter of Default_Subpool_For_Pool to 'in out'.
* s-stposu.adb (Set_Pool_Of_Subpool): Use raise expression. Add
a message to the raise.
* sem_util.adb: Minor reformatting.
From-SVN: r212806
Diffstat (limited to 'gcc/ada/adaint.c')
| -rw-r--r-- | gcc/ada/adaint.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 4d99c68ca0b..184d645881c 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -229,6 +229,7 @@ extern unsigned int LIB$CALLG_64 (unsigned long long argument_list [], #else #include <utime.h> +#include <wchar.h> #endif #if defined (_WIN32) @@ -851,6 +852,16 @@ __gnat_rmdir (char *path) #endif } +int +__gnat_fputwc(int c, FILE *stream) +{ +#if ! defined (__vxworks) && ! defined (IS_CROSS) + return fputwc ((wchar_t)c, stream); +#else + return fputc (c, stream); +#endif +} + FILE * __gnat_fopen (char *path, char *mode, int encoding ATTRIBUTE_UNUSED, char *vms_form ATTRIBUTE_UNUSED) |