diff options
| author | dgp <dgp@users.sourceforge.net> | 2001-06-17 03:48:18 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2001-06-17 03:48:18 (GMT) |
| commit | a7bfb25cf558c4f2ba054227660dfe3a31523219 (patch) | |
| tree | dbee9a76f5b1da8d4edc5ce3870efb502431c376 /generic/tclIntPlatDecls.h | |
| parent | ed0c34adaed8a98ee5dc98e08810561ef81aa41c (diff) | |
| download | tcl-a7bfb25cf558c4f2ba054227660dfe3a31523219.zip tcl-a7bfb25cf558c4f2ba054227660dfe3a31523219.tar.gz tcl-a7bfb25cf558c4f2ba054227660dfe3a31523219.tar.bz2 | |
* generic/tclInt.decls:
* generic/tclInt.h:
* generic/tclPanic.c (Tcl_PanicVA):
* mac/tclMacAppInit.c (main):
* mac/tclMacPanic.c (TclpPanic):
* unix/tclUnixPort.h:
* win/tclWinPort.h: Replaced TclMacSetPanic with TclpPanic
for setting a platform-specific panic handler. TclpPanic
is NULL on Unix and Windows. Fixes broken wish on Mac due
to earlier patches. [Patch 415648]
* generic/tclIntPlatDecls.h:
* generic/tclStubInit.c: `make gentubs` after above changes.
Diffstat (limited to 'generic/tclIntPlatDecls.h')
| -rw-r--r-- | generic/tclIntPlatDecls.h | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h index ce5e87c..8c690c8 100644 --- a/generic/tclIntPlatDecls.h +++ b/generic/tclIntPlatDecls.h @@ -9,7 +9,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.10 2001/06/08 20:06:11 dgp Exp $ + * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.11 2001/06/17 03:48:19 dgp Exp $ */ #ifndef _TCLINTPLATDECLS @@ -194,8 +194,6 @@ EXTERN FILE * TclMacFOpenHack _ANSI_ARGS_((CONST char * path, /* Slot 24 is reserved */ /* 25 */ EXTERN int TclMacChmod _ANSI_ARGS_((char * path, int mode)); -/* 26 */ -EXTERN void TclMacSetPanic _ANSI_ARGS_((void)); #endif /* MAC_TCL */ typedef struct TclIntPlatStubs { @@ -270,7 +268,6 @@ typedef struct TclIntPlatStubs { FILE * (*tclMacFOpenHack) _ANSI_ARGS_((CONST char * path, CONST char * mode)); /* 23 */ void *reserved24; int (*tclMacChmod) _ANSI_ARGS_((char * path, int mode)); /* 25 */ - void (*tclMacSetPanic) _ANSI_ARGS_((void)); /* 26 */ #endif /* MAC_TCL */ } TclIntPlatStubs; @@ -524,10 +521,6 @@ extern TclIntPlatStubs *tclIntPlatStubsPtr; #define TclMacChmod \ (tclIntPlatStubsPtr->tclMacChmod) /* 25 */ #endif -#ifndef TclMacSetPanic -#define TclMacSetPanic \ - (tclIntPlatStubsPtr->tclMacSetPanic) /* 26 */ -#endif #endif /* MAC_TCL */ #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ |