qlunits: fix the return value of longint_to_qlfp

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49023 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 5 deletions

diff --git a/packages/qlunits/src/qlfloat.pas b/packages/qlunits/src/qlfloat.pas
index d96a523d6e..839bc93392 100644
--- a/packages/qlunits/src/qlfloat.pas
+++ b/packages/qlunits/src/qlfloat.pas
@@ -104,16 +104,16 @@ asm
 
 @setmant:
   move.l  d1,(a0)         { copy into mantissa }
-@fin:
-  movem.l (sp)+,d2-d4/a0  { reset register variables and return value }
-  rts
+  bra     @fin
 
 { quick exit if zero }
-
 @zeroval:
   move.w  d2,(a0)+        { zero exponent }
   move.l  d2,(a0)         { zero mantissa }
-  bra     @fin
+
+@fin:
+  movem.l (sp)+,d2-d4/a0  { reset register variables and return value }
+  move.l  a0,d0           { copy return value into d0 as well }
 end;