diff options
author | William S Fulton <wsf@fultondesigns.co.uk> | 2018-12-29 14:55:43 +0000 |
---|---|---|
committer | William S Fulton <wsf@fultondesigns.co.uk> | 2018-12-29 14:55:43 +0000 |
commit | 12eb0f81ae77dd6ee5ee50a096f8ce0001189248 (patch) | |
tree | 50c3e08bec8bcbb477927c195703a7c765110ecd /Lib/tcl | |
parent | b1178cf130e86435c9109f0c0c056077884fd026 (diff) | |
download | swig-12eb0f81ae77dd6ee5ee50a096f8ce0001189248.tar.gz |
Fix overloading for non-pointers and NULL - Tcl
Diffstat (limited to 'Lib/tcl')
-rw-r--r-- | Lib/tcl/tclrun.swg | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Lib/tcl/tclrun.swg b/Lib/tcl/tclrun.swg index 408ddac3d..9010b9c87 100644 --- a/Lib/tcl/tclrun.swg +++ b/Lib/tcl/tclrun.swg @@ -125,7 +125,8 @@ SWIG_Tcl_ConvertPtrFromString(Tcl_Interp *interp, const char *c, void **ptr, swi /* Pointer values must start with leading underscore */ while (*c != '_') { *ptr = (void *) 0; - if (strcmp(c,"NULL") == 0) return SWIG_OK; + if (strcmp(c,"NULL") == 0) + return (flags & SWIG_POINTER_NO_NULL) ? SWIG_NullReferenceError : SWIG_OK; /* Empty string: not a pointer */ if (*c == 0) return SWIG_ERROR; |