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

* give an internalerror if we try to write a tdef that doesn't belong to any

Browse Source 
symtable to a ppufile

git-svn-id: trunk@32065 -
This commit is contained in:
Jonas Maebe 2015-10-16 19:15:37 +00:00
parent 9b310ea9b4
commit b2144d1da0
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symdef.pas
View File

@ -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);