diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 14:28:21 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 14:28:21 +0000 |
| commit | 7bb7733e98889a9f0ec01b5e22a08715fb43e8ea (patch) | |
| tree | f1d314e310e2f974d4f736f5f0aac7a9c88a149d /gcc/ada/adaint.c | |
| parent | c9c1031f97ec7b5db12dbac917f5f1c4b89cc6f3 (diff) | |
| download | gcc-7bb7733e98889a9f0ec01b5e22a08715fb43e8ea.tar.gz | |
2009-11-30 Jerome Lambourg <lambourg@adacore.com>
* exp_ch3.adb (Make_Predefined_Primitive_Specs): Improve comment for
the Value_Type case.
2009-11-30 Thomas Quinot <quinot@adacore.com>
* a-textio.adb: Minor reformatting
2009-11-30 Pascal Obry <obry@adacore.com>
* adaint.c: Fix bug in passing parameter.
* expect.c: Include io.h to get definition of _open_osfhandle
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154810 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/adaint.c')
| -rw-r--r-- | gcc/ada/adaint.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 5bce387d2bb..b4446f7af3a 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -697,7 +697,7 @@ __gnat_os_filename (char *filename ATTRIBUTE_UNUSED, char *encoding ATTRIBUTE_UNUSED, int *e_length) { #if defined (_WIN32) && ! defined (__vxworks) && ! defined (IS_CROSS) - WS2SC (os_name, (TCHAR *)w_filename, (DWORD)o_length); + WS2SC (os_name, (TCHAR *)w_filename, (DWORD)*o_length); *o_length = strlen (os_name); strcpy (encoding, "encoding=utf8"); *e_length = strlen (encoding); |