diff options
Diffstat (limited to 'compiler/riscv/rarv.pas')
-rw-r--r-- | compiler/riscv/rarv.pas | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/compiler/riscv/rarv.pas b/compiler/riscv/rarv.pas new file mode 100644 index 0000000000..b02c55abab --- /dev/null +++ b/compiler/riscv/rarv.pas @@ -0,0 +1,50 @@ +{ + Copyright (c) 1998-2003 by Carl Eric Codere and Peter Vreman + + Handles the common riscv assembler reader routines + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + 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. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + + **************************************************************************** +} +unit rarv; + +{$I fpcdefs.inc} + +interface + +uses + aasmbase, aasmtai,aasmdata, aasmcpu, + cpubase, rautils, cclasses; + +type + TRVOperand = class(TOperand) + end; + + TRVInstruction = class(TInstruction) + ordering: TMemoryOrdering; + function ConcatInstruction(p: TAsmList): tai; override; + end; + +implementation + + function TRVInstruction.ConcatInstruction(p: TAsmList): tai; + begin + Result:=inherited ConcatInstruction(p); + (result as taicpu).memoryordering:=ordering; + end; + +end. + |