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

* only try to replace locals from the inlined procedure with temps,

Browse Source 
cycle now works with -dNODEINLINE
This commit is contained in:
Jonas Maebe 2004-11-28 14:34:59 +00:00
parent a7161eedbe
commit 38db3679d8
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ncal.pas
View File

@ -1909,7 +1909,8 @@ type
else
begin
{ local? }
if (tloadnode(n).symtableentry.typ <> localvarsym) then
if (tloadnode(n).symtableentry.typ <> localvarsym) or
(tloadnode(n).symtableentry.owner <> tprocdef(procdefinition).localst) then
exit;
if (tloadnode(n).symtableentry.indexnr >= inlinelocals.capacity) or
not assigned(inlinelocals[tloadnode(n).symtableentry.indexnr]) then
@ -2408,7 +2409,11 @@ begin
end.
{
$Log$
Revision 1.264 2004-11-27 22:43:01 jonas
Revision 1.265 2004-11-28 14:34:59 jonas
* only try to replace locals from the inlined procedure with temps,
cycle now works with -dNODEINLINE
Revision 1.264 2004/11/27 22:43:01 jonas
* fixed some bugs in the node inlining code due to the transition from
dynamic array to tlist
* fixed some register temp bugs (node inlining still does not work again