浏览代码

* use a dummy non-nil pointer in FSectionsUsed and FSectionsInDGROUP, because
TFPHashList refuses to add an item with nil pointer data

git-svn-id: trunk@31494 -

nickysn 10 年之前
父节点
当前提交
cf144a7fb7
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/x86/agx86nsm.pas

+ 2 - 2
compiler/x86/agx86nsm.pas

@@ -563,9 +563,9 @@ interface
                   AsmWrite(' use16');
                 AsmWrite(' class='+omf_segclass[atype]+
                   ' align='+tostr(omf_sectiontype2align(atype)));
-                FSectionsUsed.Add(secname,nil);
+                FSectionsUsed.Add(secname,Pointer(self));
                 if section_belongs_to_dgroup(atype) then
-                  FSectionsInDGROUP.Add(secname,nil);
+                  FSectionsInDGROUP.Add(secname,Pointer(self));
               end;
           end
         else if secnames[atype]='.text' then