Explorar o código

* 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 %!s(int64=10) %!d(string=hai) anos
pai
achega
cf144a7fb7
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  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