Pārlūkot izejas kodu

* fix parameter names of fpc_shortstr_qword and fpc_shortstr_int64 implementation

git-svn-id: branches/avr@17030 -
florian 14 gadi atpakaļ
vecāks
revīzija
f255b1103b
1 mainītis faili ar 2 papildinājumiem un 2 dzēšanām
  1. 2 2
      rtl/inc/sstrings.inc

+ 2 - 2
rtl/inc/sstrings.inc

@@ -374,7 +374,7 @@ end;
 
 {$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
   int_str(v,s);
   if length(s)<len then
@@ -382,7 +382,7 @@ begin
 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
   int_str(v,s);
   if length(s)<len then