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

* save destroyed registers when calling threadvar helper

Browse Source
This commit is contained in:
peter 2003-09-14 12:57:10 +00:00
parent 79935db87c
commit 9311d0803d
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ncgld.pas
View File

@ -148,10 +148,10 @@ implementation
{ don't save the allocated register else the result will be destroyed later } { don't save the allocated register else the result will be destroyed later }
reference_reset_symbol(href,objectlibrary.newasmsymboldata(tvarsym(symtableentry).mangledname),0); reference_reset_symbol(href,objectlibrary.newasmsymboldata(tvarsym(symtableentry).mangledname),0);
cg.a_param_ref(exprasmlist,OS_ADDR,href,paraloc1); cg.a_param_ref(exprasmlist,OS_ADDR,href,paraloc1);
{ the called procedure isn't allowed to change }
{ any register except EAX }
cg.a_call_reg(exprasmlist,hregister);
paramanager.freeparaloc(exprasmlist,paraloc1); paramanager.freeparaloc(exprasmlist,paraloc1);
rg.allocexplicitregistersint(exprasmlist,paramanager.get_volatile_registers_int(pocall_default));
cg.a_call_reg(exprasmlist,hregister);
rg.deallocexplicitregistersint(exprasmlist,paramanager.get_volatile_registers_int(pocall_default));
r:=rg.getexplicitregisterint(exprasmlist,NR_FUNCTION_RESULT_REG); r:=rg.getexplicitregisterint(exprasmlist,NR_FUNCTION_RESULT_REG);
rg.ungetregisterint(exprasmlist,r); rg.ungetregisterint(exprasmlist,r);
cg.a_load_reg_reg(exprasmlist,OS_INT,OS_ADDR,r,hregister); cg.a_load_reg_reg(exprasmlist,OS_INT,OS_ADDR,r,hregister);
@ -888,7 +888,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.80 2003-09-10 08:31:47 marco Revision 1.81 2003-09-14 12:57:10 peter
* save destroyed registers when calling threadvar helper
Revision 1.80 2003/09/10 08:31:47 marco
* Patch from Peter for paraloc * Patch from Peter for paraloc
Revision 1.79 2003/09/03 15:55:00 peter Revision 1.79 2003/09/03 15:55:00 peter