Browse Source

* dpmiexcp removed

pierre 25 years ago
parent
commit
e4463fc278
1 changed files with 5 additions and 2 deletions
  1. 5 2
      tests/tbs/tbs0305.pp

+ 5 - 2
tests/tbs/tbs0305.pp

@@ -1,8 +1,11 @@
 {$mode objfpc}
 uses
+(* sysutils does not work correctly with DPMIEXCP unit
+  anyway, its not needed anymore
+  since the exception handler is now in system unit
 {$ifdef go32v2}
 dpmiexcp,
-{$endif}
+{$endif} *)
 sysutils;
 var i,j,k:real;
 const except_called : boolean = false;
@@ -22,4 +25,4 @@ begin
       Writeln('Error in except handling');
       Halt(1);
     end;
-end.
+end.