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

* fixed crash when writing overload operator to ppu

Browse Source
This commit is contained in:
peter 1999-04-19 09:28:20 +00:00
parent d2f717c9e0
commit c044125b7d
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symdef.inc
View File

@ -2531,7 +2531,8 @@ Const local_symtable_index : longint = $8001;
else
begin
{ only write the overloads from the same unit }
if nextoverloaded^.owner=owner then
if assigned(nextoverloaded) and
(nextoverloaded^.owner=owner) then
writedefref(nextoverloaded)
else
writedefref(nil);
@ -3472,7 +3473,10 @@ Const local_symtable_index : longint = $8001;
{
$Log$
Revision 1.102 1999-04-17 22:01:28 pierre
Revision 1.103 1999-04-19 09:28:20 peter
* fixed crash when writing overload operator to ppu
Revision 1.102 1999/04/17 22:01:28 pierre
* typo error fix in STORENUMBER code
Revision 1.101 1999/04/14 09:14:58 peter