Browse Source

* no refcount needed for all constants instead of only stringconst

git-svn-id: trunk@8426 -
peter 18 năm trước cách đây
mục cha
commit
6b8a5e56b6
1 tập tin đã thay đổi với 2 bổ sung2 xóa
  1. 2 2
      compiler/ncgld.pas

+ 2 - 2
compiler/ncgld.pas

@@ -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);