From 4da2e1a04f4fca3c4f4a6dffca8196f79212a5fa Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Sat, 14 Jul 2007 18:45:00 +0000
Subject: [PATCH] * fixed conversion zero int64 to double in softfloat mode.

git-svn-id: trunk@8050 -
---
 rtl/inc/softfpu.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/inc/softfpu.pp b/rtl/inc/softfpu.pp
index bd95027cd4..ca0eb62444 100644
--- a/rtl/inc/softfpu.pp
+++ b/rtl/inc/softfpu.pp
@@ -5083,7 +5083,7 @@ var
 Begin
     if ( a = 0 ) then
       Begin
-       packFloat64( 0, 0, 0, 0, float_result );
+       packFloat64( 0, 0, 0, 0, result );
        exit;
       end;
     zSign := flag( a < 0 );