From af02bc9f8b2dea77c3bb3dbcc6d6992bd956dd89 Mon Sep 17 00:00:00 2001 From: fgsfds Date: Tue, 6 Feb 2018 23:12:22 +0300 Subject: [PATCH] fixed small/short int sizes in e_msg --- src/engine/e_msg.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/engine/e_msg.pas b/src/engine/e_msg.pas index 1ed3809..6433511 100644 --- a/src/engine/e_msg.pas +++ b/src/engine/e_msg.pas @@ -164,12 +164,12 @@ end; procedure TMsg.Write(V: ShortInt); overload; begin - WriteData(@V, 2); + WriteData(@V, 1); end; procedure TMsg.Write(V: SmallInt); overload; begin - WriteData(@V, 1); + WriteData(@V, 2); end; procedure TMsg.Write(V: LongInt); overload; @@ -248,13 +248,13 @@ end; function TMsg.ReadShortInt(): ShortInt; begin Result := 0; - ReadData(@Result, 2); + ReadData(@Result, 1); end; function TMsg.ReadSmallInt(): SmallInt; begin Result := 0; - ReadData(@Result, 1); + ReadData(@Result, 2); end; function TMsg.ReadLongInt(): LongInt; -- 2.29.2