paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 17:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Call fpc_shl/r_qword for qword types for first_shlshr64bitint method

Browse Source 
git-svn-id: trunk@17620 -
This commit is contained in:
tom_at_work 2011-06-01 06:25:00 +00:00
parent 60ee15200b
commit e5fc169e57
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/nmat.pas
View File

@ -558,11 +558,18 @@ implementation
procname: string[31];
begin
result := nil;
{ Normally already done below, but called again,
just in case it is called directly }
firstpass(left);
{ otherwise create a call to a helper }
if nodetype = shln then
procname := 'fpc_shl_int64'
if is_signed(left.resultdef) then
procname:='int64'
else
procname := 'fpc_shr_int64';
procname:='qword';
if nodetype = shln then
procname := 'fpc_shl_'+procname
else
procname := 'fpc_shr_'+procname;
{ this order of parameters works at least for the arm,
however it should work for any calling conventions (FK) }
result := ccallnode.createintern(procname,ccallparanode.create(right,