ada-libraries
/
adasockets
mirror of https://github.com/samueltardieu/adasockets
1
0
Fork 0
Code Issues Releases Wiki Activity

Move field with unknown size last for efficiency reason 

Reported by Oliver Kellog. `-gnatg` would turn this compiler warning
into an error.

Fix #7
This commit is contained in:
Samuel Tardieu 2018-04-09 17:16:28 +02:00
parent ffc6c75e63
commit 6b4e76f45c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/sockets.ads
View File

@ -229,11 +229,11 @@ private
type Buffer_Type
(Length : Ada.Streams.Stream_Element_Count)
is record
Content : Ada.Streams.Stream_Element_Array (0 .. Length);
-- One byte will stay unused, but this does not have any consequence
First : Ada.Streams.Stream_Element_Offset :=
Ada.Streams.Stream_Element_Offset'Last;
Last : Ada.Streams.Stream_Element_Offset := 0;
Content : Ada.Streams.Stream_Element_Array (0 .. Length);
end record;
type Buffer_Access is access Buffer_Type;