jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

More improvements to type-checking.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@188 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-02-02 23:37:02 +00:00
commit c2dc64db51
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Lib/tcl/swigtcl8.swg
View file

@ -113,14 +113,14 @@ SWIG_TypeCheck(char *c, _swig_type_info *ty)
return 0; return 0;
} }
/* Convert a pointer value */ /* Convert a pointer value */
SWIGSTATICRUNTIME(int) SWIGSTATICRUNTIME(int)
SWIG_ConvertPtr(Tcl_Interp *interp, Tcl_Obj *oc, void **ptr, _swig_type_info *ty) SWIG_ConvertPtrFromString(Tcl_Interp *interp, char *c, void **ptr, _swig_type_info *ty)
{ {
unsigned long p; unsigned long p;
register int d; register int d;
_swig_type_info *tc; _swig_type_info *tc;
char *c = Tcl_GetStringFromObj(oc,NULL);
p = 0; p = 0;
/* Pointer values must start with leading underscore */ /* Pointer values must start with leading underscore */
if (*c != '_') { if (*c != '_') {
@ -153,6 +153,13 @@ SWIG_ConvertPtr(Tcl_Interp *interp, Tcl_Obj *oc, void **ptr, _swig_type_info *ty
return TCL_OK; return TCL_OK;
} }
/* Convert a pointer value */
SWIGSTATICRUNTIME(int)
SWIG_ConvertPtr(Tcl_Interp *interp, Tcl_Obj *oc, void **ptr, _swig_type_info *ty)
{
return SWIG_ConvertPtrFromString(interp, Tcl_GetStringFromObj(oc,NULL), ptr, ty);
}
/* Take a pointer and convert it to a string */ /* Take a pointer and convert it to a string */
SWIGSTATICRUNTIME(void) SWIGSTATICRUNTIME(void)
SWIG_MakePtr(char *c, void *ptr, _swig_type_info *ty) { SWIG_MakePtr(char *c, void *ptr, _swig_type_info *ty) {