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

* fix compilation by moving wrongly placed SYSTEMEXCEPTIONDEBUG defines

Browse Source 
git-svn-id: trunk@8699 -
This commit is contained in:
Tomas Hajny 2007-09-30 16:14:07 +00:00
parent 655ac519d4
commit 54caaf4335
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/os2/system.pas
View File

@ -279,8 +279,10 @@ var
Res: cardinal;
Err: byte;
Must_Reset_FPU: boolean;
{$IFDEF SYSTEMEXCEPTIONDEBUG}
CurSS: cardinal;
B: byte;
{$ENDIF SYSTEMEXCEPTIONDEBUG}
begin
{$ifdef SYSTEMEXCEPTIONDEBUG}
if IsConsole then
@ -411,7 +413,6 @@ begin
end;
{$endif SYSTEMEXCEPTIONDEBUG}
end;
{$ifdef SYSTEMEXCEPTIONDEBUG}
end
else
if (Report^.Exception_Num = Xcpt_Signal) and
@ -432,10 +433,9 @@ begin
DosAcknowledgeSignalException (Report^.Parameters [0]);
end
else
Err := 217
Err := 217;
{$IFDEF SYSTEMEXCEPTIONDEBUG}
end
{$ENDIF SYSTEMEXCEPTIONDEBUG}
else
if IsConsole then
begin