paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Some final tweaks to asm int_str.

Browse Source 
git-svn-id: trunk@9782 -
This commit is contained in:
daniel 2008-01-18 22:21:49 +00:00
parent f94d457429
commit b8fdbb1055
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/i386/i386.inc
View File

@ -1164,9 +1164,9 @@ str_int_shortcut:
subl %edx,%esi
{Skip digits beyond string length.}
subl %ecx,%esi
jae .Lwrite_out
movl %eax,%edx
subl %ecx,%esi
jae .Lloop_write
.Lloop_skip:
movl $0xcccccccd,%eax {Divide by 10 using mul+shr}
{Pre-add '0'}
@ -1177,12 +1177,9 @@ str_int_shortcut:
jz .Ldone {If (l<0) and (high(s)=1) this jump is taken.}
incl %esi
jnz .Lloop_skip
movl %edx,%eax
{Write out digits.}
.Lwrite_out:
movl %eax,%edx
.Lloop:
.Lloop_write:
movl $0xcccccccd,%eax {Divide by 10 using mul+shr}
{Pre-add '0'}
leal 48(%edx),%ebx {leal $'0(,%edx),%ebx Not supported by our ATT reader.}
@ -1193,12 +1190,13 @@ str_int_shortcut:
subl %eax,%ebx
movb %bl,(%edi,%ecx)
decl %ecx
jnz .Lloop
jnz .Lloop_write
.Ldone:
popl %ebx
popl %edi
popl %esi
end;
{****************************************************************************
Bounds Check
****************************************************************************}