瀏覽代碼

* fix compilation by moving wrongly placed SYSTEMEXCEPTIONDEBUG defines

git-svn-id: trunk@8699 -
Tomas Hajny 18 年之前
父節點
當前提交
54caaf4335
共有 1 個文件被更改,包括 3 次插入3 次删除
  1. 3 3
      rtl/os2/system.pas

+ 3 - 3
rtl/os2/system.pas

@@ -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