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

* fixed crash when current_procinfo was not yet available

Browse Source
This commit is contained in:
peter 2004-10-12 14:35:14 +00:00
parent 6ffca1688e
commit b5d1220bef
1 changed files with 18 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/nld.pas
View File

@ -269,6 +269,8 @@ implementation
inc(tvarsym(symtableentry).refs);
{ Nested variable? The we need to load the framepointer of
the parent procedure }
if assigned(current_procinfo) then
begin
if (symtable.symtabletype in [localsymtable,parasymtable]) and
(symtable.symtablelevel<>current_procinfo.procdef.parast.symtablelevel) then
begin
@ -280,8 +282,9 @@ implementation
end;
{ static variables referenced in procedures, variable needs to be in memory }
if (symtable.symtabletype=staticsymtable) and
(symtable.symtablelevel<>current_procinfo.procdef.parast.symtablelevel) then
(symtable.symtablelevel<>current_procinfo.procdef.localst.symtablelevel) then
make_not_regable(self);
end;
{ fix self type which is declared as voidpointer in the
definition }
if vo_is_self in tvarsym(symtableentry).varoptions then
@ -1163,7 +1166,10 @@ begin
end.
{
$Log$
Revision 1.133 2004-10-11 15:48:15 peter
Revision 1.134 2004-10-12 14:35:14 peter
* fixed crash when current_procinfo was not yet available
Revision 1.133 2004/10/11 15:48:15 peter
* small regvar for para fixes
* function tvarsym.is_regvar added
* tvarsym.getvaluesize removed, use getsize instead