diff options
Diffstat (limited to 'gcc/ada/g-sercom-mingw.adb')
| -rw-r--r-- | gcc/ada/g-sercom-mingw.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/g-sercom-mingw.adb b/gcc/ada/g-sercom-mingw.adb index abb32274e4c..03bd6aba191 100644 --- a/gcc/ada/g-sercom-mingw.adb +++ b/gcc/ada/g-sercom-mingw.adb @@ -106,7 +106,7 @@ package body GNAT.Serial_Communications is Success := CloseHandle (HANDLE (Port.H.all)); end if; - Port.H.all := CreateFile + Port.H.all := CreateFileA (lpFileName => C_Name (C_Name'First)'Address, dwDesiredAccess => GENERIC_READ or GENERIC_WRITE, dwShareMode => 0, |