Browse Source

* Xtensa: set expectloc of not nodes correctly

git-svn-id: trunk@46752 -
florian 4 years ago
parent
commit
1e38369d06
1 changed files with 9 additions and 0 deletions
  1. 9 0
      compiler/xtensa/ncpumat.pas

+ 9 - 0
compiler/xtensa/ncpumat.pas

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