paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 08:27:17 +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
*****************************************************************************}
{$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, }
OS_ADDR = OS_32;
{# the natural int size for a processor,
has to match osuinttype/ossinttype as initialized in psystem }
{ the natural int size for a processor,
has to match osuinttype/ossinttype as initialized in psystem }
OS_INT = OS_32;
OS_SINT = OS_S32;
{$endif mips64}
{ the maximum float size for a processor, }
OS_FLOAT = OS_F64;
{ the size of a vector register for a processor }
@ -173,7 +182,6 @@ unit cpubase;
Generic Register names
*****************************************************************************}
{ PIC Code }
NR_GP = NR_R28;
NR_PIC_FUNC = NR_R25;
@ -313,7 +321,7 @@ unit cpubase;
begin
case getregtype(reg) of
R_INTREGISTER :
reg_cgsize:=OS_32;
reg_cgsize:=OS_INT;
R_FPUREGISTER :
begin
if getsubreg(reg)=R_SUBFD then