paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 19:11:03 +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 else
begin begin
{ local? } { local? }
if (tloadnode(n).symtableentry.typ <> localvarsym) then if (tloadnode(n).symtableentry.typ <> localvarsym) or
(tloadnode(n).symtableentry.owner <> tprocdef(procdefinition).localst) then
exit; exit;
if (tloadnode(n).symtableentry.indexnr >= inlinelocals.capacity) or if (tloadnode(n).symtableentry.indexnr >= inlinelocals.capacity) or
not assigned(inlinelocals[tloadnode(n).symtableentry.indexnr]) then not assigned(inlinelocals[tloadnode(n).symtableentry.indexnr]) then
@ -2408,7 +2409,11 @@ begin
end. end.
{ {
$Log$ $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 * fixed some bugs in the node inlining code due to the transition from
dynamic array to tlist dynamic array to tlist
* fixed some register temp bugs (node inlining still does not work again * fixed some register temp bugs (node inlining still does not work again