Browse Source

ngtcon: fix def of emitted vmt in procedure of object typed constants

Fixes compilation of tests/test/tprocvar17 with the LLVM backend, and probably
some other tests as well
Jonas Maebe 3 years ago
parent
commit
83604b709c
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/ngtcon.pas

+ 1 - 1
compiler/ngtcon.pas

@@ -1561,7 +1561,7 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
                     selfdef:=tclassrefdef(selfdef).pointeddef;
                     selfdef:=tclassrefdef(selfdef).pointeddef;
                     ftcb.emit_tai(Tai_const.Create_sym(
                     ftcb.emit_tai(Tai_const.Create_sym(
                       current_asmdata.RefAsmSymbol(tobjectdef(selfdef).vmt_mangledname,AT_DATA)),
                       current_asmdata.RefAsmSymbol(tobjectdef(selfdef).vmt_mangledname,AT_DATA)),
-                      def);
+                      voidpointertype);
                   end
                   end
                 else
                 else
                   Message(parser_e_no_procvarobj_const);
                   Message(parser_e_no_procvarobj_const);