paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-25 01:51:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

Remove TABs in source

Browse Source 
git-svn-id: trunk@22333 -
This commit is contained in:
pierre 2012-09-06 08:06:08 +00:00
parent c41b407119
commit 80b0891c7c
1 changed files with 30 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
compiler/mips/cgcpu.pas
View File

@ -691,12 +691,12 @@ var
href: treference; href: treference;
begin begin
if (cs_create_pic in current_settings.moduleswitches) then if (cs_create_pic in current_settings.moduleswitches) then
begin begin
reference_reset(href,sizeof(aint)); reference_reset(href,sizeof(aint));
href.symbol:=current_asmdata.RefAsmSymbol(s); href.symbol:=current_asmdata.RefAsmSymbol(s);
a_loadaddr_ref_reg(list,href,NR_PIC_FUNC); a_loadaddr_ref_reg(list,href,NR_PIC_FUNC);
list.concat(taicpu.op_reg(A_JALR,NR_PIC_FUNC)); list.concat(taicpu.op_reg(A_JALR,NR_PIC_FUNC));
end end
else else
list.concat(taicpu.op_sym(A_JAL,current_asmdata.RefAsmSymbol(s))); list.concat(taicpu.op_sym(A_JAL,current_asmdata.RefAsmSymbol(s)));
{ Delay slot } { Delay slot }
@ -876,10 +876,10 @@ begin
tmpref.refaddr := addr_pic; tmpref.refaddr := addr_pic;
if not (pi_needs_got in current_procinfo.flags) then if not (pi_needs_got in current_procinfo.flags) then
internalerror(200501161); internalerror(200501161);
if current_procinfo.got=NR_NO then if current_procinfo.got=NR_NO then
current_procinfo.got:=NR_GP; current_procinfo.got:=NR_GP;
{ for addr_pic NR_GP can be implicit or explicit } { for addr_pic NR_GP can be implicit or explicit }
if (href.refaddr=addr_pic) and (href.base=current_procinfo.got) then if (href.refaddr=addr_pic) and (href.base=current_procinfo.got) then
href.base:=NR_NO; href.base:=NR_NO;
tmpref.base := current_procinfo.got; tmpref.base := current_procinfo.got;
list.concat(taicpu.op_reg_ref(A_LW, tmpreg, tmpref)); list.concat(taicpu.op_reg_ref(A_LW, tmpreg, tmpref));
@ -896,7 +896,7 @@ begin
else else
href.base := tmpreg; href.base := tmpreg;
end; end;
if (href.base=NR_NO) and (href.offset=0) then if (href.base=NR_NO) and (href.offset=0) then
exit; exit;
end; end;
@ -1422,7 +1422,7 @@ begin
include(saveregs,RS_FRAME_POINTER_REG); include(saveregs,RS_FRAME_POINTER_REG);
if (cs_create_pic in current_settings.moduleswitches) and if (cs_create_pic in current_settings.moduleswitches) and
(pi_needs_got in current_procinfo.flags) then (pi_needs_got in current_procinfo.flags) then
include(saveregs,RS_GP); include(saveregs,RS_GP);
lastintoffset:=LocalSize; lastintoffset:=LocalSize;
framesave:=nil; framesave:=nil;
gp_save:=nil; gp_save:=nil;
@ -1439,15 +1439,15 @@ begin
framesave:=taicpu.op_reg_ref(A_SW,newreg(R_INTREGISTER,reg,R_SUBWHOLE),href) framesave:=taicpu.op_reg_ref(A_SW,newreg(R_INTREGISTER,reg,R_SUBWHOLE),href)
else if (reg=RS_R31) then else if (reg=RS_R31) then
ra_save:=taicpu.op_reg_ref(A_SW,newreg(R_INTREGISTER,reg,R_SUBWHOLE),href) ra_save:=taicpu.op_reg_ref(A_SW,newreg(R_INTREGISTER,reg,R_SUBWHOLE),href)
else if (reg=RS_GP) and else if (reg=RS_GP) and
(cs_create_pic in current_settings.moduleswitches) and (cs_create_pic in current_settings.moduleswitches) and
(pi_needs_got in current_procinfo.flags) then (pi_needs_got in current_procinfo.flags) then
gp_save:=taicpu.op_const(A_P_CPRESTORE,nextoffset) gp_save:=taicpu.op_const(A_P_CPRESTORE,nextoffset)
else else
begin begin
if cs_asm_source in current_settings.globalswitches then if cs_asm_source in current_settings.globalswitches then
helplist.concat(tai_comment.Create(strpnew( helplist.concat(tai_comment.Create(strpnew(
std_regname(newreg(R_INTREGISTER,reg,R_SUBWHOLE))+' register saved.'))); std_regname(newreg(R_INTREGISTER,reg,R_SUBWHOLE))+' register saved.')));
helplist.concat(taicpu.op_reg_ref(A_SW,newreg(R_INTREGISTER,reg,R_SUBWHOLE),href)); helplist.concat(taicpu.op_reg_ref(A_SW,newreg(R_INTREGISTER,reg,R_SUBWHOLE),href));
end; end;
inc(nextoffset,4); inc(nextoffset,4);
@ -1461,24 +1461,24 @@ begin
list.concat(Taicpu.op_const_const(A_P_FMASK,Fmask,-(LocalSize-lastfpuoffset))); list.concat(Taicpu.op_const_const(A_P_FMASK,Fmask,-(LocalSize-lastfpuoffset)));
if (cs_create_pic in current_settings.moduleswitches) and if (cs_create_pic in current_settings.moduleswitches) and
(pi_needs_got in current_procinfo.flags) then (pi_needs_got in current_procinfo.flags) then
begin begin
list.concat(Taicpu.op_reg(A_P_CPLOAD,NR_PIC_FUNC)); list.concat(Taicpu.op_reg(A_P_CPLOAD,NR_PIC_FUNC));
end; end;
list.concat(Taicpu.op_none(A_P_SET_NOREORDER)); list.concat(Taicpu.op_none(A_P_SET_NOREORDER));
if (-LocalSize >= simm16lo) and (-LocalSize <= simm16hi) then if (-LocalSize >= simm16lo) and (-LocalSize <= simm16hi) then
begin begin
list.concat(Taicpu.op_none(A_P_SET_NOMACRO)); list.concat(Taicpu.op_none(A_P_SET_NOMACRO));
if cs_asm_source in current_settings.globalswitches then if cs_asm_source in current_settings.globalswitches then
begin begin
list.concat(tai_comment.Create(strpnew('Stack register updated substract '+tostr(LocalSize)+' for local size'))); list.concat(tai_comment.Create(strpnew('Stack register updated substract '+tostr(LocalSize)+' for local size')));
list.concat(tai_comment.Create(strpnew(' 0-'+ list.concat(tai_comment.Create(strpnew(' 0-'+
tostr(TMIPSProcInfo(current_procinfo).maxpushedparasize)+' for called function parameters'))); tostr(TMIPSProcInfo(current_procinfo).maxpushedparasize)+' for called function parameters')));
list.concat(tai_comment.Create(strpnew('Register save area at '+ list.concat(tai_comment.Create(strpnew('Register save area at '+
tostr(TMIPSProcInfo(current_procinfo).intregstart)))); tostr(TMIPSProcInfo(current_procinfo).intregstart))));
list.concat(tai_comment.Create(strpnew('FPU register save area at '+ list.concat(tai_comment.Create(strpnew('FPU register save area at '+
tostr(TMIPSProcInfo(current_procinfo).floatregstart)))); tostr(TMIPSProcInfo(current_procinfo).floatregstart))));
end; end;
list.concat(Taicpu.Op_reg_reg_const(A_ADDIU,NR_STACK_POINTER_REG,NR_STACK_POINTER_REG,-LocalSize)); list.concat(Taicpu.Op_reg_reg_const(A_ADDIU,NR_STACK_POINTER_REG,NR_STACK_POINTER_REG,-LocalSize));
if cs_asm_source in current_settings.globalswitches then if cs_asm_source in current_settings.globalswitches then
list.concat(tai_comment.Create(strpnew('RA register saved.'))); list.concat(tai_comment.Create(strpnew('RA register saved.')));
@ -1513,20 +1513,20 @@ begin
list.concat(Taicpu.op_reg_reg_reg(A_SUBU,NR_FRAME_POINTER_REG, list.concat(Taicpu.op_reg_reg_reg(A_SUBU,NR_FRAME_POINTER_REG,
NR_STACK_POINTER_REG,NR_R9)); NR_STACK_POINTER_REG,NR_R9));
end; end;
{ The instructions before are macros that can extend to multiple instructions, { The instructions before are macros that can extend to multiple instructions,
the settings of R9 to -LocalSize surely does, the settings of R9 to -LocalSize surely does,
but the saving of RA and FP also might, and might but the saving of RA and FP also might, and might
even use AT register, which is why we use R9 instead of AT here for -LocalSize } even use AT register, which is why we use R9 instead of AT here for -LocalSize }
list.concat(Taicpu.op_none(A_P_SET_NOMACRO)); list.concat(Taicpu.op_none(A_P_SET_NOMACRO));
end; end;
if assigned(gp_save) then if assigned(gp_save) then
begin begin
if cs_asm_source in current_settings.globalswitches then if cs_asm_source in current_settings.globalswitches then
list.concat(tai_comment.Create(strpnew('GOT register saved.'))); list.concat(tai_comment.Create(strpnew('GOT register saved.')));
list.concat(Taicpu.op_none(A_P_SET_MACRO)); list.concat(Taicpu.op_none(A_P_SET_MACRO));
list.concat(gp_save); list.concat(gp_save);
list.concat(Taicpu.op_none(A_P_SET_NOMACRO)); list.concat(Taicpu.op_none(A_P_SET_NOMACRO));
end; end;
with TMIPSProcInfo(current_procinfo) do with TMIPSProcInfo(current_procinfo) do
begin begin
@ -1857,16 +1857,16 @@ procedure TCGMIPS.g_intf_wrapper(list: tasmlist; procdef: tprocdef; const labeln
procedure op_onrvmtmethodaddr; procedure op_onrvmtmethodaddr;
var var
href : treference; href : treference;
reg : tregister; reg : tregister;
begin begin
if (procdef.extnumber=$ffff) then if (procdef.extnumber=$ffff) then
Internalerror(200006139); Internalerror(200006139);
{ call/jmp vmtoffs(%eax) ; method offs } { call/jmp vmtoffs(%eax) ; method offs }
reference_reset_base(href, NR_VMT, tobjectdef(procdef.struct).vmtmethodoffset(procdef.extnumber), sizeof(aint)); reference_reset_base(href, NR_VMT, tobjectdef(procdef.struct).vmtmethodoffset(procdef.extnumber), sizeof(aint));
if (cs_create_pic in current_settings.moduleswitches) then if (cs_create_pic in current_settings.moduleswitches) then
reg:=NR_PIC_FUNC reg:=NR_PIC_FUNC
else else
reg:=NR_VMT; reg:=NR_VMT;
cg.a_load_ref_reg(list, OS_ADDR, OS_ADDR, href, reg); cg.a_load_ref_reg(list, OS_ADDR, OS_ADDR, href, reg);
list.concat(taicpu.op_reg(A_JR, reg)); list.concat(taicpu.op_reg(A_JR, reg));
end; end;