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

Fix regressions.

Browse Source 
pgenutil.pas:
  * process_procdef & process_abstractrecorddef: only check whether the procdef's generic is still a forward declaration if it's in the current unit (otherwise we would trigger an internal error)

git-svn-id: trunk@33828 -
This commit is contained in:
svenbarth 2016-05-27 16:29:22 +00:00
parent ac95dcd7fa
commit 1d7c19aaf0
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/pgenutil.pas
View File

@ -1559,8 +1559,9 @@ uses
{ only generate the code if we need a body }
if assigned(tprocdef(hp).struct) and not tprocdef(hp).forwarddef then
continue;
{ and the body is available already }
if tprocdef(tprocdef(hp).genericdef).forwarddef then
{ and the body is available already (which is implicitely the
case if the generic routine is part of another unit) }
if (hmodule=current_module) and tprocdef(tprocdef(hp).genericdef).forwarddef then
begin
result:=false;
continue;
@ -1602,18 +1603,23 @@ uses
case def.typ of
procdef:
begin
{ the use of forwarddef should not backfire as the
specialization always belongs to the current module }
if not tprocdef(def).forwarddef then
continue;
if not assigned(def.genericdef) then
internalerror(2015061903);
if tprocdef(def.genericdef).forwarddef then
hmodule:=find_module_from_symtable(def.genericdef.owner);
if hmodule=nil then
internalerror(2015061904);
{ we need to check for a forward declaration only if the
generic was declared in the same unit (otherwise there
should be one) }
if (hmodule=current_module) and tprocdef(def.genericdef).forwarddef then
begin
readdlist.add(def);
continue;
end;
hmodule:=find_module_from_symtable(def.genericdef.owner);
if hmodule=nil then
internalerror(2015061904);
specialization_init(tstoreddef(def).genericdef,state);