Browse Source

* 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 -

Jonas Maebe 9 years ago
parent
commit
b2144d1da0
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/symdef.pas

+ 2 - 0
compiler/symdef.pas

@@ -1865,6 +1865,8 @@ implementation
         buf  : array[0..255] of byte;
         buf  : array[0..255] of byte;
         oldintfcrc : boolean;
         oldintfcrc : boolean;
       begin
       begin
+        if defid<0 then
+          internalerror(2015101401);
         ppufile.putlongint(DefId);
         ppufile.putlongint(DefId);
         ppufile.putderef(typesymderef);
         ppufile.putderef(typesymderef);
         ppufile.putsmallset(defoptions);
         ppufile.putsmallset(defoptions);