<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-base.
</pre>
<p><a href="https://github.com/macports/macports-base/commit/01f5c5dd0c8bf8819c5f39f42a4ea4b6e5b24f25">https://github.com/macports/macports-base/commit/01f5c5dd0c8bf8819c5f39f42a4ea4b6e5b24f25</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'> new 01f5c5dd0 Regenerate machista_wrap.c with latest swig
</span>01f5c5dd0 is described below
<span style='display:block; white-space:pre;color:#808000;'>commit 01f5c5dd0c8bf8819c5f39f42a4ea4b6e5b24f25
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Mon Nov 6 17:37:58 2023 +1100
<span style='display:block; white-space:pre;color:#404040;'> Regenerate machista_wrap.c with latest swig
</span><span style='display:block; white-space:pre;color:#404040;'>
</span><span style='display:block; white-space:pre;color:#404040;'> Adding -Wmissing-field-initializers no longer appears to make a
</span><span style='display:block; white-space:pre;color:#404040;'> difference.
</span>---
src/machista1.0/machista_wrap.c | 236 ++++++++++++++++++++++++----------------
1 file changed, 142 insertions(+), 94 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/machista1.0/machista_wrap.c b/src/machista1.0/machista_wrap.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 7abc01b3e..4e2072036 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/machista1.0/machista_wrap.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/machista1.0/machista_wrap.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1,24 +1,14 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-/*
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- * Non-generated MacPorts addition:
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- * Ignore these warnings in the generated SWIG code below.
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- *
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- * Please retain these #pragmas when regenerating the file!
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- */
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-#pragma GCC diagnostic ignored "-Wmissing-field-initializers"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-#pragma clang diagnostic ignored "-Wmissing-field-initializers"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span> /* ----------------------------------------------------------------------------
<span style='display:block; white-space:pre;background:#ffe0e0;'>- * This file was automatically generated by SWIG (http://www.swig.org).
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- * Version 3.0.5
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * This file was automatically generated by SWIG (https://www.swig.org).
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * Version 4.1.1
</span> *
<span style='display:block; white-space:pre;background:#ffe0e0;'>- * This file is not intended to be easily readable and contains a number of
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- * coding conventions designed to improve portability and efficiency. Do not make
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- * changes to this file unless you know what you are doing--modify the SWIG
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- * interface file instead.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * Do not make changes to this file unless you know what you are doing - modify
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * the SWIG interface file instead.
</span> * ----------------------------------------------------------------------------- */
<span style='display:block; white-space:pre;background:#ffe0e0;'>-#define SWIGTCL
</span>
<span style='display:block; white-space:pre;background:#e0ffe0;'>+#define SWIG_VERSION 0x040101
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#define SWIGTCL
</span> /* -----------------------------------------------------------------------------
* This section contains generic SWIG labels for method/variable
* declarations/attributes, and other compiler dependent labels.
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -86,9 +76,11 @@
</span> #endif
/* exporting methods */
<span style='display:block; white-space:pre;background:#ffe0e0;'>-#if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# ifndef GCC_HASCLASSVISIBILITY
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-# define GCC_HASCLASSVISIBILITY
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#if defined(__GNUC__)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# ifndef GCC_HASCLASSVISIBILITY
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# define GCC_HASCLASSVISIBILITY
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# endif
</span> # endif
#endif
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -127,6 +119,19 @@
</span> # define _SCL_SECURE_NO_DEPRECATE
#endif
<span style='display:block; white-space:pre;background:#e0ffe0;'>+/* Deal with Apple's deprecated 'AssertMacros.h' from Carbon-framework */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#endif
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+/* Intel's compiler complains if a variable which was never initialised is
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * cast to void, which is a common idiom which we use to indicate that we
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * are aware a variable isn't used. So we just silence that warning.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * See: https://github.com/swig/swig/issues/192 for more discussion.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#ifdef __INTEL_COMPILER
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# pragma warning disable 592
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#endif
</span>
#include <stdio.h>
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -181,6 +186,9 @@
</span> /* Flags for pointer conversions */
#define SWIG_POINTER_DISOWN 0x1
#define SWIG_CAST_NEW_MEMORY 0x2
<span style='display:block; white-space:pre;background:#e0ffe0;'>+#define SWIG_POINTER_NO_NULL 0x4
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#define SWIG_POINTER_CLEAR 0x8
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#define SWIG_POINTER_RELEASE (SWIG_POINTER_CLEAR | SWIG_POINTER_DISOWN)
</span>
/* Flags for new pointer objects */
#define SWIG_POINTER_OWN 0x1
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -252,7 +260,7 @@
</span> SWIG errors code.
Finally, if the SWIG_CASTRANK_MODE is enabled, the result code
<span style='display:block; white-space:pre;background:#ffe0e0;'>- allows to return the 'cast rank', for example, if you have this
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ allows returning the 'cast rank', for example, if you have this
</span>
int food(double)
int fooi(int);
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -266,7 +274,13 @@
</span> */
#define SWIG_OK (0)
<span style='display:block; white-space:pre;background:#e0ffe0;'>+/* Runtime errors are < 0 */
</span> #define SWIG_ERROR (-1)
<span style='display:block; white-space:pre;background:#e0ffe0;'>+/* Errors in range -1 to -99 are in swigerrors.swg (errors for all languages including those not using the runtime) */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+/* Errors in range -100 to -199 are language specific errors defined in *errors.swg */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+/* Errors < -200 are generic runtime specific errors */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#define SWIG_ERROR_RELEASE_NOT_OWNED (-200)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> #define SWIG_IsOK(r) (r >= 0)
#define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -281,7 +295,7 @@
</span> #define SWIG_OLDOBJ (SWIG_OK)
#define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
#define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
<span style='display:block; white-space:pre;background:#ffe0e0;'>-/* Check, add and del mask methods */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+/* Check, add and del object mask methods */
</span> #define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
#define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
#define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -427,7 +441,7 @@ SWIG_TypeCheck(const char *c, swig_type_info *ty) {
</span> Identical to SWIG_TypeCheck, except strcmp is replaced with a pointer comparison
*/
SWIGRUNTIME swig_cast_info *
<span style='display:block; white-space:pre;background:#ffe0e0;'>-SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+SWIG_TypeCheckStruct(const swig_type_info *from, swig_type_info *ty) {
</span> if (ty) {
swig_cast_info *iter = ty->cast;
while (iter) {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -487,9 +501,9 @@ SWIG_TypeName(const swig_type_info *ty) {
</span> SWIGRUNTIME const char *
SWIG_TypePrettyName(const swig_type_info *type) {
/* The "str" field contains the equivalent pretty names of the
<span style='display:block; white-space:pre;background:#ffe0e0;'>- type, separated by vertical-bar characters. We choose
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- to print the last name, as it is often (?) the most
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- specific. */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ type, separated by vertical-bar characters. Choose the last
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ name. It should be the most specific; a fully resolved name
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ but not necessarily with default template parameters expanded. */
</span> if (!type) return NULL;
if (type->str != NULL) {
const char *last_name = type->str;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -633,16 +647,16 @@ SWIG_UnpackData(const char *c, void *ptr, size_t sz) {
</span> char d = *(c++);
unsigned char uu;
if ((d >= '0') && (d <= '9'))
<span style='display:block; white-space:pre;background:#ffe0e0;'>- uu = ((d - '0') << 4);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ uu = (unsigned char)((d - '0') << 4);
</span> else if ((d >= 'a') && (d <= 'f'))
<span style='display:block; white-space:pre;background:#ffe0e0;'>- uu = ((d - ('a'-10)) << 4);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ uu = (unsigned char)((d - ('a'-10)) << 4);
</span> else
return (char *) 0;
d = *(c++);
if ((d >= '0') && (d <= '9'))
<span style='display:block; white-space:pre;background:#ffe0e0;'>- uu |= (d - '0');
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ uu |= (unsigned char)(d - '0');
</span> else if ((d >= 'a') && (d <= 'f'))
<span style='display:block; white-space:pre;background:#ffe0e0;'>- uu |= (d - ('a'-10));
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ uu |= (unsigned char)(d - ('a'-10));
</span> else
return (char *) 0;
*u = uu;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -709,7 +723,7 @@ SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name) {
</span> }
#endif
<span style='display:block; white-space:pre;background:#ffe0e0;'>-/* Errors in SWIG */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+/* SWIG Errors applicable to all language modules, values are reserved from -1 to -99 */
</span> #define SWIG_UnknownError -1
#define SWIG_IOError -2
#define SWIG_RuntimeError -3
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -725,7 +739,6 @@ SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name) {
</span> #define SWIG_NullReferenceError -13
<span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span> /* -----------------------------------------------------------------------------
* error manipulation
* ----------------------------------------------------------------------------- */
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -821,15 +834,15 @@ extern "C" {
</span> /* Constant information structure */
typedef struct swig_const_info {
int type;
<span style='display:block; white-space:pre;background:#ffe0e0;'>- char *name;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ const char *name;
</span> long lvalue;
double dvalue;
void *pvalue;
swig_type_info **ptype;
} swig_const_info;
<span style='display:block; white-space:pre;background:#ffe0e0;'>-typedef int (*swig_wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *const []);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-typedef int (*swig_wrapper_func)(ClientData, Tcl_Interp *, int, Tcl_Obj *const []);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+typedef int (*swig_wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+typedef int (*swig_wrapper_func)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
</span> typedef char *(*swig_variable_func)(ClientData, Tcl_Interp *, char *, char *, int);
typedef void (*swig_delete_func)(ClientData);
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -868,7 +881,7 @@ typedef struct swig_instance {
</span> /* Structure for command table */
typedef struct {
const char *name;
<span style='display:block; white-space:pre;background:#ffe0e0;'>- int (*wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *const []);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int (*wrapper)(ClientData, Tcl_Interp *, int, Tcl_Obj *CONST []);
</span> ClientData clientdata;
} swig_command_info;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -981,6 +994,12 @@ SWIG_Tcl_GetConstantObj(const char *key) {
</span> #define SWIG_GetConstant SWIG_GetConstantObj
#define SWIG_Tcl_GetConstant SWIG_Tcl_GetConstantObj
<span style='display:block; white-space:pre;background:#e0ffe0;'>+#if TCL_MAJOR_VERSION > 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION >= 5)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#define SWIG_TCL_HASHTABLE_INIT {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#else
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#define SWIG_TCL_HASHTABLE_INIT {0}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#endif
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> #include "assert.h"
#ifdef __cplusplus
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1030,10 +1049,12 @@ SWIG_Tcl_Disown(void *ptr) {
</span> SWIGRUNTIME int
SWIG_Tcl_ConvertPtrFromString(Tcl_Interp *interp, const char *c, void **ptr, swig_type_info *ty, int flags) {
swig_cast_info *tc;
<span style='display:block; white-space:pre;background:#e0ffe0;'>+ const char *cmd_name;
</span> /* Pointer values must start with leading underscore */
while (*c != '_') {
*ptr = (void *) 0;
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if (strcmp(c,"NULL") == 0) return SWIG_OK;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (strcmp(c,"NULL") == 0)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return (flags & SWIG_POINTER_NO_NULL) ? SWIG_NullReferenceError : SWIG_OK;
</span>
/* Empty string: not a pointer */
if (*c == 0) return SWIG_ERROR;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1064,23 +1085,42 @@ SWIG_Tcl_ConvertPtrFromString(Tcl_Interp *interp, const char *c, void **ptr, swi
</span>
c = Tcl_GetStringFromObj(Tcl_GetObjResult(interp), NULL);
}
<span style='display:block; white-space:pre;background:#e0ffe0;'>+ cmd_name = c;
</span>
c++;
c = SWIG_UnpackData(c,ptr,sizeof(void *));
<span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> if (ty) {
tc = c ? SWIG_TypeCheck(c,ty) : 0;
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if (!tc) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (tc) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_CmdInfo info;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (Tcl_GetCommandInfo(interp, cmd_name, &info)) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ swig_instance *inst = (swig_instance *)info.objClientData;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (!inst->thisvalue) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ *ptr = 0;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ assert(inst->thisvalue == *ptr);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (((flags & SWIG_POINTER_RELEASE) == SWIG_POINTER_RELEASE) && !SWIG_Thisown(inst->thisvalue)) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return SWIG_ERROR_RELEASE_NOT_OWNED;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ } else {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (flags & SWIG_POINTER_DISOWN) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ SWIG_Disown((void *) *ptr);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (flags & SWIG_POINTER_CLEAR) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ inst->thisvalue = 0;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int newmemory = 0;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ *ptr = SWIG_TypeCast(tc,(void *) *ptr,&newmemory);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ assert(!newmemory); /* newmemory handling not yet implemented */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ } else {
</span> return SWIG_ERROR;
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if (flags & SWIG_POINTER_DISOWN) {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- SWIG_Disown((void *) *ptr);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- int newmemory = 0;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- *ptr = SWIG_TypeCast(tc,(void *) *ptr,&newmemory);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- assert(!newmemory); /* newmemory handling not yet implemented */
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- }
</span> }
<span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> return SWIG_OK;
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1107,7 +1147,7 @@ SWIG_Tcl_PointerTypeFromString(char *c) {
</span> return c;
}
<span style='display:block; white-space:pre;background:#ffe0e0;'>-/* Convert a packed value value */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+/* Convert a packed pointer value */
</span> SWIGRUNTIME int
SWIG_Tcl_ConvertPacked(Tcl_Interp *SWIGUNUSEDPARM(interp) , Tcl_Obj *obj, void *ptr, int sz, swig_type_info *ty) {
swig_cast_info *tc;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1133,15 +1173,14 @@ SWIG_Tcl_ConvertPacked(Tcl_Interp *SWIGUNUSEDPARM(interp) , Tcl_Obj *obj, void *
</span>
/* Take a pointer and convert it to a string */
SWIGRUNTIME void
<span style='display:block; white-space:pre;background:#ffe0e0;'>-SWIG_Tcl_MakePtr(char *c, void *ptr, swig_type_info *ty, int flags) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+SWIG_Tcl_MakePtr(char *c, void *ptr, swig_type_info *ty, int SWIGUNUSEDPARM(flags)) {
</span> if (ptr) {
*(c++) = '_';
c = SWIG_PackData(c,&ptr,sizeof(void *));
strcpy(c,ty->name);
} else {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- strcpy(c,(char *)"NULL");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ strcpy(c,"NULL");
</span> }
<span style='display:block; white-space:pre;background:#ffe0e0;'>- flags = 0;
</span> }
/* Create a new pointer object */
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1195,14 +1234,15 @@ SWIG_Tcl_SetModule(Tcl_Interp *interp, swig_module_info *module) {
</span> }
/* -----------------------------------------------------------------------------*
<span style='display:block; white-space:pre;background:#ffe0e0;'>- * Object auxiliars
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * Object auxiliaries
</span> * -----------------------------------------------------------------------------*/
SWIGRUNTIME void
SWIG_Tcl_ObjectDelete(ClientData clientData) {
swig_instance *si = (swig_instance *) clientData;
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if ((si) && (si->destroy) && (SWIG_Disown(si->thisvalue))) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (!si) return;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (si->destroy && SWIG_Disown(si->thisvalue)) {
</span> if (si->classptr->destructor) {
(si->classptr->destructor)(si->thisvalue);
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1213,7 +1253,7 @@ SWIG_Tcl_ObjectDelete(ClientData clientData) {
</span>
/* Function to invoke object methods given an instance */
SWIGRUNTIME int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-SWIG_Tcl_MethodCommand(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const _objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+SWIG_Tcl_MethodCommand(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST _objv[]) {
</span> char *method, *attrname;
swig_instance *inst = (swig_instance *) clientData;
swig_method *meth;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1252,7 +1292,6 @@ SWIG_Tcl_MethodCommand(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_
</span> }
cls_stack[cls_stack_top] = inst->classptr;
cls_stack_bi[cls_stack_top] = -1;
<span style='display:block; white-space:pre;background:#ffe0e0;'>- cls = inst->classptr;
</span> while (1) {
Tcl_HashEntry* hashentry;
bi = cls_stack_bi[cls_stack_top];
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1398,9 +1437,11 @@ SWIG_Tcl_NewInstanceObj(Tcl_Interp *interp, void *thisvalue, swig_type_info *typ
</span> /* Check to see if this pointer belongs to a class or not */
if (thisvalue && (type->clientdata) && (interp)) {
Tcl_CmdInfo ci;
<span style='display:block; white-space:pre;background:#e0ffe0;'>+ int has_command;
</span> char *name;
name = Tcl_GetStringFromObj(robj,NULL);
<span style='display:block; white-space:pre;background:#ffe0e0;'>- if (!Tcl_GetCommandInfo(interp,name, &ci) || (flags)) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ has_command = Tcl_GetCommandInfo(interp, name, &ci);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (!has_command || flags) {
</span> swig_instance *newinst = (swig_instance *) malloc(sizeof(swig_instance));
newinst->thisptr = Tcl_DuplicateObj(robj);
Tcl_IncrRefCount(newinst->thisptr);
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1411,6 +1452,15 @@ SWIG_Tcl_NewInstanceObj(Tcl_Interp *interp, void *thisvalue, swig_type_info *typ
</span> if (flags) {
SWIG_Acquire(thisvalue);
}
<span style='display:block; white-space:pre;background:#e0ffe0;'>+ } else {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ swig_instance *inst = (swig_instance *)ci.objClientData;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ /* Restore thisvalue as SWIG_POINTER_CLEAR may have been used to set it to zero.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Occurs when the C pointer is re-used by the memory allocator and the command has
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ been created and not destroyed - bug?? - see cpp11_std_unique_ptr_runme.tcl test. */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (inst->thisvalue != thisvalue) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ assert(inst->thisvalue == 0);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ inst->thisvalue = thisvalue;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span> }
}
return robj;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1418,7 +1468,7 @@ SWIG_Tcl_NewInstanceObj(Tcl_Interp *interp, void *thisvalue, swig_type_info *typ
</span>
/* Function to create objects */
SWIGRUNTIME int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-SWIG_Tcl_ObjectConstructor(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+SWIG_Tcl_ObjectConstructor(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> Tcl_Obj *newObj = 0;
void *thisvalue = 0;
swig_instance *newinst = 0;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1498,7 +1548,7 @@ SWIG_Tcl_ObjectConstructor(ClientData clientData, Tcl_Interp *interp, int objc,
</span> * Get arguments
* -----------------------------------------------------------------------------*/
SWIGRUNTIME int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-SWIG_Tcl_GetArgs(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], const char *fmt, ...) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+SWIG_Tcl_GetArgs(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], const char *fmt, ...) {
</span> int argno = 0, opt = 0;
long tempi;
double tempd;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1602,7 +1652,7 @@ SWIG_Tcl_GetArgs(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], const char
</span>
#define SWIG_exception_fail(code, msg) do { SWIG_Error(code, msg); SWIG_fail; } while(0)
<span style='display:block; white-space:pre;background:#ffe0e0;'>-#define SWIG_contract_assert(expr, msg) if (!(expr)) { SWIG_Error(SWIG_RuntimeError, msg); SWIG_fail; } else
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#define SWIG_contract_assert(expr, msg) do { if (!(expr)) { SWIG_Error(SWIG_RuntimeError, msg); SWIG_fail; } } while (0)
</span>
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1630,10 +1680,6 @@ static swig_module_info swig_module = {swig_types, 8, 0, 0, 0, 0};
</span>
#define SWIG_version "1.0"
<span style='display:block; white-space:pre;background:#ffe0e0;'>-#define SWIGVERSION 0x030005
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-#define SWIG_VERSION SWIGVERSION
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span> #define SWIG_as_voidptr(a) (void *)((const void *)(a))
#define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a))
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1655,7 +1701,7 @@ SWIGEXPORT int SWIG_init(Tcl_Interp *);
</span>
/* Compatibility version for TCL stubs */
#ifndef SWIG_TCL_STUBS_VERSION
<span style='display:block; white-space:pre;background:#ffe0e0;'>-#define SWIG_TCL_STUBS_VERSION "8.1"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#define SWIG_TCL_STUBS_VERSION "8.4"
</span> #endif
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1714,7 +1760,7 @@ SWIG_FromCharPtr(const char *cptr)
</span>
#include <stdio.h>
<span style='display:block; white-space:pre;background:#ffe0e0;'>-#if defined(_MSC_VER) || defined(__BORLANDC__) || defined(_WATCOM)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#if (defined(_MSC_VER) && (_MSC_VER < 1900)) || defined(__BORLANDC__) || defined(_WATCOM)
</span> # ifndef snprintf
# define snprintf _snprintf
# endif
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1852,9 +1898,9 @@ static swig_attribute swig_macho_handle_attributes[] = {
</span> };
static swig_class *swig_macho_handle_bases[] = {0};
static const char * swig_macho_handle_base_names[] = {0};
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static swig_class _wrap_class_macho_handle = { "macho_handle", &SWIGTYPE_p_macho_handle,0,0, swig_macho_handle_methods, swig_macho_handle_attributes, swig_macho_handle_bases,swig_macho_handle_base_names, &swig_module };
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static swig_class _wrap_class_macho_handle = { "macho_handle", &SWIGTYPE_p_macho_handle,0,0, swig_macho_handle_methods, swig_macho_handle_attributes, swig_macho_handle_bases,swig_macho_handle_base_names, &swig_module, SWIG_TCL_HASHTABLE_INIT };
</span> SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_loadcmd_mlt_install_name_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_loadcmd_mlt_install_name_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> struct macho_loadcmd *arg1 = (struct macho_loadcmd *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1875,7 +1921,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_loadcmd_mlt_type_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_loadcmd_mlt_type_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> struct macho_loadcmd *arg1 = (struct macho_loadcmd *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1896,7 +1942,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_loadcmd_mlt_comp_version_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_loadcmd_mlt_comp_version_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> struct macho_loadcmd *arg1 = (struct macho_loadcmd *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1917,7 +1963,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_loadcmd_mlt_version_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_loadcmd_mlt_version_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> struct macho_loadcmd *arg1 = (struct macho_loadcmd *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1938,7 +1984,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_loadcmd_next_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_loadcmd_next_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> struct macho_loadcmd *arg1 = (struct macho_loadcmd *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1971,9 +2017,9 @@ static swig_attribute swig_macho_loadcmd_attributes[] = {
</span> };
static swig_class *swig_macho_loadcmd_bases[] = {0};
static const char * swig_macho_loadcmd_base_names[] = {0};
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static swig_class _wrap_class_macho_loadcmd = { "macho_loadcmd", &SWIGTYPE_p_macho_loadcmd,0,0, swig_macho_loadcmd_methods, swig_macho_loadcmd_attributes, swig_macho_loadcmd_bases,swig_macho_loadcmd_base_names, &swig_module };
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static swig_class _wrap_class_macho_loadcmd = { "macho_loadcmd", &SWIGTYPE_p_macho_loadcmd,0,0, swig_macho_loadcmd_methods, swig_macho_loadcmd_attributes, swig_macho_loadcmd_bases,swig_macho_loadcmd_base_names, &swig_module, SWIG_TCL_HASHTABLE_INIT };
</span> SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_arch_mat_install_name_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_arch_mat_install_name_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> struct macho_arch *arg1 = (struct macho_arch *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1994,7 +2040,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_arch_mat_rpath_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_arch_mat_rpath_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> struct macho_arch *arg1 = (struct macho_arch *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2015,7 +2061,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_arch_mat_arch_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_arch_mat_arch_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> struct macho_arch *arg1 = (struct macho_arch *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2036,7 +2082,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_arch_mat_comp_version_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_arch_mat_comp_version_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> struct macho_arch *arg1 = (struct macho_arch *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2057,7 +2103,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_arch_mat_version_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_arch_mat_version_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> struct macho_arch *arg1 = (struct macho_arch *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2078,7 +2124,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_arch_mat_loadcmds_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_arch_mat_loadcmds_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> struct macho_arch *arg1 = (struct macho_arch *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2099,7 +2145,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_arch_next_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_arch_next_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> struct macho_arch *arg1 = (struct macho_arch *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2134,9 +2180,9 @@ static swig_attribute swig_macho_arch_attributes[] = {
</span> };
static swig_class *swig_macho_arch_bases[] = {0};
static const char * swig_macho_arch_base_names[] = {0};
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static swig_class _wrap_class_macho_arch = { "macho_arch", &SWIGTYPE_p_macho_arch,0,0, swig_macho_arch_methods, swig_macho_arch_attributes, swig_macho_arch_bases,swig_macho_arch_base_names, &swig_module };
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static swig_class _wrap_class_macho_arch = { "macho_arch", &SWIGTYPE_p_macho_arch,0,0, swig_macho_arch_methods, swig_macho_arch_attributes, swig_macho_arch_bases,swig_macho_arch_base_names, &swig_module, SWIG_TCL_HASHTABLE_INIT };
</span> SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_macho_mt_archs_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_macho_mt_archs_get(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> struct macho *arg1 = (struct macho *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2165,9 +2211,9 @@ static swig_attribute swig_macho_attributes[] = {
</span> };
static swig_class *swig_macho_bases[] = {0};
static const char * swig_macho_base_names[] = {0};
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static swig_class _wrap_class_macho = { "macho", &SWIGTYPE_p_macho,0,0, swig_macho_methods, swig_macho_attributes, swig_macho_bases,swig_macho_base_names, &swig_module };
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static swig_class _wrap_class_macho = { "macho", &SWIGTYPE_p_macho,0,0, swig_macho_methods, swig_macho_attributes, swig_macho_bases,swig_macho_base_names, &swig_module, SWIG_TCL_HASHTABLE_INIT };
</span> SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_create_handle(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_create_handle(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> struct macho_handle *result = 0 ;
if (SWIG_GetArgs(interp, objc, objv,":machista::create_handle ") == TCL_ERROR) SWIG_fail;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2180,7 +2226,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_destroy_handle(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_destroy_handle(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> struct macho_handle *arg1 = (struct macho_handle *) 0 ;
void *argp1 = 0 ;
int res1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2200,7 +2246,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_parse_file(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_parse_file(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> struct macho_handle *arg1 = (struct macho_handle *) 0 ;
char *arg2 = (char *) 0 ;
struct macho **arg3 = (struct macho **) 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2240,7 +2286,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_strerror(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_strerror(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> int arg1 ;
int val1 ;
int ecode1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2261,7 +2307,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_get_arch_name(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_get_arch_name(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> cpu_type_t arg1 ;
int val1 ;
int ecode1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2282,7 +2328,7 @@ fail:
</span>
SWIGINTERN int
<span style='display:block; white-space:pre;background:#ffe0e0;'>-_wrap_format_dylib_version(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+_wrap_format_dylib_version(ClientData clientData SWIGUNUSED, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
</span> uint32_t arg1 ;
unsigned int val1 ;
int ecode1 = 0 ;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2344,10 +2390,10 @@ static swig_const_info swig_constants[] = {
</span> /* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */
static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static swig_type_info _swigt__p_int = {"_p_int", "int *|cpu_type_t *", 0, 0, (void*)0, 0};
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static swig_type_info _swigt__p_int = {"_p_int", "cpu_type_t *|int *", 0, 0, (void*)0, 0};
</span> static swig_type_info _swigt__p_macho = {"_p_macho", "struct macho *|macho *", 0, 0, (void*)&_wrap_class_macho, 0};
static swig_type_info _swigt__p_macho_arch = {"_p_macho_arch", "struct macho_arch *|macho_arch *", 0, 0, (void*)&_wrap_class_macho_arch, 0};
<span style='display:block; white-space:pre;background:#ffe0e0;'>-static swig_type_info _swigt__p_macho_handle = {"_p_macho_handle", "macho_handle *|struct macho_handle *", 0, 0, (void*)&_wrap_class_macho_handle, 0};
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+static swig_type_info _swigt__p_macho_handle = {"_p_macho_handle", "struct macho_handle *|macho_handle *", 0, 0, (void*)&_wrap_class_macho_handle, 0};
</span> static swig_type_info _swigt__p_macho_loadcmd = {"_p_macho_loadcmd", "struct macho_loadcmd *|macho_loadcmd *", 0, 0, (void*)&_wrap_class_macho_loadcmd, 0};
static swig_type_info _swigt__p_p_macho = {"_p_p_macho", "struct macho **", 0, 0, (void*)0, 0};
static swig_type_info _swigt__p_unsigned_int = {"_p_unsigned_int", "uint32_t *|unsigned int *", 0, 0, (void*)0, 0};
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2441,9 +2487,12 @@ extern "C" {
</span> #define SWIGRUNTIME_DEBUG
#endif
<span style='display:block; white-space:pre;background:#e0ffe0;'>+#ifndef SWIG_INIT_CLIENT_DATA_TYPE
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#define SWIG_INIT_CLIENT_DATA_TYPE void *
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+#endif
</span>
SWIGRUNTIME void
<span style='display:block; white-space:pre;background:#ffe0e0;'>-SWIG_InitializeModule(void *clientdata) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+SWIG_InitializeModule(SWIG_INIT_CLIENT_DATA_TYPE clientdata) {
</span> size_t i;
swig_module_info *module_head, *iter;
int init;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2489,7 +2538,7 @@ SWIG_InitializeModule(void *clientdata) {
</span>
/* Now work on filling in swig_module.types */
#ifdef SWIGRUNTIME_DEBUG
<span style='display:block; white-space:pre;background:#ffe0e0;'>- printf("SWIG_InitializeModule: size %d\n", swig_module.size);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ printf("SWIG_InitializeModule: size %lu\n", (unsigned long)swig_module.size);
</span> #endif
for (i = 0; i < swig_module.size; ++i) {
swig_type_info *type = 0;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2497,7 +2546,7 @@ SWIG_InitializeModule(void *clientdata) {
</span> swig_cast_info *cast;
#ifdef SWIGRUNTIME_DEBUG
<span style='display:block; white-space:pre;background:#ffe0e0;'>- printf("SWIG_InitializeModule: type %d %s\n", i, swig_module.type_initial[i]->name);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
</span> #endif
/* if there is another module already loaded */
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2572,7 +2621,7 @@ SWIG_InitializeModule(void *clientdata) {
</span> for (i = 0; i < swig_module.size; ++i) {
int j = 0;
swig_cast_info *cast = swig_module.cast_initial[i];
<span style='display:block; white-space:pre;background:#ffe0e0;'>- printf("SWIG_InitializeModule: type %d %s\n", i, swig_module.type_initial[i]->name);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ printf("SWIG_InitializeModule: type %lu %s\n", (unsigned long)i, swig_module.type_initial[i]->name);
</span> while (cast->type) {
printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
cast++;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2691,8 +2740,7 @@ SWIGEXPORT int SWIG_init(Tcl_Interp *interp) {
</span> size_t i;
if (interp == 0) return TCL_ERROR;
#ifdef USE_TCL_STUBS
<span style='display:block; white-space:pre;background:#ffe0e0;'>- /* (char*) cast is required to avoid compiler warning/error for Tcl < 8.4. */
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- if (Tcl_InitStubs(interp, (char*)SWIG_TCL_STUBS_VERSION, 0) == NULL) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (Tcl_InitStubs(interp, SWIG_TCL_STUBS_VERSION, 0) == NULL) {
</span> return TCL_ERROR;
}
#endif
</pre><pre style='margin:0'>
</pre>