diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-12-01 14:31:17 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-12-01 14:31:17 (GMT) |
| commit | 84e12e85c42e0e68ff5aa6b331aa0d53962f7c5a (patch) | |
| tree | 399de1866a806b933dcc90269909728680e3553d /generic/tclDecls.h | |
| parent | 426b5e333ff956b1b4b7306157c877ccee9093c5 (diff) | |
| download | tcl-84e12e85c42e0e68ff5aa6b331aa0d53962f7c5a.zip tcl-84e12e85c42e0e68ff5aa6b331aa0d53962f7c5a.tar.gz tcl-84e12e85c42e0e68ff5aa6b331aa0d53962f7c5a.tar.bz2 | |
TIP#298 IMPLEMENTATION
* generic/tcl.decls: Tcl_GetBignumAndClearObj -> Tcl_TakeBignumFromObj.
* generic/tclObj.c:
* generic/tclDecls.h: make genstubs
* generic/tclStubInit.c:
* generic/tclExecute.c: Update callers.
* generic/tclMathOp.c:
Diffstat (limited to 'generic/tclDecls.h')
| -rw-r--r-- | generic/tclDecls.h | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index c05e029..7568dd1 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -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: tclDecls.h,v 1.126 2006/11/15 20:08:43 dgp Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.127 2006/12/01 14:31:19 dgp Exp $ */ #ifndef _TCLDECLS @@ -3329,10 +3329,10 @@ EXTERN void Tcl_SetBignumObj (Tcl_Obj* obj, mp_int* value); EXTERN int Tcl_GetBignumFromObj (Tcl_Interp* interp, Tcl_Obj* obj, mp_int* value); #endif -#ifndef Tcl_GetBignumAndClearObj_TCL_DECLARED -#define Tcl_GetBignumAndClearObj_TCL_DECLARED +#ifndef Tcl_TakeBignumFromObj_TCL_DECLARED +#define Tcl_TakeBignumFromObj_TCL_DECLARED /* 559 */ -EXTERN int Tcl_GetBignumAndClearObj (Tcl_Interp* interp, +EXTERN int Tcl_TakeBignumFromObj (Tcl_Interp* interp, Tcl_Obj* obj, mp_int* value); #endif #ifndef Tcl_TruncateChannel_TCL_DECLARED @@ -4054,7 +4054,7 @@ typedef struct TclStubs { Tcl_Obj* (*tcl_DbNewBignumObj) (mp_int* value, CONST char* file, int line); /* 556 */ void (*tcl_SetBignumObj) (Tcl_Obj* obj, mp_int* value); /* 557 */ int (*tcl_GetBignumFromObj) (Tcl_Interp* interp, Tcl_Obj* obj, mp_int* value); /* 558 */ - int (*tcl_GetBignumAndClearObj) (Tcl_Interp* interp, Tcl_Obj* obj, mp_int* value); /* 559 */ + int (*tcl_TakeBignumFromObj) (Tcl_Interp* interp, Tcl_Obj* obj, mp_int* value); /* 559 */ int (*tcl_TruncateChannel) (Tcl_Channel chan, Tcl_WideInt length); /* 560 */ Tcl_DriverTruncateProc * (*tcl_ChannelTruncateProc) (Tcl_ChannelType * chanTypePtr); /* 561 */ void (*tcl_SetChannelErrorInterp) (Tcl_Interp* interp, Tcl_Obj* msg); /* 562 */ @@ -6351,9 +6351,9 @@ extern TclStubs *tclStubsPtr; #define Tcl_GetBignumFromObj \ (tclStubsPtr->tcl_GetBignumFromObj) /* 558 */ #endif -#ifndef Tcl_GetBignumAndClearObj -#define Tcl_GetBignumAndClearObj \ - (tclStubsPtr->tcl_GetBignumAndClearObj) /* 559 */ +#ifndef Tcl_TakeBignumFromObj +#define Tcl_TakeBignumFromObj \ + (tclStubsPtr->tcl_TakeBignumFromObj) /* 559 */ #endif #ifndef Tcl_TruncateChannel #define Tcl_TruncateChannel \ |