diff options
Diffstat (limited to 'closures/compiler/avr/raavr.pas')
-rw-r--r-- | closures/compiler/avr/raavr.pas | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/closures/compiler/avr/raavr.pas b/closures/compiler/avr/raavr.pas new file mode 100644 index 0000000000..b837b02bef --- /dev/null +++ b/closures/compiler/avr/raavr.pas @@ -0,0 +1,52 @@ +{ + Copyright (c) 1998-2003 by Carl Eric Codere and Peter Vreman + + Handles the common arm 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 raavr; + +{$i fpcdefs.inc} + + interface + + uses + cpubase, + aasmtai,aasmdata, + rautils; + + type + TAVROperand=class(TOperand) + end; + + TAVRInstruction=class(TInstruction) + function ConcatInstruction(p:TAsmList) : tai;override; + end; + + implementation + + uses + aasmcpu; + + function TAVRInstruction.ConcatInstruction(p:TAsmList) : tai; + begin + result:=inherited ConcatInstruction(p); + end; + + +end. |