mirror of https://github.com/svaarala/duktape.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
46 lines
1.1 KiB
46 lines
1.1 KiB
/*
|
|
* If a function modifies its own 'magic' value while it is executing,
|
|
* the change is visible immediately.
|
|
*
|
|
* This is not necessarily stable behavior so user code should not rely
|
|
* on this. The current behavior is a side effect of the way the current
|
|
* call stack state keeping is implemented. This test case just documents
|
|
* the current behavior.
|
|
*/
|
|
|
|
/*===
|
|
*** test_1 (duk_safe_call)
|
|
current magic (on entry): 345
|
|
current magic (after set): 456
|
|
final top: 1
|
|
==> rc=0, result='undefined'
|
|
===*/
|
|
|
|
static duk_ret_t my_func(duk_context *ctx) {
|
|
printf("current magic (on entry): %ld\n", (long) duk_get_current_magic(ctx));
|
|
|
|
duk_push_current_function(ctx);
|
|
duk_set_magic(ctx, -1, 456);
|
|
|
|
printf("current magic (after set): %ld\n", (long) duk_get_current_magic(ctx));
|
|
|
|
return 0;
|
|
}
|
|
|
|
static duk_ret_t test_1(duk_context *ctx, void *udata) {
|
|
(void) udata;
|
|
|
|
duk_push_c_function(ctx, my_func, 2 /*nargs*/);
|
|
duk_set_magic(ctx, -1, 345);
|
|
|
|
duk_push_int(ctx, 123);
|
|
duk_push_int(ctx, 234);
|
|
duk_call(ctx, 2);
|
|
|
|
printf("final top: %ld\n", (long) duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
void test(duk_context *ctx) {
|
|
TEST_SAFE_CALL(test_1);
|
|
}
|
|
|