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

* fix crash with callnode.ppuload when symtableproc=nil

Browse Source
This commit is contained in:
peter 2004-12-27 16:36:10 +00:00
parent 2a20174317
commit c1bf99c30a
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncal.pas
View File

@ -906,8 +906,9 @@ type
begin begin
inherited derefimpl; inherited derefimpl;
symtableprocentry:=tprocsym(symtableprocentryderef.resolve); symtableprocentry:=tprocsym(symtableprocentryderef.resolve);
if assigned(symtableprocentry) then
symtableproc:=symtableprocentry.owner; symtableproc:=symtableprocentry.owner;
procdefinition:=tprocdef(procdefinitionderef.resolve); procdefinition:=tabstractprocdef(procdefinitionderef.resolve);
if assigned(methodpointer) then if assigned(methodpointer) then
methodpointer.derefimpl; methodpointer.derefimpl;
if assigned(methodpointerinit) then if assigned(methodpointerinit) then
@ -2133,7 +2134,7 @@ type
st:=procdefinition.owner; st:=procdefinition.owner;
if (st.symtabletype=objectsymtable) then if (st.symtabletype=objectsymtable) then
st:=st.defowner.owner; st:=st.defowner.owner;
if (pi_inline_local_only in tprocdef(procdefinition).inlininginfo^.flags) and if (pi_uses_static_symtable in tprocdef(procdefinition).inlininginfo^.flags) and
(st.unitid<>0) then (st.unitid<>0) then
begin begin
Comment(V_lineinfo+V_Debug,'Not inlining "'+tprocdef(procdefinition).procsym.realname+'", references static symtable'); Comment(V_lineinfo+V_Debug,'Not inlining "'+tprocdef(procdefinition).procsym.realname+'", references static symtable');
@ -2449,7 +2450,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.272 2004-12-26 16:22:01 peter Revision 1.273 2004-12-27 16:36:10 peter
* fix crash with callnode.ppuload when symtableproc=nil
Revision 1.272 2004/12/26 16:22:01 peter
* fix lineinfo for with blocks * fix lineinfo for with blocks
Revision 1.271 2004/12/15 21:08:15 peter Revision 1.271 2004/12/15 21:08:15 peter