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

+ MIPS: take care of setnoat

Browse Source 
git-svn-id: trunk@43432 -
This commit is contained in:
florian 2019-11-09 21:58:30 +00:00
parent 8b89a5cc51
commit 79dfd9fb51
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/mips/cgcpu.pas
View File

@ -1338,6 +1338,8 @@ begin
list.concat(Taicpu.op_const_const(A_P_MASK,aint(mask),-(LocalSize-lastintoffset)));
list.concat(Taicpu.op_const_const(A_P_FMASK,aint(Fmask),-(LocalSize-lastfpuoffset)));
list.concat(Taicpu.op_none(A_P_SET_NOREORDER));
if tcpuprocinfo(current_procinfo).setnoat then
list.concat(Taicpu.op_none(A_P_SET_NOAT));
if (cs_create_pic in current_settings.moduleswitches) and
(pi_needs_got in current_procinfo.flags) then
begin
@ -1466,6 +1468,7 @@ begin
list.concat(taicpu.op_reg(A_JR, NR_R31));
{ correct stack pointer in the delay slot }
list.concat(taicpu.op_reg_reg_reg(A_ADD,NR_STACK_POINTER_REG,NR_STACK_POINTER_REG,NR_R1));
tcpuprocinfo(current_procinfo).setnoat:=true;
end;
list.concat(Taicpu.op_none(A_P_SET_MACRO));
list.concat(Taicpu.op_none(A_P_SET_REORDER));
@ -1677,6 +1680,7 @@ procedure TCGMIPS.g_profilecode(list:TAsmList);
list.concat(taicpu.op_reg_reg(A_MOVE,NR_R1,NR_RA));
list.concat(taicpu.op_reg_reg_const(A_ADDIU,NR_SP,NR_SP,-8));
a_call_sym_pic(list,current_asmdata.RefAsmSymbol('_mcount',AT_FUNCTION));
tcpuprocinfo(current_procinfo).setnoat:=true;
end;

1
compiler/mips/cpupi.pas
View File

@ -43,6 +43,7 @@ interface
register_used : tparasupregsused;
computed_local_size : longint;
save_gp_ref: treference;
setnoat : boolean;
//intparareg,
//parasize : longint;
constructor create(aparent:tprocinfo);override;