Răsfoiți Sursa

* string -> shortstring

Michael VAN CANNEYT 2 ani în urmă
părinte
comite
29c36aa407
2 a modificat fișierele cu 3 adăugiri și 3 ștergeri
  1. 2 2
      rtl/i386/i386.inc
  2. 1 1
      rtl/i386/stringss.inc

+ 2 - 2
rtl/i386/i386.inc

@@ -1688,7 +1688,7 @@ end;
 label str_int_shortcut;
 
 
-procedure int_str(l:longword;out s:string);assembler;nostackframe;
+procedure int_str(l:longword;out s:shortstring);assembler;nostackframe;
 
 asm
   pushl %esi
@@ -1699,7 +1699,7 @@ asm
   jmp str_int_shortcut
 end;
 
-procedure int_str(l:longint;out s:string);assembler;nostackframe;
+procedure int_str(l:longint;out s:shortstring);assembler;nostackframe;
 
 {Optimized for speed, but balanced with size.}
 

+ 1 - 1
rtl/i386/stringss.inc

@@ -17,7 +17,7 @@
 
 {$ifndef FPC_UNIT_HAS_STRPCOPY}
 {$define FPC_UNIT_HAS_STRPCOPY}
-function strpcopy(d : PAnsiChar;const s : string) : PAnsiChar;assembler;
+function strpcopy(d : PAnsiChar;const s : shortstring) : PAnsiChar;assembler;
 var
   saveesi,saveedi : longint;
 asm