diff options
| author | nijtmans <nijtmans> | 2010-08-14 17:13:02 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-08-14 17:13:02 (GMT) |
| commit | bcc427ce10a994d6f852f8a4a3a47bd706317581 (patch) | |
| tree | 4f5a2412e887b345c272cf9e43755763e7a3922f /generic/tclStubInit.c | |
| parent | d2976f0d8219a1841117e8e004c5bbe21c812961 (diff) | |
| download | tcl-bcc427ce10a994d6f852f8a4a3a47bd706317581.zip tcl-bcc427ce10a994d6f852f8a4a3a47bd706317581.tar.gz tcl-bcc427ce10a994d6f852f8a4a3a47bd706317581.tar.bz2 | |
[Patch #2994165] Change signature of Tcl_FSGetNativePath and TclpDeleteFile
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index d687909..ee7472d 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStubInit.c,v 1.193 2010/07/02 22:31:50 dgp Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.194 2010/08/14 17:13:02 nijtmans Exp $ */ #include "tclInt.h" @@ -41,6 +41,17 @@ #undef Tcl_CreateHashEntry #undef Tcl_Panic +/* Only provided in the stub table for backwards + * binary compatibility. + */ +#define TclFSGetNativePath getnativepath +static const char * +getnativepath( + Tcl_Obj *pathPtr) +{ + return Tcl_FSGetNativePath(pathPtr); +} + /* * WARNING: The contents of this file is automatically generated by the * tools/genStubs.tcl script. Any modifications to the function declarations @@ -963,7 +974,7 @@ const TclStubs tclStubs = { Tcl_FSGetTranslatedPath, /* 466 */ Tcl_FSEvalFile, /* 467 */ Tcl_FSNewNativePath, /* 468 */ - Tcl_FSGetNativePath, /* 469 */ + TclFSGetNativePath, /* 469 */ Tcl_FSFileSystemInfo, /* 470 */ Tcl_FSPathSeparator, /* 471 */ Tcl_FSListVolumes, /* 472 */ @@ -1124,6 +1135,7 @@ const TclStubs tclStubs = { Tcl_LoadFile, /* 627 */ Tcl_FindSymbol, /* 628 */ Tcl_FSUnloadFile, /* 629 */ + Tcl_FSGetNativePath, /* 630 */ }; /* !END!: Do not edit above this line. */ |