Forráskód Böngészése

* Xtensa: set expectloc of not nodes correctly

git-svn-id: trunk@46752 -
florian 5 éve
szülő
commit
1e38369d06
1 módosított fájl, 9 hozzáadás és 0 törlés
  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;