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

* several packed array and varset related ies on sparc fixed

Browse Source 
git-svn-id: trunk@6899 -
This commit is contained in:
florian 2007-03-17 09:16:48 +00:00
parent d7752d3c69
commit 53b2b1e882
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ncgadd.pas
View File

@ -232,11 +232,11 @@ interface
procedure tcgaddnode.second_opsmallset;
begin
{ when a setdef is passed, it has to be a smallset }
if ((left.resultdef.typ=setdef) and
(tsetdef(left.resultdef).settype<>smallset)) or
((right.resultdef.typ=setdef) and
(tsetdef(right.resultdef).settype<>smallset)) then
internalerror(200203301);
if is_varset(left.resultdef) or
is_normalset(left.resultdef) or
is_varset(right.resultdef) or
is_normalset(right.resultdef) then
internalerror(200203302);
if nodetype in [equaln,unequaln,gtn,gten,lten,ltn] then
second_cmpsmallset
@ -769,7 +769,8 @@ interface
begin
{Normalsets are already handled in pass1 if mmx
should not be used.}
if (tsetdef(left.resultdef).settype<>smallset) then
if is_varset(tsetdef(left.resultdef)) or
is_normalset(tsetdef(left.resultdef)) then
begin
{$ifdef SUPPORT_MMX}
{$ifdef i386}

5
compiler/sparc/ncpumat.pas
View File

@ -308,7 +308,10 @@ implementation
location_copy(location,left.location);
inverse_flags(location.resflags);
end;
LOC_REGISTER, LOC_CREGISTER, LOC_REFERENCE, LOC_CREFERENCE :
LOC_REGISTER, LOC_CREGISTER,
LOC_REFERENCE, LOC_CREFERENCE,
LOC_SUBSETREG, LOC_CSUBSETREG,
LOC_SUBSETREF, LOC_CSUBSETREF:
begin
location_force_reg(current_asmdata.CurrAsmList,left.location,def_cgsize(left.resultdef),true);
current_asmdata.CurrAsmList.concat(taicpu.op_reg_const_reg(A_SUBcc,left.location.register,0,NR_G0));