Browse Source

+ pass 64-bit structures by address in WebAssembly for compatibility with LLVM's C ABI

Nikolay Nikolov 3 years ago
parent
commit
236e10d03a
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/wasm32/cpupara.pas

+ 1 - 1
compiler/wasm32/cpupara.pas

@@ -99,7 +99,7 @@ implementation
           recorddef :
           recorddef :
             begin
             begin
               { Delphi stdcall passes records on the stack for call by value }
               { 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;
             end;
           arraydef :
           arraydef :
             begin
             begin