Przeglądaj źródła

* fixed to work with the new vmtentries that are always available

git-svn-id: branches/llvm@12207 -
Jonas Maebe 17 lat temu
rodzic
commit
2d3b63b48b
1 zmienionych plików z 1 dodań i 7 usunięć
  1. 1 7
      compiler/llvmdef.pas

+ 1 - 7
compiler/llvmdef.pas

@@ -968,14 +968,8 @@ implementation
           { the other fields }
           for i:=1 to 8 do
             defstr:=defstr+'void*, ';
-          if not assigned(def.VMTEntries) then
-            with TVMTBuilder.create(def) do
-              begin
-                generate_vmt;
-                free;
-              end;
           for i:= 0 to def.VMTEntries.Count-1 do
-            defstr:=defstr+def_llvm_pointer_name(tprocdef(def.VMTEntries[i])).name+', ';
+            defstr:=defstr+def_llvm_pointer_name(pvmtentry(def.VMTEntries[i])^.procdef).name+', ';
           setlength(defstr,length(defstr)-2);
           defstr:=defstr+' >*';
           list.concat(taillvm.op_ressym_string(LA_TYPE,def_llvm_vmt_name(def),defstr));