浏览代码

* fix parameter names of fpc_shortstr_qword and fpc_shortstr_int64 implementation

git-svn-id: branches/avr@17030 -
florian 14 年之前
父节点
当前提交
f255b1103b
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      rtl/inc/sstrings.inc

+ 2 - 2
rtl/inc/sstrings.inc

@@ -374,7 +374,7 @@ end;
 
 
 {$ifndef CPU64}
 {$ifndef CPU64}
 
 
-procedure fpc_shortstr_qword(v : qword;len : longint;out s : shortstring);[public,alias:'FPC_SHORTSTR_QWORD']; compilerproc;
+procedure fpc_shortstr_qword(v : qword;len : SizeInt;out s : shortstring);[public,alias:'FPC_SHORTSTR_QWORD']; compilerproc;
 begin
 begin
   int_str(v,s);
   int_str(v,s);
   if length(s)<len then
   if length(s)<len then
@@ -382,7 +382,7 @@ begin
 end;
 end;
 
 
 
 
-procedure fpc_shortstr_int64(v : int64;len : longint;out s : shortstring);[public,alias:'FPC_SHORTSTR_INT64'];  compilerproc;
+procedure fpc_shortstr_int64(v : int64;len : SizeInt;out s : shortstring);[public,alias:'FPC_SHORTSTR_INT64'];  compilerproc;
 begin
 begin
   int_str(v,s);
   int_str(v,s);
   if length(s)<len then
   if length(s)<len then