/*------------------------------------------------------------------------------------------

    Program:    CPlusTESample 2.0

    File:       Exceptions.cp

    Uses:       Exceptions.h

    by Andrew Shebanow

    of Apple Macintosh Developer Technical Support

    Copyright © 1989-1990 Apple Computer, Inc.

    All rights reserved.

------------------------------------------------------------------------------------------*/

#include "Exceptions.h"

extern "C" {

    long gFailMessage;      // Current failure message

    short gFailError;       // Current failure error

};

pascal void StandardHandler(short e, long m, void* Handler_StaticLink)

{

    gFailError = e;

    gFailMessage = m;

    longjmp((jmp_buf) Handler_StaticLink, 1);

}