diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-12-01 10:52:51 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-12-01 10:52:51 +0100 |
commit | b7d5e87b0780ff54f2ade45aabaea5cd7148ec86 (patch) | |
tree | eeec9a706733f203876ebacade50c8506ca77123 /gcc/ada/g-socket.adb | |
parent | acb85bea1d3a9a749defaa9d660ff87ff1345a93 (diff) | |
download | gcc-b7d5e87b0780ff54f2ade45aabaea5cd7148ec86.zip gcc-b7d5e87b0780ff54f2ade45aabaea5cd7148ec86.tar.gz gcc-b7d5e87b0780ff54f2ade45aabaea5cd7148ec86.tar.bz2 |
[multiple changes]
2009-12-01 Ed Schonberg <schonberg@adacore.com>
* einfo.ads: Clarify use of Is_Private_Primitive.
* sem_ch6.adb (Analyze_Subprogram_Declaration): An operation is a
private primitive operation only if it is declared in the scope of the
private controlling type.
* exp_ch9.adb (Build_Wrapper_Spec): Build wrappers for private
protected operations as well.
2009-12-01 Arnaud Charlet <charlet@adacore.com>
* gnat1drv.adb (Adjust_Global_Switches): Disable front-end
optimizations in CodePeer mode, to keep the tree as close to the source
code as possible, and also to avoid inconsistencies between trees when
using different optimization switches.
2009-12-01 Thomas Quinot <quinot@adacore.com>
* scos.ads: Updated specification of source coverage obligation
information.
2009-12-01 Thomas Quinot <quinot@adacore.com>
* g-sercom.ads, g-sercom-mingw.adb, g-sercom-linux.adb,
a-ststio.adb, s-commun.adb, s-commun.ads, g-socket.adb,
g-socket.ads (System.Communications.Last_Index): For the case where no
element has been transferred and Item'First =
Stream_Element_Offset'First, raise CONSTRAINT_ERROR.
2009-12-01 Ed Schonberg <schonberg@adacore.com>
* sem_ch10.adb (Install_Siblings): A private with_clause on some child
unit U in an ancestor of the current unit must be ignored if the
current unit has a regular with_clause on U.
From-SVN: r154868
Diffstat (limited to 'gcc/ada/g-socket.adb')
-rw-r--r-- | gcc/ada/g-socket.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index 062baf7..09537ba 100644 --- a/gcc/ada/g-socket.adb +++ b/gcc/ada/g-socket.adb @@ -48,6 +48,7 @@ pragma Warnings (Off, GNAT.Sockets.Linker_Options); with System; use System; with System.Communication; use System.Communication; +with System.CRTL; use System.CRTL; package body GNAT.Sockets is @@ -1636,7 +1637,7 @@ package body GNAT.Sockets is Raise_Socket_Error (Socket_Errno); end if; - Last := Last_Index (First => Item'First, Count => Res); + Last := Last_Index (First => Item'First, Count => size_t (Res)); end Receive_Socket; -------------------- @@ -1668,7 +1669,7 @@ package body GNAT.Sockets is Raise_Socket_Error (Socket_Errno); end if; - Last := Last_Index (First => Item'First, Count => Res); + Last := Last_Index (First => Item'First, Count => size_t (Res)); To_Inet_Addr (Sin.Sin_Addr, From.Addr); From.Port := Port_Type (Network_To_Short (Sin.Sin_Port)); @@ -1917,7 +1918,7 @@ package body GNAT.Sockets is Raise_Socket_Error (Socket_Errno); end if; - Last := Last_Index (First => Item'First, Count => Res); + Last := Last_Index (First => Item'First, Count => size_t (Res)); end Send_Socket; ----------------- |