vm.cc File Reference

#include <iostream>
#include <cassert>
#include "vm.h"
#include "common.h"
#include "compile.h"

Go to the source code of this file.

Macros
#define	BINARY_OP(op)
#define	COMP_OP(op)
#define	READ_STRING()   AS_CSTRING(ReadConstant())
#define	READ_SHORT()   (ip += 2, (uint16_t)((chunk->code[ip-2] << 8) | chunk->code[ip-1]))

Functions
static bool	valuesEqual (uscript::Value a, uscript::Value b)

Macro Definition Documentation

#define BINARY_OP

(

op

)

Value:

do { \
    if (IS_NUMBER(Peek(0)) && IS_NUMBER(Peek(1))) { \
      double b = AS_NUMBER(Pop()); \
      double a = AS_NUMBER(Pop()); \
      Push(NUMBER_VAL(a op b)); \
    } \
    else if (IS_INTEGER(Peek(0)) && IS_INTEGER(Peek(1))) { \
      int b = AS_INTEGER(Pop()); \
      int a = AS_INTEGER(Pop()); \
      Push(INTEGER_VAL(a op b)); \
    } \
    else { \
      RuntimeError("Operands must be both integers or both numbers."); \
      return uscript::INTERPRET_RUNTIME_ERROR; \
    } \
  } while (false)

#define COMP_OP

(

op

)

Value:

do { \
    if (IS_NUMBER(Peek(0)) && IS_NUMBER(Peek(1))) { \
      double b = AS_NUMBER(Pop()); \
      double a = AS_NUMBER(Pop()); \
      Push(BOOL_VAL(a op b)); \
    } \
    else if (IS_INTEGER(Peek(0)) && IS_INTEGER(Peek(1))) { \
      int b = AS_INTEGER(Pop()); \
      int a = AS_INTEGER(Pop()); \
      Push(BOOL_VAL(a op b)); \
    } \
    else { \
      RuntimeError("Operands must be both integers or both numbers."); \
      return uscript::INTERPRET_RUNTIME_ERROR; \
    } \
  } while (false)

#define READ_SHORT

(

)

(ip += 2, (uint16_t)((chunk->code[ip-2] << 8) | chunk->code[ip-1]))

#define READ_STRING

(

)

AS_CSTRING(ReadConstant())

Function Documentation

static bool valuesEqual ( uscript::Value  a, uscript::Value  b  )

static

Definition at line 48 of file vm.cc.

                                                        {
  if (a.val != b.val) return false;

  switch (a.val) {
    case uscript::VAL_BOOL: return AS_BOOL(a) == AS_BOOL(b);
    case uscript::VAL_NIL:  return true;
    case uscript::VAL_NUMBER: return AS_NUMBER(a) == AS_NUMBER(b);
    case uscript::VAL_INTEGER: return AS_INTEGER(a) == AS_INTEGER(b);
    case uscript::VAL_OBJ_STRING: {
      return AS_CSTRING(a) == AS_CSTRING(b);
    }
    default:
      return false;
  }

}