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

* newra fix for threadvars

Browse Source
This commit is contained in:
Jonas Maebe 2003-07-06 15:25:54 +00:00
parent 80d6905b7b
commit acb3078279
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncgld.pas
View File

@ -73,6 +73,7 @@ implementation
{$endif} {$endif}
dorelocatelab, dorelocatelab,
norelocatelab : tasmlabel; norelocatelab : tasmlabel;
paraloc: tparalocation;
begin begin
{ we don't know the size of all arrays } { we don't know the size of all arrays }
newsize:=def_cgsize(resulttype.def); newsize:=def_cgsize(resulttype.def);
@ -132,6 +133,8 @@ implementation
begin begin
objectlibrary.getlabel(dorelocatelab); objectlibrary.getlabel(dorelocatelab);
objectlibrary.getlabel(norelocatelab); objectlibrary.getlabel(norelocatelab);
{ make sure hregister can't allocate the register necessary for the parameter }
paraloc := paramanager.getintparaloc(exprasmlist,1);
{ we've to allocate the register before we save the used registers } { we've to allocate the register before we save the used registers }
hregister:=rg.getaddressregister(exprasmlist); hregister:=rg.getaddressregister(exprasmlist);
reference_reset_symbol(href,objectlibrary.newasmsymboldata('FPC_THREADVAR_RELOCATE'),0); reference_reset_symbol(href,objectlibrary.newasmsymboldata('FPC_THREADVAR_RELOCATE'),0);
@ -150,7 +153,7 @@ implementation
rg.saveusedintregisters(exprasmlist,pushed,[RS_FUNCTION_RESULT_REG]-[hregister.number shr 8]); rg.saveusedintregisters(exprasmlist,pushed,[RS_FUNCTION_RESULT_REG]-[hregister.number shr 8]);
{$endif} {$endif}
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,paramanager.getintparaloc(exprasmlist,1)); cg.a_param_ref(exprasmlist,OS_ADDR,href,paraloc);
{ the called procedure isn't allowed to change } { the called procedure isn't allowed to change }
{ any register except EAX } { any register except EAX }
cg.a_call_reg(exprasmlist,hregister); cg.a_call_reg(exprasmlist,hregister);
@ -951,7 +954,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.72 2003-06-15 15:13:12 jonas Revision 1.73 2003-07-06 15:25:54 jonas
* newra fix for threadvars
Revision 1.72 2003/06/15 15:13:12 jonas
* fixed register allocation for threadvar loads with newra * fixed register allocation for threadvar loads with newra
Revision 1.71 2003/06/13 21:19:30 peter Revision 1.71 2003/06/13 21:19:30 peter