paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 00:19:24 +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');
{*****************************************************************************