[fpc-pascal]error messages

[peter at freepascal.org]

> procedure ErrorMessage;
> begin
>   if ErrorAddr <> nil then
>     begin
>       case ExitCode of
>         1: writeln ('Invalid function number.');
<cut>

>         227: writeln ('Assertion failed error.');
>         else writeln ('Unknown error.');
>       end;
>     end;
>   Exitproc:=OldExitProc;
> end;

Small hint: place the ExitProc:=OldExitProc as the first statement in the 
procedure. If not done and your procedure gives an error it'll get into an 
infinite loop.