diff options
| author | davygrvy <davygrvy@pobox.com> | 2003-12-24 04:18:18 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2003-12-24 04:18:18 (GMT) |
| commit | 5d224fb11538aa654ba2028f75e5ffa06df2c579 (patch) | |
| tree | eff546c6e792fecd4310f81379419c1d68d63c28 /mac/tclMacOSA.c | |
| parent | bdb55bff6176c625c664d4ea5a4ec5187839d7a8 (diff) | |
| download | tcl-5d224fb11538aa654ba2028f75e5ffa06df2c579.zip tcl-5d224fb11538aa654ba2028f75e5ffa06df2c579.tar.gz tcl-5d224fb11538aa654ba2028f75e5ffa06df2c579.tar.bz2 | |
All uses of 'panic' (the macro) changed
to 'Tcl_Panic' (the function). The #define
of panic in tcl.h clearly states it is
deprecated in the comments.
[Patch 865264]
Diffstat (limited to 'mac/tclMacOSA.c')
| -rw-r--r-- | mac/tclMacOSA.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/mac/tclMacOSA.c b/mac/tclMacOSA.c index 0a38396..fdcd56e 100644 --- a/mac/tclMacOSA.c +++ b/mac/tclMacOSA.c @@ -12,7 +12,7 @@ * See the file "License Terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacOSA.c,v 1.10 2002/10/09 11:54:30 das Exp $ + * RCS: @(#) $Id: tclMacOSA.c,v 1.11 2003/12/24 04:18:21 davygrvy Exp $ */ #define MAC_TCL @@ -222,7 +222,7 @@ Tclapplescript_Init( LanguagesTable = (Tcl_HashTable *) ckalloc(sizeof(Tcl_HashTable)); if (LanguagesTable == NULL) { - panic("Memory Error Allocating Languages Hash Table"); + Tcl_Panic("Memory Error Allocating Languages Hash Table"); } Tcl_SetAssocData(interp, "OSAScript_LangTable", NULL, LanguagesTable); @@ -300,7 +300,7 @@ Tclapplescript_Init( ComponentTable = (Tcl_HashTable *) ckalloc(sizeof(Tcl_HashTable)); if (ComponentTable == NULL) { - panic("Memory Error Allocating Hash Table"); + Tcl_Panic("Memory Error Allocating Hash Table"); } Tcl_SetAssocData(interp, "OSAScript_CompTable", NULL, ComponentTable); @@ -1860,7 +1860,7 @@ tclOSAClose( "OSAScript_CompTable", (Tcl_InterpDeleteProc **) NULL); if (ComponentTable == NULL) { - panic("Error, could not get the Component Table from the Associated data."); + Tcl_Panic("Error, could not get the Component Table from the Associated data."); } hashEntry = Tcl_FindHashEntry(ComponentTable, theComponent->theName); |