paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 01:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* add align directives to int_str

Browse Source 
git-svn-id: trunk@9793 -
This commit is contained in:
peter 2008-01-19 16:32:39 +00:00
parent d12e107800
commit f70219cdd8
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/i386/i386.inc
View File

@ -593,6 +593,7 @@ asm
je .LFound je .LFound
xorl %ecx,%ecx // zero index in Buf xorl %ecx,%ecx // zero index in Buf
xorl %eax,%eax // To make DWord compares possible xorl %eax,%eax // To make DWord compares possible
.balign 4
.LLoop: .LLoop:
movb (%esi),%al // Load byte movb (%esi),%al // Load byte
cmpb %al,%bl cmpb %al,%bl
@ -1167,6 +1168,7 @@ str_int_shortcut:
movl %eax,%edx movl %eax,%edx
subl %ecx,%esi subl %ecx,%esi
jae .Lloop_write jae .Lloop_write
.balign 4
.Lloop_skip: .Lloop_skip:
movl $0xcccccccd,%eax {Divide by 10 using mul+shr} movl $0xcccccccd,%eax {Divide by 10 using mul+shr}
mull %edx mull %edx
@ -1177,6 +1179,7 @@ str_int_shortcut:
jnz .Lloop_skip jnz .Lloop_skip
{Write out digits.} {Write out digits.}
.balign 4
.Lloop_write: .Lloop_write:
movl $0xcccccccd,%eax {Divide by 10 using mul+shr} movl $0xcccccccd,%eax {Divide by 10 using mul+shr}
{Pre-add '0'} {Pre-add '0'}