From 807a2f243fa772a0246c4159ebaa96c5960a3c8a Mon Sep 17 00:00:00 2001
From: sergei <gorelkin@nanoreflex.ru>
Date: Thu, 7 Jun 2012 22:30:50 +0000
Subject: [PATCH] * 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 -
---
 compiler/ogbase.pas | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/compiler/ogbase.pas b/compiler/ogbase.pas
index 5ce81a763c..0833088a02 100644
--- a/compiler/ogbase.pas
+++ b/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;