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

* fix tsubscriptnode to handle left.location being an fpu or mm register as well.

Browse Source 
git-svn-id: trunk@26642 -
This commit is contained in:
florian 2014-02-01 13:08:21 +00:00
parent 77967432ef
commit cd6f4d4469
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncgmem.pas
View File

@ -407,8 +407,12 @@ implementation
LOC_CONSTANT, LOC_CONSTANT,
LOC_REGISTER, LOC_REGISTER,
LOC_CREGISTER, LOC_CREGISTER,
{ if a floating point value is casted into a record, it
can happen that we get here an fpu or mm register }
LOC_MMREGISTER, LOC_MMREGISTER,
LOC_FPUREGISTER: LOC_FPUREGISTER,
LOC_CMMREGISTER,
LOC_CFPUREGISTER:
begin begin
{ in case the result is not something that can be put { in case the result is not something that can be put
into an integer register (e.g. into an integer register (e.g.
@ -423,12 +427,12 @@ implementation
memory as well } memory as well }
((left.location.size in [OS_PAIR,OS_SPAIR]) and ((left.location.size in [OS_PAIR,OS_SPAIR]) and
(vs.fieldoffset div sizeof(aword)<>(vs.fieldoffset+vs.getsize-1) div sizeof(aword))) or (vs.fieldoffset div sizeof(aword)<>(vs.fieldoffset+vs.getsize-1) div sizeof(aword))) or
(location.loc in [LOC_MMREGISTER,LOC_FPUREGISTER, (location.loc in [LOC_MMREGISTER,LOC_FPUREGISTER,LOC_CMMREGISTER,LOC_CFPUREGISTER,
{ actually, we should be able to "subscript" a constant, but this would require some code { actually, we should be able to "subscript" a constant, but this would require some code
which enables dumping and reading constants from a temporary memory buffer. This which enables dumping and reading constants from a temporary memory buffer. This
must be done a CPU dependent way, so it is not easy and probably not worth the effort (FK) must be done a CPU dependent way, so it is not easy and probably not worth the effort (FK)
} }
LOC_CONSTANT]) then LOC_CONSTANT]) then
hlcg.location_force_mem(current_asmdata.CurrAsmList,location,left.resultdef) hlcg.location_force_mem(current_asmdata.CurrAsmList,location,left.resultdef)
else else
begin begin

6
compiler/nmem.pas
View File

@ -800,6 +800,12 @@ implementation
else else
begin begin
case left.expectloc of case left.expectloc of
{ if a floating point value is casted into a record, it
can happen that we get here an fpu or mm register }
LOC_CMMREGISTER,
LOC_CFPUREGISTER,
LOC_MMREGISTER,
LOC_FPUREGISTER,
LOC_CONSTANT, LOC_CONSTANT,
LOC_REGISTER, LOC_REGISTER,
LOC_SUBSETREG: LOC_SUBSETREG: