paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 01:59:18 +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 else
begin begin
if (tvarsym(sym).reg.enum<>R_NO) then 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 else
hs:=tostr(tvarsym(sym).address)+ hs:=tostr(tvarsym(sym).address)+
'('+gas_reg2str[procinfo.framepointer.enum]+')'; // '('+gas_reg2str[procinfo.framepointer.enum]+')';
'('+gas_reg2str[STACK_POINTER_REG]+')';
end; end;
end end
else else
@ -196,7 +199,8 @@ interface
l:=tvarsym(sym).address; l:=tvarsym(sym).address;
{ set offset } { set offset }
inc(l,aktprocdef.parast.address_fixup); 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 if pos(',',s) > 0 then
tvarsym(sym).varstate:=vs_used; tvarsym(sym).varstate:=vs_used;
end; end;
@ -314,7 +318,10 @@ initialization
end. end.
{ {
$Log$ $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 * Tregister changed into a record
Revision 1.6 2002/11/25 17:43:28 peter Revision 1.6 2002/11/25 17:43:28 peter