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

* Fixed bug in register preservation tracking

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-04-26 04:13:32 +01:00 committed by FPK
parent 6453af40d8
commit 5cdef8050b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/cgobj.pas
View File

@ -2729,8 +2729,8 @@ implementation
begin
a_load_reg_ref(list,OS_ADDR,OS_ADDR,newreg(R_INTREGISTER,regs_to_save_int[r],R_SUBWHOLE),href);
inc(href.offset,sizeof(aint));
include(rg[R_INTREGISTER].preserved_by_proc,regs_to_save_int[r]);
end;
include(rg[R_INTREGISTER].preserved_by_proc,regs_to_save_int[r]);
end;
current_procinfo.saved_regs_int := rg[R_INTREGISTER].preserved_by_proc;
@ -2742,8 +2742,8 @@ implementation
begin
a_load_reg_ref(list,OS_ADDR,OS_ADDR,newreg(R_ADDRESSREGISTER,regs_to_save_address[r],R_SUBWHOLE),href);
inc(href.offset,sizeof(aint));
include(rg[R_ADDRESSREGISTER].preserved_by_proc,regs_to_save_address[r]);
end;
include(rg[R_ADDRESSREGISTER].preserved_by_proc,regs_to_save_address[r]);
end;
current_procinfo.saved_regs_mm := rg[R_MMREGISTER].preserved_by_proc;
@ -2766,8 +2766,8 @@ implementation
begin
a_loadmm_reg_ref(list,OS_VECTOR,OS_VECTOR,newreg(R_MMREGISTER,regs_to_save_mm[r],R_SUBMMWHOLE),href,nil);
inc(href.offset,tcgsize2size[OS_VECTOR]);
include(rg[R_MMREGISTER].preserved_by_proc,regs_to_save_mm[r]);
end;
include(rg[R_MMREGISTER].preserved_by_proc,regs_to_save_mm[r]);
end;
end;