From 7d4f17d0447b1a63cf5c5a22a4d5e601c2221626 Mon Sep 17 00:00:00 2001 From: Miguel Sofer Date: Sun, 3 Aug 2008 18:00:46 +0000 Subject: made function static --- generic/tclBasic.c | 3 ++- generic/tclCompile.h | 4 +--- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 7c9da84..98d2944 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.348 2008/08/03 17:33:10 msofer Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.349 2008/08/03 18:00:46 msofer Exp $ */ #include "tclInt.h" @@ -134,6 +134,7 @@ static Tcl_NRPostProc NRCommand; static Tcl_NRPostProc NRRunObjProc; static Tcl_NRPostProc AtProcExitCleanup; +static Tcl_NRPostProc NRAtProcExitEval; /* * The following structure define the commands in the Tcl core. diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 14d3880..68e6afe 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.h,v 1.99 2008/08/03 17:33:10 msofer Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.100 2008/08/03 18:00:49 msofer Exp $ */ #ifndef _TCLCOMPILATION @@ -839,8 +839,6 @@ typedef struct { MODULE_SCOPE Tcl_NRPostProc NRRunBytecode; MODULE_SCOPE Tcl_NRPostProc NRAtProcExit; -MODULE_SCOPE Tcl_NRPostProc NRAtProcExitEval; - /* *---------------------------------------------------------------- -- cgit v0.12