Browse Source

* fix for Mantis #36174: correctly initialize secprocbits and secflags given the section type

git-svn-id: trunk@43267 -
svenbarth 5 years ago
parent
commit
e251c8e2ab
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/aasmtai.pas

+ 1 - 0
compiler/aasmtai.pas

@@ -1260,6 +1260,7 @@ implementation
         sectype:=asectype;
         sectype:=asectype;
         secalign:=Aalign;
         secalign:=Aalign;
         secorder:=Asecorder;
         secorder:=Asecorder;
+        TObjData.sectiontype2progbitsandflags(sectype,secprogbits,secflags);
         name:=stringdup(Aname);
         name:=stringdup(Aname);
         sec:=nil;
         sec:=nil;
       end;
       end;