From caef53e63b676a6a5f78b7af01be44bd12baeab3 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 13 Jun 2013 19:40:17 +0000
Subject: [PATCH] * another patch by Max Nazhalov to fix missing exits in the
 softfpu code

git-svn-id: trunk@24891 -
---
 rtl/inc/softfpu.pp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/rtl/inc/softfpu.pp b/rtl/inc/softfpu.pp
index ee03ea7823..75040803a2 100644
--- a/rtl/inc/softfpu.pp
+++ b/rtl/inc/softfpu.pp
@@ -3468,6 +3468,7 @@ Function float32_round_to_int( a: float32rec): float32rec;compilerproc;
             End;
         end;
         float32_round_to_int.float32 := packFloat32( aSign, 0, 0 );
+        exit;
       End;
     lastBitMask := 1;
     {_____________________________!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!}
@@ -3774,6 +3775,7 @@ Function float32_mul(a: float32rec; b: float32rec ) : float32rec; compilerproc;
         if ( (aSig<>0) OR ( ( bExp = $FF ) AND  (bSig<>0) ) ) then
         Begin
             float32_mul.float32 := propagateFloat32NaN( a.float32, b.float32 );
+            exit;
         End;
         if ( ( bExp OR  bSig ) = 0 ) then
         Begin
@@ -3863,6 +3865,7 @@ Function float32_div(a: float32rec;b: float32rec ): float32rec; compilerproc;
             if ( bSig <> 0) then
             Begin
               float32_div.float32 := propagateFloat32NaN( a.float32, b.float32 );
+              exit;
             End;
             float_raise( float_flag_invalid );
             float32_div.float32 := float32_default_nan;
@@ -4849,6 +4852,7 @@ Begin
                exit;
             End;
             packFloat64( zSign, $7FF, 0, 0, out );
+            exit;
         End;
         if ( aExp = 0 ) then
         Begin