mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 08:11:29 +01:00
114 lines
3.1 KiB
ObjectPascal
114 lines
3.1 KiB
ObjectPascal
{
|
|
Copyright (c) 2015 by Jeppe Johansen
|
|
|
|
AVR version of some node tree helper 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 navrutil;
|
|
|
|
{$i fpcdefs.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
cclasses,
|
|
node,nbas,
|
|
ngenutil,
|
|
symtype,symconst,symsym,symdef;
|
|
|
|
|
|
type
|
|
tavrnodeutils = class(tnodeutils)
|
|
protected
|
|
class procedure insert_init_final_table(entries:tfplist); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
verbose,cutils,globtype,globals,constexp,fmodule,
|
|
aasmdata,aasmtai,aasmcpu,aasmcnst,aasmbase,
|
|
cpubase,
|
|
symbase,symcpu,symtable,defutil,
|
|
ncnv,ncon,ninl,ncal,nld,nmem,
|
|
systems,
|
|
CPUInfo,
|
|
ppu,
|
|
pass_1;
|
|
|
|
|
|
class procedure tavrnodeutils.insert_init_final_table(entries:tfplist);
|
|
var
|
|
op : TAsmOp;
|
|
initList, finalList, header: TAsmList;
|
|
entry : pinitfinalentry;
|
|
i : longint;
|
|
begin
|
|
initList:=TAsmList.create;
|
|
finalList:=TAsmList.create;
|
|
|
|
if CPUAVR_HAS_JMP_CALL in cpu_capabilities[current_settings.cputype] then
|
|
op:=A_CALL
|
|
else
|
|
op:=A_RCALL;
|
|
|
|
for i:=0 to entries.count-1 do
|
|
begin
|
|
entry:=pinitfinalentry(entries[i]);
|
|
if entry^.finifunc<>'' then
|
|
finalList.Concat(taicpu.op_sym(op,current_asmdata.RefAsmSymbol(entry^.finifunc,AT_FUNCTION)));
|
|
if entry^.initfunc<>'' then
|
|
initList.Concat(taicpu.op_sym(op,current_asmdata.RefAsmSymbol(entry^.initfunc,AT_FUNCTION)));
|
|
end;
|
|
|
|
initList.Concat(taicpu.op_none(A_RET));
|
|
finalList.Concat(taicpu.op_none(A_RET));
|
|
|
|
begin
|
|
header:=TAsmList.create;
|
|
new_section(header, sec_code, 'FPC_INIT_FUNC_TABLE', 1);
|
|
header.concat(tai_symbol.Createname_global('FPC_INIT_FUNC_TABLE',AT_FUNCTION,0,voidcodepointertype));
|
|
|
|
initList.insertList(header);
|
|
header.free;
|
|
|
|
current_asmdata.AsmLists[al_procedures].concatList(initList);
|
|
end;
|
|
|
|
begin
|
|
header:=TAsmList.create;
|
|
new_section(header, sec_code, 'FPC_FINALIZE_FUNC_TABLE', 1);
|
|
header.concat(tai_symbol.Createname_global('FPC_FINALIZE_FUNC_TABLE',AT_FUNCTION,0,voidcodepointertype));
|
|
|
|
finalList.insertList(header);
|
|
header.free;
|
|
|
|
current_asmdata.AsmLists[al_procedures].concatList(finalList);
|
|
end;
|
|
|
|
initList.Free;
|
|
finalList.Free;
|
|
|
|
inherited insert_init_final_table(entries);
|
|
end;
|
|
|
|
begin
|
|
cnodeutils:=tavrnodeutils;
|
|
end.
|
|
|