diff options
Diffstat (limited to 'gcc/ada/g-sercom-mingw.adb')
| -rw-r--r-- | gcc/ada/g-sercom-mingw.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/g-sercom-mingw.adb b/gcc/ada/g-sercom-mingw.adb index e5034115995..cc6123bbc7c 100644 --- a/gcc/ada/g-sercom-mingw.adb +++ b/gcc/ada/g-sercom-mingw.adb @@ -38,6 +38,7 @@ with Ada.Streams; use Ada.Streams; with System; use System; with System.Communication; use System.Communication; +with System.CRTL; use System.CRTL; with System.Win32; use System.Win32; with System.Win32.Ext; use System.Win32.Ext; @@ -162,7 +163,7 @@ package body GNAT.Serial_Communications is Raise_Error ("read error"); end if; - Last := Last_Index (Buffer'First, C.int (Read_Last)); + Last := Last_Index (Buffer'First, size_t (Read_Last)); end Read; --------- |