diff options
author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-17 14:25:54 +0000 |
---|---|---|
committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-17 14:25:54 +0000 |
commit | 7dc054c86d87ddcf5b620c75d6b99aa52463642c (patch) | |
tree | 34ae3f284ac58e7d7c6fd64fdba0a503b0cceda9 /compiler | |
parent | 104cf2150fec5d520a9bc86ca7b926f69cc13d16 (diff) | |
download | fpc-7dc054c86d87ddcf5b620c75d6b99aa52463642c.tar.gz |
* fixed the value passing of record parameters with non-scalar value size on the
WebAssembly target
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49218 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler')
-rw-r--r-- | compiler/wasm32/cpupara.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/wasm32/cpupara.pas b/compiler/wasm32/cpupara.pas index 80ee9a075d..f5646d0bf4 100644 --- a/compiler/wasm32/cpupara.pas +++ b/compiler/wasm32/cpupara.pas @@ -99,7 +99,7 @@ implementation recorddef : begin { Delphi stdcall passes records on the stack for call by value } - result:=(varspez=vs_const) or (def.size=0); + result:=(varspez=vs_const) or (not (def.size in [1,2,4,8])); end; arraydef : begin |