paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 07:27:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* few MIPS64 fixes

Browse Source
This commit is contained in:
florian 2022-06-09 22:55:11 +02:00
parent deddc441bc
commit 8bd1f19639
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/mips/cpubase.pas
View File

@ -158,12 +158,21 @@ unit cpubase;
Default generic sizes Default generic sizes
*****************************************************************************} *****************************************************************************}
{$ifdef mips64}
{ Defines the default address size for a processor, }
OS_ADDR = OS_64;
{ the natural int size for a processor,
has to match osuinttype/ossinttype as initialized in psystem }
OS_INT = OS_64;
OS_SINT = OS_S64;
{$else mips64}
{ Defines the default address size for a processor, } { Defines the default address size for a processor, }
OS_ADDR = OS_32; OS_ADDR = OS_32;
{# the natural int size for a processor, { the natural int size for a processor,
has to match osuinttype/ossinttype as initialized in psystem } has to match osuinttype/ossinttype as initialized in psystem }
OS_INT = OS_32; OS_INT = OS_32;
OS_SINT = OS_S32; OS_SINT = OS_S32;
{$endif mips64}
{ the maximum float size for a processor, } { the maximum float size for a processor, }
OS_FLOAT = OS_F64; OS_FLOAT = OS_F64;
{ the size of a vector register for a processor } { the size of a vector register for a processor }
@ -173,7 +182,6 @@ unit cpubase;
Generic Register names Generic Register names
*****************************************************************************} *****************************************************************************}
{ PIC Code } { PIC Code }
NR_GP = NR_R28; NR_GP = NR_R28;
NR_PIC_FUNC = NR_R25; NR_PIC_FUNC = NR_R25;
@ -313,7 +321,7 @@ unit cpubase;
begin begin
case getregtype(reg) of case getregtype(reg) of
R_INTREGISTER : R_INTREGISTER :
reg_cgsize:=OS_32; reg_cgsize:=OS_INT;
R_FPUREGISTER : R_FPUREGISTER :
begin begin
if getsubreg(reg)=R_SUBFD then if getsubreg(reg)=R_SUBFD then