paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 00:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ AVR: dummy thlcgcpu.g_intf_wrapper implementation

Browse Source
This commit is contained in:
florian 2024-09-14 16:00:07 +02:00
parent 190b27ad45
commit 761b451962
1 changed files with 75 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
compiler/avr/hlcgcpu.pas
View File

@ -41,12 +41,86 @@ interface
implementation
uses
verbose,
cpubase,
symconst,
aasmbase,aasmtai,aasmcpu,
procinfo,
fmodule,
hlcgobj,
cgcpu;
procedure thlcgcpu.g_intf_wrapper(list: TAsmList; procdef: tprocdef; const labelname: string; ioffset: longint);
var
make_global: boolean;
begin
//internalerror(2011021324);
if not(procdef.proctypeoption in [potype_function,potype_procedure]) then
Internalerror(2024091401);
if not assigned(procdef.struct) or
(procdef.procoptions*[po_classmethod, po_staticmethod,
po_methodpointer, po_interrupt, po_iocheck]<>[]) then
Internalerror(2024091402);
if procdef.owner.symtabletype<>ObjectSymtable then
Internalerror(2024091403);
make_global:=false;
if (not current_module.is_unit) or
create_smartlink or
(procdef.owner.defowner.owner.symtabletype=globalsymtable) then
make_global:=true;
if make_global then
list.concat(Tai_symbol.Createname_global(labelname,AT_FUNCTION,0,procdef))
else
list.concat(Tai_symbol.Createname_hidden(labelname,AT_FUNCTION,0,procdef));
{ the wrapper might need aktlocaldata for the additional data to
load the constant }
current_procinfo:=cprocinfo.create(nil);
//{ set param1 interface to self }
//g_adjust_self_value(list,procdef,ioffset);
//
//{ case 4 }
//if (po_virtualmethod in procdef.procoptions) and
// not is_objectpascal_helper(procdef.struct) then
// begin
// loadvmttor12;
// op_onr12methodaddr;
// end
//{ case 0 }
//else if GenerateThumbCode then
// begin
// { bl cannot be used here because it destroys lr }
//
// list.concat(taicpu.op_regset(A_PUSH,R_INTREGISTER,R_SUBWHOLE,[RS_R0]));
//
// { create consts entry }
// reference_reset(tmpref,4,[]);
// current_asmdata.getjumplabel(l);
// current_procinfo.aktlocaldata.Concat(tai_align.Create(4));
// cg.a_label(current_procinfo.aktlocaldata,l);
// tmpref.symboldata:=current_procinfo.aktlocaldata.last;
// current_procinfo.aktlocaldata.concat(tai_const.Create_sym(current_asmdata.RefAsmSymbol(procdef.mangledname,AT_FUNCTION)));
//
// tmpref.symbol:=l;
// tmpref.base:=NR_PC;
// cg.a_load_ref_reg(list,OS_ADDR,OS_ADDR,tmpref,NR_R0);
// list.concat(taicpu.op_reg_reg(A_MOV,NR_R12,NR_R0));
// list.concat(taicpu.op_regset(A_POP,R_INTREGISTER,R_SUBWHOLE,[RS_R0]));
// list.concat(taicpu.op_reg(A_BX,NR_R12));
// end
//else
// list.concat(taicpu.op_sym(A_B,current_asmdata.RefAsmSymbol(procdef.mangledname,AT_FUNCTION)));
list.concatlist(current_procinfo.aktlocaldata);
{ dummy so far }
list.concat(taicpu.op_none(A_RET));
current_procinfo.Free;
current_procinfo:=nil;
list.concat(Tai_symbol_end.Createname(labelname));
end;