Browse Source

+ allow MemPos_EndExeSection to be called with an empty section name

git-svn-id: trunk@39225 -
nickysn 7 years ago
parent
commit
c41f736958
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/ogomf.pas

+ 2 - 0
compiler/ogomf.pas

@@ -3015,6 +3015,8 @@ cleanup:
               with TMZExeSection(FindExeSection(SecName)) do
               with TMZExeSection(FindExeSection(SecName)) do
                 SecOptions:=SecOptions+[oso_debug];
                 SecOptions:=SecOptions+[oso_debug];
             end;
             end;
+          '':
+            {nothing to do};
           else
           else
             internalerror(2018061401);
             internalerror(2018061401);
         end;
         end;