paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:11:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed (harmless) class cast error when checking whether an aggregate

Browse Source 
has the same size as one of its members to determine whether we can
    exchange two temps rather than copying one to the other

git-svn-id: trunk@21259 -
This commit is contained in:
Jonas Maebe 2012-05-08 20:02:04 +00:00
parent 003a30db6b
commit 41d86f2b26
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgld.pas
View File

@ -145,7 +145,7 @@ implementation
{ make sure we don't try to call resultdef.size for types that
don't have a compile-time size such as open arrays }
is_special_array(tunarynode(n).left.resultdef) or
(tsubscriptnode(n).left.resultdef.size <> tunarynode(n).resultdef.size) then
(tunarynode(n).left.resultdef.size<>tunarynode(n).resultdef.size) then
result := fen_norecurse_false;
{ optimize the searching a bit }