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

- Disable assembler implementations of str_int because of mysterious

Browse Source 
cycle failure on Win32.

git-svn-id: trunk@9593 -
This commit is contained in:
daniel 2007-12-30 21:27:05 +00:00
parent e54422ce7a
commit 0cfdde094d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/i386/i386.inc
View File

@ -1091,10 +1091,12 @@ Function Sptr : Pointer;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$end
asm asm
movl %esp,%eax movl %esp,%eax
end; end;
{**************************************************************************** {****************************************************************************
Str() Str()
****************************************************************************} ****************************************************************************}
{$ifdef disabled}
{$define FPC_SYSTEM_HAS_INT_STR_LONGWORD} {$define FPC_SYSTEM_HAS_INT_STR_LONGWORD}
{$define FPC_SYSTEM_HAS_INT_STR_LONGINT} {$define FPC_SYSTEM_HAS_INT_STR_LONGINT}
@ -1102,7 +1104,7 @@ label str_int_shortcut;
{$asmmode intel} {$asmmode intel}
procedure int_str(l:longword;var s:string);assembler;nostackframe; procedure int_str(l:longword;out s:string);assembler;nostackframe;
asm asm
push edi push edi
@ -1112,7 +1114,7 @@ asm
jmp str_int_shortcut jmp str_int_shortcut
end; end;
procedure int_str(l:longint;var s:string);assembler;nostackframe; procedure int_str(l:longint;out s:string);assembler;nostackframe;
{Optimized for speed, but balanced with size.} {Optimized for speed, but balanced with size.}
@ -1164,6 +1166,7 @@ str_int_shortcut:
end; end;
{$asmmode att} {$asmmode att}
{$endif disabled}
{**************************************************************************** {****************************************************************************
Bounds Check Bounds Check