paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 05:43:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added trecorddef.buildderefimpl, necessary since advanced records have been implemented. Fixes compiler crash on webtbs/tw18688.pp on x86_64-win64.

Browse Source 
git-svn-id: trunk@26250 -
This commit is contained in:
sergei 2013-12-18 16:26:50 +00:00
parent f27d3baccc
commit 258e8c58a4
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/symdef.pas
View File

@ -283,6 +283,7 @@ interface
function getcopy : tstoreddef;override;
procedure ppuwrite(ppufile:tcompilerppufile);override;
procedure buildderef;override;
procedure buildderefimpl;override;
procedure deref;override;
function size:asizeint;override;
function alignment : shortint;override;
@ -3860,6 +3861,14 @@ implementation
end;
procedure trecorddef.buildderefimpl;
begin
inherited buildderefimpl;
if not (df_copied_def in defoptions) then
tstoredsymtable(symtable).buildderefimpl;
end;
procedure trecorddef.deref;
begin
inherited deref;

2
compiler/symsym.pas
View File

@ -683,6 +683,8 @@ implementation
d : tderef;
begin
inherited ppuwrite(ppufile);
if fprocdefdereflist=nil then
internalerror(2013121801);
ppufile.putword(FProcdefDerefList.Count);
for i:=0 to FProcdefDerefList.Count-1 do
begin