Bladeren bron

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

Nikolay Nikolov 6 maanden geleden
bovenliggende
commit
6972d16c3a
1 gewijzigde bestanden met toevoegingen van 2 en 0 verwijderingen
  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;
       tkQWord, tkInt64:
         PUInt64(aResultValue)^ := PUInt64(@ResultBuf)^;
+      tkEnumeration,
+      tkInteger,
       tkBool:
         begin
           td := GetTypeData(aResultType);