Browse Source

* far pointer aware conversion of method pointer to plain procvar

git-svn-id: trunk@24863 -
nickysn 12 years ago
parent
commit
70dbd7f667
1 changed files with 2 additions and 3 deletions
  1. 2 3
      compiler/i8086/n8086cnv.pas

+ 2 - 3
compiler/i8086/n8086cnv.pas

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