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

* fix from peter i386.inc to circumvent ebx destroying

Browse Source
This commit is contained in:
marco 2003-10-27 09:16:57 +00:00
parent 6a93c41984
commit 41e3249c4b
1 changed files with 37 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
rtl/i386/i386.inc
View File

@ -1159,7 +1159,8 @@ end;
{$define FPC_SYSTEM_HAS_INT_STR_LONGINT} {$define FPC_SYSTEM_HAS_INT_STR_LONGINT}
procedure int_str(l : longint;var s : string); procedure int_str(l : longint;var s : string);
var var
buffer : array[0..11] of byte; buffer : array[0..15] of byte;
isneg : byte;
begin begin
{ Workaround: } { Workaround: }
if l=$80000000 then if l=$80000000 then
@ -1169,31 +1170,39 @@ begin
end; end;
asm asm
movl l,%eax // load Integer movl l,%eax // load Integer
movl s,%edi // Load String address
xorl %ecx,%ecx // String length=0 xorl %ecx,%ecx // String length=0
xorl %ebx,%ebx // Buffer length=0 leal buffer,%ebx
movl $0x0a,%esi // load 10 as dividing constant. movl $0x0a,%esi // load 10 as dividing constant.
movb $0,isneg
orl %eax,%eax // Sign ? orl %eax,%eax // Sign ?
jns .LM2 jns .LM2
movb $1,isneg
neg %eax neg %eax
movb $0x2d,1(%edi) // put '-' in String
incl %ecx
.LM2: .LM2:
cltd cltd
idivl %esi idivl %esi
addb $0x30,%dl // convert Rest to ASCII. addb $0x30,%dl // convert Rest to ASCII.
movb %dl,-12(%ebp,%ebx) movb %dl,(%ebx)
incl %ecx
incl %ebx incl %ebx
cmpl $0,%eax cmpl $0,%eax
jnz .LM2 jnz .LM2
{ copy String } { now copy the string }
.LM3: movl s,%edi // Load String address
movb -13(%ebp,%ebx),%al // -13 because EBX is decreased only later cmpb $0,isneg
movb %al,1(%edi,%ecx) je .LM3
movb $0x2d,(%ebx)
incl %ecx incl %ecx
decl %ebx incl %ebx
jnz .LM3 .LM3:
movb %cl,(%edi) // Copy String length movb %cl,(%edi) // Copy String length
incl %edi
.LM4:
decl %ebx
movb (%ebx),%al
stosb
decl %ecx
jnz .LM4
end ['eax','ecx','edx','ebx','esi','edi']; end ['eax','ecx','edx','ebx','esi','edi'];
end; end;
@ -1201,30 +1210,32 @@ end;
{$define FPC_SYSTEM_HAS_INT_STR_LONGWORD} {$define FPC_SYSTEM_HAS_INT_STR_LONGWORD}
procedure int_str(c : longword;var s : string); procedure int_str(c : longword;var s : string);
var var
buffer : array[0..14] of byte; buffer : array[0..15] of byte;
begin begin
asm asm
movl c,%eax // load CARDINAL movl c,%eax // load CARDINAL
movl s,%edi // Load String address
xorl %ecx,%ecx // String length=0 xorl %ecx,%ecx // String length=0
xorl %ebx,%ebx // Buffer length=0 leal buffer,%ebx
movl $0x0a,%esi // load 10 as dividing constant. movl $0x0a,%esi // load 10 as dividing constant.
.LM4: .LM4:
xorl %edx,%edx xorl %edx,%edx
divl %esi divl %esi
addb $0x30,%dl // convert Rest to ASCII. addb $0x30,%dl // convert Rest to ASCII.
movb %dl,-12(%ebp,%ebx) movb %dl,(%ebx)
incl %ecx
incl %ebx incl %ebx
cmpl $0,%eax cmpl $0,%eax
jnz .LM4 jnz .LM4
{ now copy the string } { now copy the string }
.LM5: movl s,%edi // Load String address
movb -13(%ebp,%ebx),%al // -13 because EBX is decreased only later
movb %al,1(%edi,%ecx)
incl %ecx
decl %ebx
jnz .LM5
movb %cl,(%edi) // Copy String length movb %cl,(%edi) // Copy String length
incl %edi
.LM5:
decl %ebx
movb (%ebx),%al
stosb
decl %ecx
jnz .LM5
end ['eax','ecx','edx','ebx','esi','edi']; end ['eax','ecx','edx','ebx','esi','edi'];
end; end;
@ -1319,7 +1330,10 @@ end;
{ {
$Log$ $Log$
Revision 1.50 2003-10-23 17:01:27 peter Revision 1.51 2003-10-27 09:16:57 marco
* fix from peter i386.inc to circumvent ebx destroying
Revision 1.50 2003/10/23 17:01:27 peter
* save edi,ebx,esi in int_str * save edi,ebx,esi in int_str
Revision 1.49 2003/10/16 21:28:40 peter Revision 1.49 2003/10/16 21:28:40 peter