mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-02 02:33:40 +02:00
4cf2a2672a
* changed most of the variables in the assembler readers used to store constants from aint to tcgint as aint has only the size of the accumular while some CPUs (AVR) allow larger constants in instructions + allow access to absolute symbols with address type in inline assembler * allow absolute addresses in avr inline assembler + tests git-svn-id: trunk@37411 -
53 lines
1.3 KiB
ObjectPascal
53 lines
1.3 KiB
ObjectPascal
{
|
|
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.
|