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

riscv32: Fix potential FP proc_exit bug

Browse Source
This commit is contained in:
Jeppe 2022-06-25 14:11:58 +02:00
parent ff3f183eb2
commit 37b5147b19
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/riscv32/cgcpu.pas
View File

@ -258,7 +258,7 @@ unit cgcpu;
var
r: tsuperregister;
regs, fregs: tcpuregisterset;
stackcount, localsize: longint;
localsize: longint;
href: treference;
begin
if not(nostackframe) then
@ -271,7 +271,6 @@ unit cgcpu;
if (pi_do_call in current_procinfo.flags) then
regs:=regs+[RS_RETURN_ADDRESS_REG];
stackcount:=0;
reference_reset_base(href,NR_STACK_POINTER_REG,-4,ctempposinvalid,0,[]);
for r:=RS_X31 downto RS_X0 do
if r in regs then
@ -281,7 +280,7 @@ unit cgcpu;
fregs:=rg[R_FPUREGISTER].used_in_proc-paramanager.get_volatile_registers_fpu(pocall_stdcall);
for r:=RS_F0 to RS_F31 do
if r in fregs then
dec(stackcount,8);
dec(href.offset,8);
localsize:=current_procinfo.calc_stackframe_size+(-href.offset-4);
if current_procinfo.framepointer<>NR_STACK_POINTER_REG then
@ -319,7 +318,6 @@ unit cgcpu;
begin
inc(href.offset,4);
list.concat(taicpu.op_reg_ref(A_LW,newreg(R_INTREGISTER,r,R_SUBWHOLE),href));
inc(stackcount);
end;
end;