Ver Fonte

- removed unused method TZ80AddNode.NoEqual

git-svn-id: branches/z80@45038 -
nickysn há 5 anos atrás
pai
commit
0a017f1634
1 ficheiros alterados com 0 adições e 12 exclusões
  1. 0 12
      compiler/z80/nz80add.pas

+ 0 - 12
compiler/z80/nz80add.pas

@@ -34,7 +34,6 @@ interface
 
        TZ80AddNode = class(tcgaddnode)
        private
-         function NoEqual(anodetype:tnodetype):tnodetype;
          function GetResFlags(unsigned:Boolean;anodetype:tnodetype):TResFlags;
        protected
          function use_mul_helper: boolean;override;
@@ -65,17 +64,6 @@ interface
 *****************************************************************************}
 
 
-    function TZ80AddNode.NoEqual(anodetype: tnodetype): tnodetype;
-      begin
-        if anodetype=lten then
-          result:=ltn
-        else if anodetype=gten then
-          result:=gtn
-        else
-          result:=anodetype;
-      end;
-
-
     function TZ80AddNode.GetResFlags(unsigned: Boolean; anodetype: tnodetype): TResFlags;
       begin
         case anodetype of