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

* skip the funcretsym in tprocdef.getcopy in case it's in the localst,

Browse Source 
because in that case it will be inserted while parsing the body
    (instead of giving an internalerror)

git-svn-id: branches/jvmbackend@18633 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:17:01 +00:00
parent 1ad834f5f9
commit 390bf35b52
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/symdef.pas
View File

@ -4152,13 +4152,18 @@ implementation
tprocdef(result).aliasnames.concatListcopy(aliasnames); tprocdef(result).aliasnames.concatListcopy(aliasnames);
if assigned(funcretsym) then if assigned(funcretsym) then
begin begin
if (funcretsym.owner=parast) then if funcretsym.owner=parast then
begin begin
j:=parast.symlist.indexof(funcretsym); j:=parast.symlist.indexof(funcretsym);
if j<0 then if j<0 then
internalerror(2011040606); internalerror(2011040606);
tprocdef(result).funcretsym:=tsym(tprocdef(result).parast.symlist[j]); tprocdef(result).funcretsym:=tsym(tprocdef(result).parast.symlist[j]);
end end
else if funcretsym.owner=localst then
begin
{ nothing to do, will be inserted for the new procdef while
parsing its body (by pdecsub.insert_funcret_local) }
end
else else
internalerror(2011040605); internalerror(2011040605);
end; end;