From b2144d1da0a6a0b31fbfa5b55c3cad06e9abf852 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 16 Oct 2015 19:15:37 +0000
Subject: [PATCH]   * give an internalerror if we try to write a tdef that
 doesn't belong to any     symtable to a ppufile

git-svn-id: trunk@32065 -
---
 compiler/symdef.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index 9d47ce6543..716e051cae 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -1865,6 +1865,8 @@ implementation
         buf  : array[0..255] of byte;
         oldintfcrc : boolean;
       begin
+        if defid<0 then
+          internalerror(2015101401);
         ppufile.putlongint(DefId);
         ppufile.putderef(typesymderef);
         ppufile.putsmallset(defoptions);