From 4e33889a298c5dc5ac02072d5eb3dd3426b00cad Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 1 Nov 2019 18:39:14 +0000
Subject: [PATCH]   * cleanup tshlshrnode.pass_1

git-svn-id: trunk@43347 -
---
 compiler/nmat.pas | 18 ++----------------
 1 file changed, 2 insertions(+), 16 deletions(-)

diff --git a/compiler/nmat.pas b/compiler/nmat.pas
index b7b027ad42..1b8f276309 100644
--- a/compiler/nmat.pas
+++ b/compiler/nmat.pas
@@ -884,8 +884,6 @@ implementation
 
 
     function tshlshrnode.pass_1 : tnode;
-      var
-         regs : longint;
       begin
          result:=nil;
          firstpass(left);
@@ -893,24 +891,12 @@ implementation
          if codegenerror then
            exit;
 
+         expectloc:=LOC_REGISTER;
 {$if not defined(cpu64bitalu) and not defined(cpuhighleveltarget)}
          { 64 bit ints have their own shift handling }
          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}
-           begin
-             regs:=1
-           end;
-
-         if (right.nodetype<>ordconstn) then
-           inc(regs);
-         expectloc:=LOC_REGISTER;
       end;