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 );