paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-12 07:33:09 +01: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; procedure tSparcmoddivnode.pass_generate_code;
const const
{ 64 bit signed overflow } { 64 bit signed overflow }
divops: array[boolean, boolean, boolean] of tasmop = divops: array[boolean, boolean, boolean] of tasmop =
(((A_UDIV,A_UDIVcc),(A_SDIV,A_SDIVcc)), (((A_UDIV,A_UDIVcc),(A_SDIV,A_SDIVcc)),
((A_UDIVX,A_NOP),(A_SDIVX,A_NOP)) ((A_UDIVX,A_NOP),(A_SDIVX,A_NOP))
@ -105,7 +105,7 @@ implementation
numerator := left.location.register; numerator := left.location.register;
resultreg := location.register; resultreg := location.register;
if is_64bitint(resultdef) then if is_64bit(resultdef) then
begin begin
if (nodetype = divn) and if (nodetype = divn) and
(right.nodetype = ordconstn) and (right.nodetype = ordconstn) and