paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* dpmiexcp removed

Browse Source
This commit is contained in:
pierre 2000-04-26 10:21:05 +00:00
parent 477eacdff2
commit e4463fc278
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/tbs/tbs0305.pp
View File

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