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