paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add missing TFenceFlags and TRoundingMode for riscv32

Browse Source 
git-svn-id: trunk@39818 -
This commit is contained in:
pierre 2018-09-26 21:56:03 +00:00
parent 76c45b1a72
commit 10f72ba2c8
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/riscv32/cpubase.pas
View File

@ -176,8 +176,26 @@ uses
*****************************************************************************} *****************************************************************************}
{***************************************************************************** {*****************************************************************************
Operand Sizes Operands
*****************************************************************************} *****************************************************************************}
type
TMemoryOrderingFlag = (moRl, moAq);
TMemoryOrdering = set of TMemoryOrderingFlag;
TFenceFlag = (ffI, ffO, ffR, ffW);
TFenceFlags = set of TFenceFlag;
TRoundingMode = (RM_Default,
RM_RNE,
RM_RTZ,
RM_RDN,
RM_RUP,
RM_RMM);
const
roundingmode2str : array[TRoundingMode] of string[3] = ('',
'rne','rtz','rdn','rup','rmm');
{***************************************************************************** {*****************************************************************************