summaryrefslogtreecommitdiff
path: root/compiler/i8086/cgcpu.pas
diff options
context:
space:
mode:
authornickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2>2013-05-25 13:37:24 +0000
committernickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2>2013-05-25 13:37:24 +0000
commitcffd1c06ddac67b565d6e0fa75792cce28bcd263 (patch)
tree74fc0ad20249394127591eb893589e48b04abbf8 /compiler/i8086/cgcpu.pas
parent4264866aa0fcc55fbd8f5582127229ba1317fc06 (diff)
downloadfpc-cffd1c06ddac67b565d6e0fa75792cce28bcd263.tar.gz
* fixed bug when passing a 'single' floating point type parameter via tcg8086.a_load_ref_cgpara
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@24592 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/i8086/cgcpu.pas')
-rw-r--r--compiler/i8086/cgcpu.pas2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/i8086/cgcpu.pas b/compiler/i8086/cgcpu.pas
index 064e3f6f9c..6043885867 100644
--- a/compiler/i8086/cgcpu.pas
+++ b/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);