From e4463fc27843e90b87ac0a8ba250c60a3aa42dd7 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 26 Apr 2000 10:21:05 +0000
Subject: [PATCH]  * dpmiexcp removed

---
 tests/tbs/tbs0305.pp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/tests/tbs/tbs0305.pp b/tests/tbs/tbs0305.pp
index 80a2cfaa02..cbd1e371e3 100644
--- a/tests/tbs/tbs0305.pp
+++ b/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.
\ No newline at end of file