From 236e10d03aab15949f7c2114ddc39b63cf2ea364 Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Wed, 13 Oct 2021 08:13:13 +0300
Subject: [PATCH] + pass 64-bit structures by address in WebAssembly for
compatibility with LLVM's C ABI
---
compiler/wasm32/cpupara.pas | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/compiler/wasm32/cpupara.pas b/compiler/wasm32/cpupara.pas
index f5646d0bf4..e578473d83 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 (not (def.size in [1,2,4,8]));
+ result:=(varspez=vs_const) or (not (def.size in [1,2,4{,8}]));
end;
arraydef :
begin