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

* handle LOC_SUBSETREG,LOC_CSUBSETREG,LOC_SUBSETREF,LOC_CSUBSETREF in

Browse Source 
unaryminus code (a.o., fixes compiler crash with test/terecs6 on
    darwin/ppc32 under certain circumstances:
    http://www.freepascal.org/testsuite/cgi-bin/testsuite.cgi?action=3&run1id=74027&run2id=74101&testfileid=3838 )

git-svn-id: trunk@16650 -
This commit is contained in:
Jonas Maebe 2010-12-28 23:52:25 +00:00
parent a8da9e4bd1
commit 5175a5ee07
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/powerpc/nppcmat.pas
View File

@ -576,6 +576,8 @@ end;
end
else
begin
if left.location.loc in [LOC_SUBSETREG,LOC_CSUBSETREG,LOC_SUBSETREF,LOC_CSUBSETREF] then
location_force_reg(current_asmdata.CurrAsmList,left.location,left.location.size,true);
location_copy(location,left.location);
location.loc:=LOC_REGISTER;
case left.location.loc of

2
compiler/powerpc64/nppcmat.pas
View File

@ -316,6 +316,8 @@ var
begin
secondpass(left);
begin
if left.location.loc in [LOC_SUBSETREG,LOC_CSUBSETREG,LOC_SUBSETREF,LOC_CSUBSETREF] then
location_force_reg(current_asmdata.CurrAsmList,left.location,left.location.size,true);
location_copy(location, left.location);
location.loc := LOC_REGISTER;
case left.location.loc of