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