Quellcode durchsuchen

* WebAssembly: fixed crash when attempting to generate a functype directive for
a generic function

Nikolay Nikolov vor 1 Jahr
Ursprung
Commit
54d65ff75c
1 geänderte Dateien mit 2 neuen und 1 gelöschten Zeilen
  1. 2 1
      compiler/wasm32/hlcgcpu.pas

+ 2 - 1
compiler/wasm32/hlcgcpu.pas

@@ -2459,7 +2459,8 @@ implementation
 
   procedure thlcgwasm.g_procdef(list: TAsmList; pd: tprocdef);
     begin
-      list.Concat(tai_functype.create(pd.mangledname,tcpuprocdef(pd).create_functype));
+      if not pd.is_generic then
+        list.Concat(tai_functype.create(pd.mangledname,tcpuprocdef(pd).create_functype));
     end;
 
   procedure thlcgwasm.g_maybe_checkforexceptions(list: TasmList);