Browse Source

* also handle enumeration results and integer result sizes, other than 32-bit in System.Rtti.Invoke for WebAssembly

Nikolay Nikolov 6 months ago
parent
commit
6972d16c3a
1 changed files with 2 additions and 0 deletions
  1. 2 0
      packages/rtl-objpas/src/wasm32/invoke.inc

+ 2 - 0
packages/rtl-objpas/src/wasm32/invoke.inc

@@ -315,6 +315,8 @@ begin
         end;
         end;
       tkQWord, tkInt64:
       tkQWord, tkInt64:
         PUInt64(aResultValue)^ := PUInt64(@ResultBuf)^;
         PUInt64(aResultValue)^ := PUInt64(@ResultBuf)^;
+      tkEnumeration,
+      tkInteger,
       tkBool:
       tkBool:
         begin
         begin
           td := GetTypeData(aResultType);
           td := GetTypeData(aResultType);