mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 17:21:20 +02:00
+ pass 64-bit structures by address in WebAssembly for compatibility with LLVM's C ABI
This commit is contained in:
parent
321764bdd9
commit
236e10d03a
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user