Browse Source

* Fixed control flow after r21492, was causing IE 200602252 if compiling with "-g -Xg" (Mantis #22224)
- Also removed accidentally committed debug code.

git-svn-id: trunk@21522 -

sergei 13 years ago
parent
commit
807a2f243f
1 changed files with 1 additions and 5 deletions
  1. 1 5
      compiler/ogbase.pas

+ 1 - 5
compiler/ogbase.pas

@@ -2867,7 +2867,7 @@ implementation
             { don't write normal section if writing only debug info }
             if (ExeWriteMode=ewm_dbgonly) and
                not(oso_debug in exesec.SecOptions) then
-              exit;
+              continue;
 
             if oso_data in exesec.SecOptions then
               begin
@@ -2881,11 +2881,7 @@ implementation
                           internalerror(200603042);
                         FWriter.writezeros(objsec.dataalignbytes);
                         if objsec.DataPos<>FWriter.Size then
-                          begin
-                            writeln(objsec.name,' ',hexstr(objsec.datapos,8),' should be: ',hexstr(fwriter.size,8));
                           internalerror(200602251);
-
-                          end;
                         FWriter.writearray(objsec.data);
                       end;
                   end;