fpc/packages/palmunits/src/fatalalert.pp

{$MACRO ON}

(******************************************************************************
 *
 * Copyright (c) 1994-2000 Palm, Inc. or its subsidiaries.
 * All rights reserved.
 *
 * File: FatalAlert.h
 *
 * Release: Palm OS SDK 4.0 (63220)
 *
 * Description:
 *        This file defines the system Fatal Alert support.
 *
 * History:
 *    September 12, 1994   Created by Art Lamb
 *
 *****************************************************************************)

{$IFNDEF FPC_DOTTEDUNITS}
unit fatalalert;
{$ENDIF FPC_DOTTEDUNITS}

interface

{$IFDEF FPC_DOTTEDUNITS}
uses PalmApi.Palmos, PalmApi.Coretraps;
{$ELSE FPC_DOTTEDUNITS}
uses palmos, coretraps;
{$ENDIF FPC_DOTTEDUNITS}

// Value returned by SysFatalAlert
const
  fatalReset = 0;
  fatalEnterDebugger = 1;
  fatalDoNothing = $FFFF;

function SysFatalAlert(const msg: PAnsiChar): UInt16; syscall sysTrapSysFatalAlert;

procedure SysFatalAlertInit; syscall sysTrapSysFatalAlertInit;

implementation

end.