|
@@ -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
|