18 lines
228 B
Mathematica
18 lines
228 B
Mathematica
|
# do not dump Octave core
|
||
|
|
if exist("crash_dumps_octave_core", "builtin")
|
||
|
|
crash_dumps_octave_core(0);
|
||
|
|
endif
|
||
|
|
|
||
|
|
li_cpointer
|
||
|
|
|
||
|
|
|
||
|
|
p = new_intp();
|
||
|
|
intp_assign(p,3);
|
||
|
|
|
||
|
|
if (intp_value(p) != 3)
|
||
|
|
error("failed");
|
||
|
|
endif
|
||
|
|
|
||
|
|
delete_intp(p);
|
||
|
|
|