[fpc-pascal]TRY EXCEPT Bug fix ??

[Thomas Schatzl]

Hello,

    it's a(nother) problem in dpmiexcp.pp.

Here's the fix:

Replace line 194 in that file:

  djgpp_hwint_flags : longint;external name '___djgpp_hwint_flags';

with

  djgpp_hwint_flags : Word;external name '___djgpp_hwint_flags';

and

Replace line 1362

    ResetDefaultHandlers;

with

    {$IFNDEF EXCEPTIONS_IN_SYSTEM}ResetDefaultHandlers;{$ENDIF}

This _should_ fix this problem. Could some of the developers change that
asap ? Hopefully it's the correct define to be used, there are a whole lot
of them floating around ;)

Regards,
    Thomas

>Subject: [fpc-pascal]TRY EXCEPT Bug
>

>Hello,
>
>i found out that the try except stuff doesn´t work if the unit crt is
>compiled in the program where try.. except is used.
>Is it a bug ???
>
>greetings
>
>DirkVerwiebe