ソースを参照

* set the correct expectloc in the first pass for pointer comparisons on the Z80

git-svn-id: branches/z80@45039 -
nickysn 5 年 前
コミット
9d1a9354c2
1 ファイル変更8 行追加0 行削除
  1. 8 0
      compiler/z80/nz80add.pas

+ 8 - 0
compiler/z80/nz80add.pas

@@ -37,6 +37,7 @@ interface
          function GetResFlags(unsigned:Boolean;anodetype:tnodetype):TResFlags;
        protected
          function use_mul_helper: boolean;override;
+         function first_cmppointer: tnode;override;
          function pass_1 : tnode;override;
          procedure second_cmpordinal;override;
          procedure second_cmpsmallset;override;
@@ -142,6 +143,13 @@ interface
       end;
 
 
+    function TZ80AddNode.first_cmppointer: tnode;
+      begin
+        result:=nil;
+        expectloc:=LOC_JUMP;
+      end;
+
+
     procedure TZ80AddNode.second_cmpsmallset;
 
       procedure gencmp(tmpreg1,tmpreg2 : tregister);