Przeglądaj źródła

* 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 lat temu
rodzic
commit
cf144a7fb7
1 zmienionych plików z 2 dodań i 2 usunięć
  1. 2 2
      compiler/x86/agx86nsm.pas

+ 2 - 2
compiler/x86/agx86nsm.pas

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