34 lines
485 B
Mathematica
34 lines
485 B
Mathematica
|
# do not dump Octave core
|
||
|
|
if exist("crash_dumps_octave_core", "builtin")
|
||
|
|
crash_dumps_octave_core(0);
|
||
|
|
endif
|
||
|
|
|
||
|
|
swigobject
|
||
|
|
|
||
|
|
a = A();
|
||
|
|
|
||
|
|
a1 = a_ptr(a);
|
||
|
|
a2 = a_ptr(a);
|
||
|
|
|
||
|
|
if (swig_this(a1) != swig_this(a2))
|
||
|
|
error("failed");
|
||
|
|
endif
|
||
|
|
|
||
|
|
|
||
|
|
lthis = uint64(swig_this(a.this));
|
||
|
|
xstr1 = printf("0x%x",lthis);
|
||
|
|
xstr2 = pointer_str(a);
|
||
|
|
|
||
|
|
if (xstr1 != xstr2)
|
||
|
|
error("failed");
|
||
|
|
endif
|
||
|
|
|
||
|
|
s = str(a.this);
|
||
|
|
r = repr(a.this);
|
||
|
|
|
||
|
|
v1 = v_ptr(a);
|
||
|
|
v2 = v_ptr(a);
|
||
|
|
if (uint64(v1) != uint64(v2))
|
||
|
|
error("failed");
|
||
|
|
endif
|