paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-07 03:18:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* after making a copy of a vo_has_local_copy parameter, only release

Browse Source 
the old location as a temp in case it was a reference

git-svn-id: trunk@38813 -
This commit is contained in:
Jonas Maebe 2018-04-22 17:03:11 +00:00
parent ad73453e64
commit 3e8cd7d4c9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/hlcgobj.pas
View File

@ -4994,7 +4994,8 @@ implementation
g_concatcopy(list,tparavarsym(p).vardef,href,localcopyloc.reference); g_concatcopy(list,tparavarsym(p).vardef,href,localcopyloc.reference);
end; end;
{ update localloc of varsym } { update localloc of varsym }
tg.Ungetlocal(list,tparavarsym(p).localloc.reference); if tparavarsym(p).localloc.loc in [LOC_REFERENCE,LOC_CREFERENCE] then
tg.Ungetlocal(list,tparavarsym(p).localloc.reference);
tparavarsym(p).localloc:=localcopyloc; tparavarsym(p).localloc:=localcopyloc;
tparavarsym(p).initialloc:=localcopyloc; tparavarsym(p).initialloc:=localcopyloc;
end; end;