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

* initialize errorsym/errortype.def.owner to prevent crashes

Browse Source
This commit is contained in:
peter 2004-05-23 20:56:42 +00:00
parent 6245066670
commit a3c4abf4a7
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pmodules.pas
View File

@ -444,6 +444,10 @@ implementation
make_ref:=false;
readconstdefs;
make_ref:=true;
{ Set the owner of errorsym and errortype to symtable to
prevent crashes when accessing .owner }
generrorsym.owner:=systemunit;
generrortype.def.owner:=systemunit;
{$ifdef cpufpemu}
{ Floating point emulation unit? }
if (cs_fp_emulation in aktmoduleswitches) then
@ -1488,7 +1492,10 @@ implementation
end.
{
$Log$
Revision 1.154 2004-05-23 15:06:21 peter
Revision 1.155 2004-05-23 20:56:42 peter
* initialize errorsym/errortype.def.owner to prevent crashes
Revision 1.154 2004/05/23 15:06:21 peter
* implicit_finally flag must be set in pass1
* add check whether the implicit frame is generated when expected