diff options
author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-05-25 13:37:24 +0000 |
---|---|---|
committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-05-25 13:37:24 +0000 |
commit | cffd1c06ddac67b565d6e0fa75792cce28bcd263 (patch) | |
tree | 74fc0ad20249394127591eb893589e48b04abbf8 /compiler/i8086/cgcpu.pas | |
parent | 4264866aa0fcc55fbd8f5582127229ba1317fc06 (diff) | |
download | fpc-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.pas | 2 |
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); |