Преглед изворни кода

* 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