Parcourir la source

+ override set_labelsym_resultdef for i8086 and set a near pointer resultdef if
the anf_ofs flag is set

git-svn-id: trunk@38677 -

nickysn il y a 7 ans
Parent
commit
dadd5568db
1 fichiers modifiés avec 10 ajouts et 0 suppressions
  1. 10 0
      compiler/i8086/n8086mem.pas

+ 10 - 0
compiler/i8086/n8086mem.pas

@@ -34,6 +34,7 @@ interface
     type
        ti8086addrnode = class(ti86addrnode)
         protected
+         procedure set_labelsym_resultdef; override;
          procedure set_absvarsym_resultdef; override;
          procedure pass_generate_code;override;
         public
@@ -68,6 +69,15 @@ implementation
                              TI8086ADDRNODE
 *****************************************************************************}
 
+    procedure ti8086addrnode.set_labelsym_resultdef;
+      begin
+        if anf_ofs in addrnodeflags then
+          resultdef:=voidnearcspointertype
+        else
+          inherited;
+      end;
+
+
     procedure ti8086addrnode.set_absvarsym_resultdef;
       begin
         if not(anf_typedaddr in addrnodeflags) then