Explorar o código

* skip nil values in current_module.deflist in TLLVMMachineCodePlaygroundAssembler.WriteImports

git-svn-id: trunk@48985 -
nickysn %!s(int64=4) %!d(string=hai) anos
pai
achega
d090af4abe
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/wasm32/agllvmmc.pas

+ 1 - 1
compiler/wasm32/agllvmmc.pas

@@ -75,7 +75,7 @@ implementation
       cur_unit: tused_unit;
     begin
       for i:=0 to current_module.deflist.Count-1 do
-        if tdef(current_module.deflist[i]).typ = procdef then
+        if assigned(current_module.deflist[i]) and (tdef(current_module.deflist[i]).typ=procdef) then
           begin
             proc := tprocdef(current_module.deflist[i]);
             if (po_external in proc.procoptions) and assigned(proc.import_dll) then