* fixed bug when passing a 'single' floating point type parameter via tcg8086.a_load_ref_cgpara

git-svn-id: trunk@24592 -

compiler/i8086/cgcpu.pas

@@ -664,7 +664,7 @@ unit cgcpu;
           { for go32v2 we obtain OS_F32,
             but pushs is not valid, we need pushl }
           if opsize=S_FS then
-            opsize:=S_L;
+            opsize:=S_W;
           if tcgsize2size[paraloc^.size]<cgpara.alignment then
             begin
               tmpreg:=getintregister(list,pushsize);