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

* small avr compilation fixes

Browse Source 
git-svn-id: trunk@12198 -
This commit is contained in:
florian 2008-11-22 09:51:24 +00:00
parent bf7b6fd279
commit 5b5895b8ff
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/avr/cgcpu.pas
View File

@ -46,7 +46,7 @@ unit cgcpu;
procedure a_param_ref(list : TAsmList;size : tcgsize;const r : treference;const paraloc : TCGPara);override; procedure a_param_ref(list : TAsmList;size : tcgsize;const r : treference;const paraloc : TCGPara);override;
procedure a_paramaddr_ref(list : TAsmList;const r : treference;const paraloc : TCGPara);override; procedure a_paramaddr_ref(list : TAsmList;const r : treference;const paraloc : TCGPara);override;
procedure a_call_name(list : TAsmList;const s : string);override; procedure a_call_name(list : TAsmList;const s : string; weak: boolean);override;
procedure a_call_reg(list : TAsmList;reg: tregister);override; procedure a_call_reg(list : TAsmList;reg: tregister);override;
procedure a_call_ref(list : TAsmList;ref: treference);override; procedure a_call_ref(list : TAsmList;ref: treference);override;
@ -230,7 +230,7 @@ unit cgcpu;
end; end;
procedure tcgavr.a_call_name(list : TAsmList;const s : string); procedure tcgavr.a_call_name(list : TAsmList;const s : string; weak: boolean);
begin begin
list.concat(taicpu.op_sym(A_RCALL,current_asmdata.RefAsmSymbol(s))); list.concat(taicpu.op_sym(A_RCALL,current_asmdata.RefAsmSymbol(s)));
{ {
@ -685,7 +685,7 @@ unit cgcpu;
paramanager.freeparaloc(list,paraloc2); paramanager.freeparaloc(list,paraloc2);
paramanager.freeparaloc(list,paraloc1); paramanager.freeparaloc(list,paraloc1);
alloccpuregisters(list,R_INTREGISTER,paramanager.get_volatile_registers_int(pocall_default)); alloccpuregisters(list,R_INTREGISTER,paramanager.get_volatile_registers_int(pocall_default));
a_call_name(list,'FPC_MOVE'); a_call_name_static(list,'FPC_MOVE');
dealloccpuregisters(list,R_INTREGISTER,paramanager.get_volatile_registers_int(pocall_default)); dealloccpuregisters(list,R_INTREGISTER,paramanager.get_volatile_registers_int(pocall_default));
paraloc3.done; paraloc3.done;
paraloc2.done; paraloc2.done;

3
compiler/cgutils.pas
View File

@ -109,6 +109,9 @@ unit cgutils;
{ overlay a 64 Bit register type } { overlay a 64 Bit register type }
2 : (register64 : tregister64); 2 : (register64 : tregister64);
{$endif cpu64bitalu} {$endif cpu64bitalu}
{$ifdef avr}
3 : (registers : array[0..3] of tregister);
{$endif avr}
); );
LOC_SUBSETREG, LOC_SUBSETREG,
LOC_CSUBSETREG : ( LOC_CSUBSETREG : (