Browse Source

* cleanup tshlshrnode.pass_1

git-svn-id: trunk@43347 -
florian 5 years ago
parent
commit
4e33889a29
1 changed files with 2 additions and 16 deletions
  1. 2 16
      compiler/nmat.pas

+ 2 - 16
compiler/nmat.pas

@@ -884,8 +884,6 @@ implementation
 
 
 
 
     function tshlshrnode.pass_1 : tnode;
     function tshlshrnode.pass_1 : tnode;
-      var
-         regs : longint;
       begin
       begin
          result:=nil;
          result:=nil;
          firstpass(left);
          firstpass(left);
@@ -893,24 +891,12 @@ implementation
          if codegenerror then
          if codegenerror then
            exit;
            exit;
 
 
+         expectloc:=LOC_REGISTER;
 {$if not defined(cpu64bitalu) and not defined(cpuhighleveltarget)}
 {$if not defined(cpu64bitalu) and not defined(cpuhighleveltarget)}
          { 64 bit ints have their own shift handling }
          { 64 bit ints have their own shift handling }
          if is_64bit(left.resultdef) then
          if is_64bit(left.resultdef) then
-           begin
-             result := first_shlshr64bitint;
-             if assigned(result) then
-               exit;
-             regs:=2;
-           end
-         else
+           result := first_shlshr64bitint;
 {$endif not cpu64bitalu and not cpuhighleveltarget}
 {$endif not cpu64bitalu and not cpuhighleveltarget}
-           begin
-             regs:=1
-           end;
-
-         if (right.nodetype<>ordconstn) then
-           inc(regs);
-         expectloc:=LOC_REGISTER;
       end;
       end;