paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 10:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cleanup tshlshrnode.pass_1

Browse Source 
git-svn-id: trunk@43347 -
This commit is contained in:
florian 2019-11-01 18:39:14 +00:00
parent fdeaacac21
commit 4e33889a29
1 changed files with 2 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/nmat.pas
View File

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