|
@@ -37,6 +37,7 @@ interface
|
|
|
|
|
|
tcpunotnode = class(tcgnotnode)
|
|
|
procedure second_boolean;override;
|
|
|
+ function pass_1: tnode;override;
|
|
|
end;
|
|
|
|
|
|
tcpuunaryminusnode = class(tcgunaryminusnode)
|
|
@@ -108,6 +109,14 @@ implementation
|
|
|
TCPUNOTNODE
|
|
|
*****************************************************************************}
|
|
|
|
|
|
+ function tcpunotnode.pass_1 : tnode;
|
|
|
+ begin
|
|
|
+ result:=nil;
|
|
|
+ firstpass(left);
|
|
|
+ expectloc:=LOC_REGISTER;
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
procedure tcpunotnode.second_boolean;
|
|
|
var
|
|
|
tmpreg, hreg1, hreg2, hreg3: TRegister;
|