paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 09:59:08 +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]; procname: string[31];
begin begin
result := nil; 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 } { otherwise create a call to a helper }
if nodetype = shln then if is_signed(left.resultdef) then
procname := 'fpc_shl_int64' procname:='int64'
else 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, { this order of parameters works at least for the arm,
however it should work for any calling conventions (FK) } however it should work for any calling conventions (FK) }
result := ccallnode.createintern(procname,ccallparanode.create(right, result := ccallnode.createintern(procname,ccallparanode.create(right,