paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-23 14:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed control flow after r21492, was causing IE 200602252 if compiling with "-g -Xg" (Mantis #22224)

Browse Source 
- Also removed accidentally committed debug code.

git-svn-id: trunk@21522 -
This commit is contained in:
sergei 2012-06-07 22:30:50 +00:00
parent 6e8594a9af
commit 807a2f243f
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ogbase.pas
View File

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