From 1213aecb7e95da674a8c7032457f109a4db2e1c8 Mon Sep 17 00:00:00 2001
From: fgsfds <pvt.fgsfds@gmail.com>
Date: Sun, 1 Sep 2019 21:38:22 +0300
Subject: [PATCH] fix round up

---
 src/engine/e_msg.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/engine/e_msg.pas b/src/engine/e_msg.pas
index bb73477..7e976e8 100644
--- a/src/engine/e_msg.pas
+++ b/src/engine/e_msg.pas
@@ -150,7 +150,7 @@ begin
   begin
     if OwnMemory then
     begin
-      NewSize := MaxSize + ((N + AllocStep) div AllocStep) * AllocStep; // round up
+      NewSize := MaxSize + ((N + AllocStep - 1) div AllocStep) * AllocStep; // round up
       if ReAllocMem(Data, NewSize) = nil then
         raise Exception.Create('TMsg.WriteData: out of memory on realloc');
       MaxSize := NewSize;
-- 
2.29.2