paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 04:29:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed derefdata corruption in case a unit is re-resolved and it has a

Browse Source 
localsymtable with symbols/defs that need to be deref'ed

git-svn-id: trunk@14357 -
This commit is contained in:
Jonas Maebe 2009-12-07 23:26:20 +00:00
parent 98470e953d
commit c3eb47293a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/fppu.pas
View File

@ -1094,7 +1094,11 @@ uses
begin begin
tstoredsymtable(globalsymtable).buildderef; tstoredsymtable(globalsymtable).buildderef;
derefdataintflen:=derefdata.size; derefdataintflen:=derefdata.size;
end; end
else
{ the unit may have been re-resolved, in which case the current
position in derefdata is not necessarily at the end }
derefdata.seek(derefdata.size);
tstoredsymtable(globalsymtable).buildderefimpl; tstoredsymtable(globalsymtable).buildderefimpl;
if (flags and uf_local_symtable)<>0 then if (flags and uf_local_symtable)<>0 then
begin begin