From c044125b7db647f837d94b84ec7e257192fdb468 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 19 Apr 1999 09:28:20 +0000
Subject: [PATCH]   * fixed crash when writing overload operator to ppu

---
 compiler/symdef.inc | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/compiler/symdef.inc b/compiler/symdef.inc
index 12090f4657..db672bfe59 100644
--- a/compiler/symdef.inc
+++ b/compiler/symdef.inc
@@ -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