paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

m68k/n68kmat.pas, tm68kshlshrnode.first_shlshr64bitint:

Browse Source 
use RTL helper functions (through the inherited method) if we're not shifting by a constant

This fixes test/cg/tshlshr

git-svn-id: trunk@23378 -
This commit is contained in:
svenbarth 2013-01-13 19:33:23 +00:00
parent 162896e7d7
commit 741992bae4
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/m68k/n68kmat.pas
View File

@ -264,8 +264,12 @@ implementation
function tm68kShlShrNode.first_shlshr64bitint:TNode; function tm68kShlShrNode.first_shlshr64bitint:TNode;
begin begin
{ 2nd pass is our friend } if is_64bit(left.resultdef) and not (right.nodetype=ordconstn) then
result := nil; { for 64bit shifts with anything but constants we use rtl helpers }
result:=inherited
else
{ 2nd pass is our friend }
result := nil;
end; end;