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

+ implemented tcgavr.a_jmp_name

Browse Source 
* updated todos

git-svn-id: branches/avr@17287 -
This commit is contained in:
florian 2011-04-10 18:37:26 +00:00
parent 8d960cb608
commit a0b0b43d0c
3 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/avr/cgcpu.pas
View File

@ -591,7 +591,7 @@ unit cgcpu;
end;
end;
{ TODO : support usage of ref.base register parameter }
function tcgavr.normalize_ref(list:TAsmList;ref: treference):treference;
var
tmpreg : tregister;
@ -1075,22 +1075,27 @@ unit cgcpu;
{ comparison operations }
procedure tcgavr.a_cmp_const_reg_label(list : TAsmList;size : tcgsize;cmp_op : topcmp;a : aint;reg : tregister;
l : tasmlabel);
procedure tcgavr.a_cmp_const_reg_label(list : TAsmList;size : tcgsize;
cmp_op : topcmp;a : aint;reg : tregister;l : tasmlabel);
begin
{ TODO : a_cmp_const_reg_label }
end;
procedure tcgavr.a_cmp_reg_reg_label(list : TAsmList;size : tcgsize;cmp_op : topcmp;reg1,reg2 : tregister;l : tasmlabel);
procedure tcgavr.a_cmp_reg_reg_label(list : TAsmList;size : tcgsize;
cmp_op : topcmp;reg1,reg2 : tregister;l : tasmlabel);
begin
{ TODO : a_cmp_reg_reg_label }
end;
procedure tcgavr.a_jmp_name(list : TAsmList;const s : string);
var
ai : taicpu;
begin
internalerror(2011021313);
ai:=taicpu.op_sym(A_JMP,current_asmdata.RefAsmSymbol(s));
ai.is_jmp:=true;
list.concat(ai);
end;

2
compiler/avr/cpupara.pas
View File

@ -207,6 +207,7 @@ unit cpupara;
end;
{ TODO : fix tavrparamanager.create_paraloc_info_intern }
function tavrparamanager.create_paraloc_info_intern(p : tabstractprocdef; side: tcallercallee; paras: tparalist;
var curintreg, curfloatreg, curmmreg: tsuperregister; var cur_stack_offset: aword):longint;
@ -408,6 +409,7 @@ unit cpupara;
end;
{ TODO : fix tavrparamanager.get_funcretloc }
function tavrparamanager.get_funcretloc(p : tabstractprocdef; side: tcallercallee; def: tdef): tcgpara;
var
retcgsize : tcgsize;

1
compiler/avr/navradd.pas
View File

@ -123,6 +123,7 @@ interface
var
tmpreg : tregister;
begin
{ TODO : implement tavraddnode.second_cmpsmallset }
{
pass_left_right;