From 0cfdde094ddd319949f39a0bd6e1854e78bfba25 Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Sun, 30 Dec 2007 21:27:05 +0000
Subject: [PATCH]   - Disable assembler implementations of str_int because of
 mysterious     cycle failure on Win32.

git-svn-id: trunk@9593 -
---
 rtl/i386/i386.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/rtl/i386/i386.inc b/rtl/i386/i386.inc
index 77cdf80fb6..bbf9948c4d 100644
--- a/rtl/i386/i386.inc
+++ b/rtl/i386/i386.inc
@@ -1091,10 +1091,12 @@ Function Sptr : Pointer;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$end
 asm
         movl    %esp,%eax
 end;
+
 {****************************************************************************
                                  Str()
 ****************************************************************************}
 
+{$ifdef disabled}
 {$define FPC_SYSTEM_HAS_INT_STR_LONGWORD}
 {$define FPC_SYSTEM_HAS_INT_STR_LONGINT}
 
@@ -1102,7 +1104,7 @@ label str_int_shortcut;
 
 {$asmmode intel}
 
-procedure int_str(l:longword;var s:string);assembler;nostackframe;
+procedure int_str(l:longword;out s:string);assembler;nostackframe;
 
 asm
   push edi
@@ -1112,7 +1114,7 @@ asm
   jmp str_int_shortcut
 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.}
 
@@ -1164,6 +1166,7 @@ str_int_shortcut:
 end;
 
 {$asmmode att}
+{$endif disabled}
 
 {****************************************************************************
                                Bounds Check