Browse Source

+ initialize some common variables in TZ80AddNode.second_cmp16_32_64bit

git-svn-id: branches/z80@44729 -
nickysn 5 years ago
parent
commit
2e6b36f57d
1 changed files with 17 additions and 0 deletions
  1. 17 0
      compiler/z80/nz80add.pas

+ 17 - 0
compiler/z80/nz80add.pas

@@ -312,7 +312,24 @@ interface
 
 
 
 
     procedure TZ80AddNode.second_cmp16_32_64bit;
     procedure TZ80AddNode.second_cmp16_32_64bit;
+      var
+        truelabel,
+        falselabel: tasmlabel;
+        unsigned  : boolean;
       begin
       begin
+        truelabel:=nil;
+        falselabel:=nil;
+        pass_left_right;
+
+        unsigned:=not(is_signed(left.resultdef)) or
+                  not(is_signed(right.resultdef));
+
+        { we have LOC_JUMP as result }
+        current_asmdata.getjumplabel(truelabel);
+        current_asmdata.getjumplabel(falselabel);
+        location_reset_jump(location,truelabel,falselabel);
+
+        // todo: implement the rest
         internalerror(2020041601);
         internalerror(2020041601);
       end;
       end;