X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2Futils.pas;h=9e136495bc8792dc661c3e4fa254ee58d24974a6;hb=223356cbae3197afc861efa6241c4ae91bd92885;hp=d73d25766e0734e972f0cf5a8a099d099d2a586e;hpb=ee55194b1f1e2a8721038eff788b64534393661c;p=d2df-sdl.git

diff --git a/src/shared/utils.pas b/src/shared/utils.pas
index d73d257..9e13649 100644
--- a/src/shared/utils.pas
+++ b/src/shared/utils.pas
@@ -1039,7 +1039,7 @@ var
       while (len > 0) do
       begin
         if (len > 255) then slen := 255 else slen := Integer(len);
-        Move(b^, ss[1], len);
+        Move(b^, ss[1], slen);
         ss[0] := AnsiChar(slen);
         result += ss;
         b += slen;