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

* improve node complexity calculations for type nodes

Browse Source 
git-svn-id: trunk@37151 -
This commit is contained in:
florian 2017-09-06 20:34:56 +00:00
parent d889a2bf60
commit 3d514856a4
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/nutils.pas
View File

@ -156,7 +156,7 @@ implementation
uses
cutils,verbose,globals,compinnr,
symconst,symdef,
defutil,
defcmp,defutil,
nbas,ncon,ncnv,nld,nflw,nset,ncal,nadd,nmem,ninl,
cpubase,cgbase,procinfo,
pass_1;
@ -779,9 +779,10 @@ implementation
typeconvn:
begin
{ may be more complex in some cases }
if not(ttypeconvnode(p).retains_value_location) then
if not(ttypeconvnode(p).retains_value_location) and
not((ttypeconvnode(p).convtype=tc_pointer_2_array) and (ttypeconvnode(p).left.expectloc in [LOC_CREGISTER,LOC_REGISTER,LOC_CONSTANT])) then
inc(result);
if (result = NODE_COMPLEXITY_INF) then
if result = NODE_COMPLEXITY_INF then
exit;
p := tunarynode(p).left;
end;