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

* fixes for new regallocator

Browse Source
This commit is contained in:
Jonas Maebe 2003-03-22 18:00:27 +00:00
parent a40ea8ddb4
commit 45b9d59df5
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/powerpc/radirect.pas
View File

@ -172,10 +172,13 @@ interface
else
begin
if (tvarsym(sym).reg.enum<>R_NO) then
hs:=gas_reg2str[procinfo.framepointer.enum]
// until new regallocator stuff settles down
// hs:=gas_reg2str[procinfo.framepointer.enum]
hs:=gas_reg2str[STACK_POINTER_REG]
else
hs:=tostr(tvarsym(sym).address)+
'('+gas_reg2str[procinfo.framepointer.enum]+')';
// '('+gas_reg2str[procinfo.framepointer.enum]+')';
'('+gas_reg2str[STACK_POINTER_REG]+')';
end;
end
else
@ -196,7 +199,8 @@ interface
l:=tvarsym(sym).address;
{ set offset }
inc(l,aktprocdef.parast.address_fixup);
hs:=tostr(l)+'('+gas_reg2str[procinfo.framepointer.enum]+')';
// hs:=tostr(l)+'('+gas_reg2str[procinfo.framepointer.enum]+')';
hs:=tostr(l)+'('+gas_reg2str[STACK_POINTER_REG]+')';
if pos(',',s) > 0 then
tvarsym(sym).varstate:=vs_used;
end;
@ -314,7 +318,10 @@ initialization
end.
{
$Log$
Revision 1.7 2003-01-08 18:43:58 daniel
Revision 1.8 2003-03-22 18:00:27 jonas
* fixes for new regallocator
Revision 1.7 2003/01/08 18:43:58 daniel
* Tregister changed into a record
Revision 1.6 2002/11/25 17:43:28 peter