Przeglądaj źródła

* far pointer aware conversion of method pointer to plain procvar

git-svn-id: trunk@24863 -
nickysn 12 lat temu
rodzic
commit
70dbd7f667
1 zmienionych plików z 2 dodań i 3 usunięć
  1. 2 3
      compiler/i8086/n8086cnv.pas

+ 2 - 3
compiler/i8086/n8086cnv.pas

@@ -84,14 +84,13 @@ implementation
               end
             else
               begin
-                { TODO: update for far procs }
                 { conversion from a procedure of object/nested procvar to plain procvar }
                 case left.location.loc of
                   LOC_REFERENCE,LOC_CREFERENCE:
                     begin
-                      location.register:=cg.getaddressregister(current_asmdata.CurrAsmList);
+                      location.register:=cg.getintregister(current_asmdata.CurrAsmList,OS_32);
                       { code field is the first one }
-                      cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_ADDR,OS_ADDR,left.location.reference,location.register);
+                      cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_32,OS_32,left.location.reference,location.register);
                     end;
                   LOC_REGISTER,LOC_CREGISTER:
                     begin