paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-22 15:36:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use the 64 bit path in tSparcmoddivnode.pass_generate_code for all 64 bit types (including currency) on sparc64

Browse Source 
git-svn-id: trunk@36736 -
This commit is contained in:
florian 2017-07-16 09:24:18 +00:00
parent 9e1dd6d9b5
commit ac894831e4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/sparcgen/ncpumat.pas
View File

@ -80,7 +80,7 @@ implementation
procedure tSparcmoddivnode.pass_generate_code;
const
{ 64 bit signed overflow }
{ 64 bit signed overflow }
divops: array[boolean, boolean, boolean] of tasmop =
(((A_UDIV,A_UDIVcc),(A_SDIV,A_SDIVcc)),
((A_UDIVX,A_NOP),(A_SDIVX,A_NOP))
@ -105,7 +105,7 @@ implementation
numerator := left.location.register;
resultreg := location.register;
if is_64bitint(resultdef) then
if is_64bit(resultdef) then
begin
if (nodetype = divn) and
(right.nodetype = ordconstn) and