paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 05:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* string -> shortstring

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 11:26:39 +01:00 committed by Michaël Van Canneyt
parent e50d90b7e9
commit 29c36aa407
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/i386/i386.inc
View File

@ -1688,7 +1688,7 @@ end;
label str_int_shortcut; 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 asm
pushl %esi pushl %esi
@ -1699,7 +1699,7 @@ asm
jmp str_int_shortcut jmp str_int_shortcut
end; 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.} {Optimized for speed, but balanced with size.}

2
rtl/i386/stringss.inc
View File

@ -17,7 +17,7 @@
{$ifndef FPC_UNIT_HAS_STRPCOPY} {$ifndef FPC_UNIT_HAS_STRPCOPY}
{$define 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 var
saveesi,saveedi : longint; saveesi,saveedi : longint;
asm asm