mirror of
https://github.com/wren-lang/wren.git
synced 2026-01-11 22:28:45 +01:00
e0ac88c22a
Now, you call wrenEnsureSlots() and then wrenSetSlot___() to set up the receiver and arguments before the call. Then wrenCall() is passed a handle to the stub function that makes the call. After that, you can get the result using wrenGetSlot___(). This is a little more verbose to use, but it's more flexible, simpler, and much faster in the VM. The call benchmark is 185% of the previous speed.
84 lines
2.2 KiB
C
84 lines
2.2 KiB
C
#include <string.h>
|
|
|
|
#include "call.h"
|
|
#include "vm.h"
|
|
|
|
void callRunTests(WrenVM* vm)
|
|
{
|
|
wrenEnsureSlots(vm, 1);
|
|
wrenGetVariable(vm, "main", "Call", 0);
|
|
WrenValue* callClass = wrenGetSlotValue(vm, 0);
|
|
|
|
WrenValue* noParams = wrenMakeCallHandle(vm, "noParams");
|
|
WrenValue* zero = wrenMakeCallHandle(vm, "zero()");
|
|
WrenValue* one = wrenMakeCallHandle(vm, "one(_)");
|
|
WrenValue* two = wrenMakeCallHandle(vm, "two(_,_)");
|
|
|
|
// Different arity.
|
|
wrenEnsureSlots(vm, 1);
|
|
wrenSetSlotValue(vm, 0, callClass);
|
|
wrenCall(vm, noParams);
|
|
|
|
wrenEnsureSlots(vm, 1);
|
|
wrenSetSlotValue(vm, 0, callClass);
|
|
wrenCall(vm, zero);
|
|
|
|
wrenEnsureSlots(vm, 2);
|
|
wrenSetSlotValue(vm, 0, callClass);
|
|
wrenSetSlotDouble(vm, 1, 1.0);
|
|
wrenCall(vm, one);
|
|
|
|
wrenEnsureSlots(vm, 3);
|
|
wrenSetSlotValue(vm, 0, callClass);
|
|
wrenSetSlotDouble(vm, 1, 1.0);
|
|
wrenSetSlotDouble(vm, 2, 2.0);
|
|
wrenCall(vm, two);
|
|
|
|
// Returning a value.
|
|
WrenValue* getValue = wrenMakeCallHandle(vm, "getValue()");
|
|
wrenEnsureSlots(vm, 1);
|
|
wrenSetSlotValue(vm, 0, callClass);
|
|
wrenCall(vm, getValue);
|
|
WrenValue* value = wrenGetSlotValue(vm, 0);
|
|
|
|
// Different argument types.
|
|
wrenEnsureSlots(vm, 3);
|
|
wrenSetSlotValue(vm, 0, callClass);
|
|
wrenSetSlotBool(vm, 1, true);
|
|
wrenSetSlotBool(vm, 2, false);
|
|
wrenCall(vm, two);
|
|
|
|
wrenEnsureSlots(vm, 3);
|
|
wrenSetSlotValue(vm, 0, callClass);
|
|
wrenSetSlotDouble(vm, 1, 1.2);
|
|
wrenSetSlotDouble(vm, 2, 3.4);
|
|
wrenCall(vm, two);
|
|
|
|
wrenEnsureSlots(vm, 3);
|
|
wrenSetSlotValue(vm, 0, callClass);
|
|
wrenSetSlotString(vm, 1, "string");
|
|
wrenSetSlotString(vm, 2, "another");
|
|
wrenCall(vm, two);
|
|
|
|
wrenEnsureSlots(vm, 3);
|
|
wrenSetSlotValue(vm, 0, callClass);
|
|
wrenSetSlotNull(vm, 1);
|
|
wrenSetSlotValue(vm, 2, value);
|
|
wrenCall(vm, two);
|
|
|
|
// Truncate a string, or allow null bytes.
|
|
wrenEnsureSlots(vm, 3);
|
|
wrenSetSlotValue(vm, 0, callClass);
|
|
wrenSetSlotBytes(vm, 1, "string", 3);
|
|
wrenSetSlotBytes(vm, 2, "b\0y\0t\0e", 7);
|
|
wrenCall(vm, two);
|
|
|
|
wrenReleaseValue(vm, callClass);
|
|
wrenReleaseValue(vm, noParams);
|
|
wrenReleaseValue(vm, zero);
|
|
wrenReleaseValue(vm, one);
|
|
wrenReleaseValue(vm, two);
|
|
wrenReleaseValue(vm, getValue);
|
|
wrenReleaseValue(vm, value);
|
|
}
|