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

* no refcount needed for all constants instead of only stringconst

Browse Source 
git-svn-id: trunk@8426 -
This commit is contained in:
peter 2007-09-10 16:41:29 +00:00
parent 5f4b89903c
commit 6b8a5e56b6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgld.pas
View File

@ -530,9 +530,9 @@ implementation
begin
secondpass(right);
{ increment source reference counter, this is
useless for string constants}
useless for constants }
if (right.resultdef.needs_inittable) and
(right.nodetype<>stringconstn) then
not is_constnode(right) then
begin
location_force_mem(current_asmdata.CurrAsmList,right.location);
location_get_data_ref(current_asmdata.CurrAsmList,right.location,href,false);