Bladeren bron

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

git-svn-id: trunk@48985 -
nickysn 4 jaren geleden
bovenliggende
commit
d090af4abe
1 gewijzigde bestanden met toevoegingen van 1 en 1 verwijderingen
  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