瀏覽代碼

* fixed warning.

git-svn-id: trunk@5853 -
yury 18 年之前
父節點
當前提交
2244f1b9c6
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/inc/generic.inc

+ 1 - 1
rtl/inc/generic.inc

@@ -558,7 +558,7 @@ end;
 
 procedure fpc_shortstr_concat(var dests:shortstring;const s1,s2:shortstring);compilerproc;
 var
-  s1l, s2l : byte;
+  s1l, s2l : longint;
 begin
   s1l:=length(s1);
   s2l:=length(s2);