diff options
| author | Tonu Naks <naks@adacore.com> | 2025-11-19 12:56:55 +0000 |
|---|---|---|
| committer | Marc Poulhiès <dkm@gcc.gnu.org> | 2025-12-05 13:22:52 +0100 |
| commit | 58ccdca74a4d0e6b2087df211aedc5747edc65c3 (patch) | |
| tree | c558bdf98a2ec6ea37089934d079d639b9e78f63 | |
| parent | 7fd14b6c9d191a715303a4dae3d25706131aed13 (diff) | |
| download | gcc-58ccdca74a4d0e6b2087df211aedc5747edc65c3.zip gcc-58ccdca74a4d0e6b2087df211aedc5747edc65c3.tar.gz gcc-58ccdca74a4d0e6b2087df211aedc5747edc65c3.tar.bz2 | |
ada: Ensure that file is not locked on windows when opened RO
gcc/ada/ChangeLog:
* adaint.c: use the _tsopen macro when opening RO file
| -rw-r--r-- | gcc/ada/adaint.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index adc3951..1b99312 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -179,6 +179,7 @@ extern "C" { #elif defined (__MINGW32__) || defined (__CYGWIN__) #include "mingw32.h" +#include "share.h" /* Current code page and CCS encoding to use, set in rtinit.c. */ UINT __gnat_current_codepage; @@ -940,7 +941,7 @@ __gnat_open_read (char *path, int fmode) TCHAR wpath[GNAT_MAX_PATH_LEN]; S2WSC (wpath, path, GNAT_MAX_PATH_LEN); - fd = _topen (wpath, O_RDONLY | o_fmode, 0444); + fd = _tsopen (wpath, O_RDONLY | o_fmode, _SH_DENYNO, 0444); } #else fd = GNAT_OPEN (path, O_RDONLY | o_fmode); |