paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 06:39:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* more MIPS64 fixes

Browse Source
This commit is contained in:
florian 2022-02-09 22:59:36 +01:00
parent 8d1989fc9a
commit ba51494bd7
2 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/mips/cgcpu.pas
View File

@ -550,6 +550,10 @@ begin
list.concat(taicpu.op_reg_reg_const(A_ANDI, reg2, reg1, $ff)); list.concat(taicpu.op_reg_reg_const(A_ANDI, reg2, reg1, $ff));
OS_16: OS_16:
list.concat(taicpu.op_reg_reg_const(A_ANDI, reg2, reg1, $ffff)); list.concat(taicpu.op_reg_reg_const(A_ANDI, reg2, reg1, $ffff));
{$ifdef cpu64bitalu}
OS_64,
OS_S64,
{$endif cpu64bitalu}
OS_32, OS_32,
OS_S32: OS_S32:
done:=false; done:=false;
@ -1237,8 +1241,12 @@ begin
case size of case size of
OS_32: asmop:=A_MULTU; OS_32: asmop:=A_MULTU;
OS_S32: asmop:=A_MULT; OS_S32: asmop:=A_MULT;
{$ifdef cpu64bitalu}
OS_64: asmop:=A_DMULTU;
OS_S64: asmop:=A_DMULT;
{$endif cpu64bitalu}
else else
InternalError(2014060802); InternalError(2022020901);
end; end;
list.concat(taicpu.op_reg_reg(asmop,src1,src2)); list.concat(taicpu.op_reg_reg(asmop,src1,src2));
if (dstlo<>NR_NO) then if (dstlo<>NR_NO) then

15
rtl/mips64/cpuh.inc Normal file
View File

@ -0,0 +1,15 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2016 by the Free Pascal development team.
CPU specific system unit header file
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}