소스 검색

+ 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 7 년 전
부모
커밋
dadd5568db
1개의 변경된 파일10개의 추가작업 그리고 0개의 파일을 삭제
  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