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

Another system, another regression... (this time tests/test/tgenfunc15.pp on i386-win32)

Browse Source 
pgenutil.pas:
  * generate_specialization_phase2 & generate_specialization_procs: don't add pending specializations if we're currently parsing a generic

git-svn-id: trunk@33885 -
This commit is contained in:
svenbarth 2016-06-03 12:36:27 +00:00
parent 8c96fbed8f
commit 6c3dd6b601
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pgenutil.pas
View File

@ -1076,7 +1076,7 @@ uses
specialization_done(state);
{ procdefs are only added once we know which overload we use }
if result.typ<>procdef then
if not parse_generic and (result.typ<>procdef) then
current_module.pendingspecializations.add(result.typename,result);
end;
@ -1657,6 +1657,8 @@ uses
hmodule : tmodule;
st : tsymtable;
begin
if parse_generic then
exit;
st:=def.owner;
while st.symtabletype in [localsymtable] do
st:=st.defowner.owner;