Mirror/wren
1
0
Fork 1
mirror of https://github.com/wren-lang/wren.git synced 2026-01-13 23:28:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

Tighten numeric types in intepreter:

Browse Source 
binary_trees - wren            ..........  3563  0.28s  101.26% relative to baseline
delta_blue - wren              ..........  8162  0.12s  106.05% relative to baseline
fib - wren                     ..........  3310  0.30s  103.39% relative to baseline
for - wren                     ..........  8576  0.12s  102.16% relative to baseline
method_call - wren             ..........  6946  0.14s  107.08% relative to baseline
This commit is contained in:
Bob Nystrom
2015-01-20 14:41:09 -08:00
parent 721db7564b
commit d894fc3dec
1 changed files with 14 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
src/wren_vm.c
View File

@ -552,7 +552,7 @@ static bool runInterpreter(WrenVM* vm)
CASE_CODE(LOAD_FIELD_THIS):
{
int field = READ_BYTE();
uint8_t field = READ_BYTE();
Value receiver = stackStart[0];
ASSERT(IS_INSTANCE(receiver), "Receiver should be instance.");
ObjInstance* instance = AS_INSTANCE(receiver);
@ -765,7 +765,7 @@ static bool runInterpreter(WrenVM* vm)
CASE_CODE(STORE_FIELD_THIS):
{
int field = READ_BYTE();
uint8_t field = READ_BYTE();
Value receiver = stackStart[0];
ASSERT(IS_INSTANCE(receiver), "Receiver should be instance.");
ObjInstance* instance = AS_INSTANCE(receiver);
@ -776,7 +776,7 @@ static bool runInterpreter(WrenVM* vm)
CASE_CODE(LOAD_FIELD):
{
int field = READ_BYTE();
uint8_t field = READ_BYTE();
Value receiver = POP();
ASSERT(IS_INSTANCE(receiver), "Receiver should be instance.");
ObjInstance* instance = AS_INSTANCE(receiver);
@ -787,7 +787,7 @@ static bool runInterpreter(WrenVM* vm)
CASE_CODE(STORE_FIELD):
{
int field = READ_BYTE();
uint8_t field = READ_BYTE();
Value receiver = POP();
ASSERT(IS_INSTANCE(receiver), "Receiver should be instance.");
ObjInstance* instance = AS_INSTANCE(receiver);
@ -798,7 +798,7 @@ static bool runInterpreter(WrenVM* vm)
CASE_CODE(JUMP):
{
int offset = READ_SHORT();
uint16_t offset = READ_SHORT();
ip += offset;
DISPATCH();
}
@ -806,14 +806,14 @@ static bool runInterpreter(WrenVM* vm)
CASE_CODE(LOOP):
{
// Jump back to the top of the loop.
int offset = READ_SHORT();
uint16_t offset = READ_SHORT();
ip -= offset;
DISPATCH();
}
CASE_CODE(JUMP_IF):
{
int offset = READ_SHORT();
uint16_t offset = READ_SHORT();
Value condition = POP();
if (IS_FALSE(condition) || IS_NULL(condition)) ip += offset;
@ -822,7 +822,7 @@ static bool runInterpreter(WrenVM* vm)
CASE_CODE(AND):
{
int offset = READ_SHORT();
uint16_t offset = READ_SHORT();
Value condition = PEEK();
if (IS_FALSE(condition) || IS_NULL(condition))
@ -840,7 +840,7 @@ static bool runInterpreter(WrenVM* vm)
CASE_CODE(OR):
{
int offset = READ_SHORT();
uint16_t offset = READ_SHORT();
Value condition = PEEK();
if (IS_FALSE(condition) || IS_NULL(condition))
@ -929,7 +929,7 @@ static bool runInterpreter(WrenVM* vm)
CASE_CODE(LIST):
{
int numElements = READ_BYTE();
uint8_t numElements = READ_BYTE();
ObjList* list = wrenNewList(vm, numElements);
// TODO: Do a straight memcopy.
for (int i = 0; i < numElements; i++)
@ -959,8 +959,8 @@ static bool runInterpreter(WrenVM* vm)
// Capture upvalues.
for (int i = 0; i < prototype->numUpvalues; i++)
{
bool isLocal = READ_BYTE();
int index = READ_BYTE();
uint8_t isLocal = READ_BYTE();
uint8_t index = READ_BYTE();
if (isLocal)
{
// Make an new upvalue to close over the parent's local variable.
@ -1021,11 +1021,10 @@ static bool runInterpreter(WrenVM* vm)
CASE_CODE(METHOD_INSTANCE):
CASE_CODE(METHOD_STATIC):
{
int type = instruction;
int symbol = READ_SHORT();
uint16_t symbol = READ_SHORT();
ObjClass* classObj = AS_CLASS(PEEK());
Value method = PEEK2();
bindMethod(vm, type, symbol, classObj, method);
bindMethod(vm, instruction, symbol, classObj, method);
DROP();
DROP();
DISPATCH();