mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 06:06:17 +02:00
Remove more TABs in source
git-svn-id: trunk@22334 -
This commit is contained in:
parent
80b0891c7c
commit
c72f27e53e
@ -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);
|
||||||
@ -1470,15 +1470,15 @@ begin
|
|||||||
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.')));
|
||||||
@ -1514,9 +1514,9 @@ begin
|
|||||||
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
|
||||||
|
Loading…
Reference in New Issue
Block a user