* disable ret_in_param for floats, as they can be returned in a floating point register, and because enabling ret_in_param for them screws up badly the internprocs that handle floats

git-svn-id: branches/i8086@23840 -

compiler/i8086/cpupara.pas

@@ -152,7 +152,7 @@ unit cpupara;
 
         { 64-bit types are returned as a parameter pointer, since putting them
           in registers would require 4 registers on the i8086 }
-        if def.size > 4 then
+        if (def.size > 4) and (def.typ <> floatdef) then
           begin
             result:=true;
             exit;