diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-06-13 11:43:03 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-06-13 11:43:03 +0200 |
| commit | 5af638c8755a06886c68016348d76526d544681e (patch) | |
| tree | 49b64477cb77b9825f308d4b15a2540abb0be1b7 /gcc/ada/adaint.c | |
| parent | 7f2c8954dac84a3fa5cabcc726b5e7d1ddff1142 (diff) | |
| download | gcc-5af638c8755a06886c68016348d76526d544681e.zip gcc-5af638c8755a06886c68016348d76526d544681e.tar.gz gcc-5af638c8755a06886c68016348d76526d544681e.tar.bz2 | |
[multiple changes]
2014-06-13 Robert Dewar <dewar@adacore.com>
* back_end.ads, back_end.adb: Make_Id, Make_SC, Set_RND are moved to
Tbuild.
* tbuild.ads, tbuild.adb: Make_Id, Make_SC, Set_RND are moved here from
Back_End.
* gnat1drv.adb: Make_Id, Make_SC, Set_RND are moved to Tbuild
* sem_warn.adb: Minor reformatting.
2014-06-13 Doug Rupp <rupp@adacore.com>
* adaint.c (__gnat_open_new_temp) [VMS]: Open binary
files with rfm=udf.
From-SVN: r211612
Diffstat (limited to 'gcc/ada/adaint.c')
| -rw-r--r-- | gcc/ada/adaint.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 8d574da..b1d31b7 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 1992-2013, Free Software Foundation, Inc. * + * Copyright (C) 1992-2014, 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- * @@ -1159,9 +1159,12 @@ __gnat_open_new_temp (char *path, int fmode) o_fmode = O_TEXT; #if defined (VMS) + /* Passing rfm=stmlf for binary files seems questionable since it results + in having an extraneous line feed added after every call to CRTL write, + so pass rfm=udf (aka undefined) instead. */ fd = open (path, O_WRONLY | O_CREAT | O_EXCL | o_fmode, PERM, - "rfm=stmlf", "ctx=rec", "rat=none", "shr=del,get,put,upd", - "mbc=16", "deq=64", "fop=tef"); + fmode ? "rfm=stmlf" : "rfm=udf", "ctx=rec", "rat=none", + "shr=del,get,put,upd", "mbc=16", "deq=64", "fop=tef"); #else fd = open (path, O_WRONLY | O_CREAT | O_EXCL | o_fmode, PERM); #endif |