lvm.c File Reference

#include "lprefix.h"
#include <float.h>
#include <limits.h>
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "lua.h"
#include "ldebug.h"
#include "ldo.h"
#include "lfunc.h"
#include "lgc.h"
#include "lobject.h"
#include "lopcodes.h"
#include "lstate.h"
#include "lstring.h"
#include "ltable.h"
#include "ltm.h"
#include "lvm.h"

Include dependency graph for lvm.c:

Macros
#define	lvm_c
#define	LUA_CORE
#define	MAXTAGLOOP   2000
#define	NBM   (l_mathlim(MANT_DIG))
#define	tostring(L, o)    (ttisstring(o) || (cvt2str(o) && (luaO_tostring(L, o), 1)))
#define	isemptystr(o)   (ttisshrstring(o) && tsvalue(o)->shrlen == 0)
#define	NBITS   cast_int(sizeof(lua_Integer) * CHAR_BIT)
#define	RA(i)   (base+GETARG_A(i))
#define	RB(i)   check_exp(getBMode(GET_OPCODE(i)) == OpArgR, base+GETARG_B(i))
#define	RC(i)   check_exp(getCMode(GET_OPCODE(i)) == OpArgR, base+GETARG_C(i))
#define	RKB(i)
#define	RKC(i)
#define	dojump(ci, i, e)
#define	donextjump(ci)   { i = *ci->u.l.savedpc; dojump(ci, i, 1); }
#define	Protect(x)   { {x;}; base = ci->u.l.base; }
#define	checkGC(L, c)
#define	vmfetch()
#define	vmdispatch(o)   switch(o)
#define	vmcase(l)   case l:
#define	vmbreak   break
#define	gettableProtected(L, t, k, v)
#define	settableProtected(L, t, k, v)

Functions
int	luaV_tonumber_ (const TValue *obj, lua_Number *n)
int	luaV_tointeger (const TValue *obj, lua_Integer *p, int mode)
void	luaV_finishget (lua_State *L, const TValue *t, TValue *key, StkId val, const TValue *slot)
void	luaV_finishset (lua_State *L, const TValue *t, TValue *key, StkId val, const TValue *slot)
int	luaV_lessthan (lua_State *L, const TValue *l, const TValue *r)
int	luaV_lessequal (lua_State *L, const TValue *l, const TValue *r)
int	luaV_equalobj (lua_State *L, const TValue *t1, const TValue *t2)
void	luaV_concat (lua_State *L, int total)
void	luaV_objlen (lua_State *L, StkId ra, const TValue *rb)
lua_Integer	luaV_div (lua_State *L, lua_Integer m, lua_Integer n)
lua_Integer	luaV_mod (lua_State *L, lua_Integer m, lua_Integer n)
lua_Integer	luaV_shiftl (lua_Integer x, lua_Integer y)
void	luaV_finishOp (lua_State *L)
void	luaV_execute (lua_State *L)

Macro Definition Documentation

checkGC

#define checkGC	(		L,
			c
	)

Value:

    { luaC_condGC(L, L->top = (c),  /* limit of live values */ \
                         Protect(L->top = ci->top));  /* restore top */ \
           luai_threadyield(L); }

dojump

#define dojump	(		ci,
			i,
			e
	)

Value:

  { int a = GETARG_A(i); \
    if (a != 0) luaF_close(L, ci->u.l.base + a - 1); \
    ci->u.l.savedpc += GETARG_sBx(i) + e; }

donextjump

#define donextjump

(

ci

)

{ i = *ci->u.l.savedpc; dojump(ci, i, 1); }

gettableProtected

#define gettableProtected	(		L,
			t,
			k,
			v
	)

Value:

  { const TValue *slot; \
  if (luaV_fastget(L,t,k,slot,luaH_get)) { setobj2s(L, v, slot); } \
  else Protect(luaV_finishget(L,t,k,v,slot)); }

isemptystr

#define isemptystr

(

o

)

(ttisshrstring(o) && tsvalue(o)->shrlen == 0)

LUA_CORE

#define LUA_CORE

lvm_c

#define lvm_c

MAXTAGLOOP

#define MAXTAGLOOP   2000

NBITS

#define NBITS   cast_int(sizeof(lua_Integer) * CHAR_BIT)

NBM

#define NBM   (l_mathlim(MANT_DIG))

Protect

#define Protect

(

x

)

{ {x;}; base = ci->u.l.base; }

RA

#define RA

(

i

)

(base+GETARG_A(i))

RB

#define RB

(

i

)

check_exp(getBMode(GET_OPCODE(i)) == OpArgR, base+GETARG_B(i))

RC

#define RC

(

i

)

check_exp(getCMode(GET_OPCODE(i)) == OpArgR, base+GETARG_C(i))

RKB

#define RKB

(

i

)

Value:

    check_exp(getBMode(GET_OPCODE(i)) == OpArgK, \
    ISK(GETARG_B(i)) ? k+INDEXK(GETARG_B(i)) : base+GETARG_B(i))

RKC

#define RKC

(

i

)

Value:

    check_exp(getCMode(GET_OPCODE(i)) == OpArgK, \
    ISK(GETARG_C(i)) ? k+INDEXK(GETARG_C(i)) : base+GETARG_C(i))

settableProtected

#define settableProtected	(		L,
			t,
			k,
			v
	)

Value:

  { const TValue *slot; \
  if (!luaV_fastset(L,t,k,slot,luaH_get,v)) \
    Protect(luaV_finishset(L,t,k,v,slot)); }

tostring

#define tostring	(		L,
			o
	)		(ttisstring(o) || (cvt2str(o) && (luaO_tostring(L, o), 1)))

vmbreak

#define vmbreak   break

vmcase

#define vmcase

(

l

)

case l:

vmdispatch

#define vmdispatch

(

o

)

switch(o)

vmfetch

#define vmfetch

(

)

Value:

  { \
  i = *(ci->u.l.savedpc++); \
  if (L->hookmask & (LUA_MASKLINE | LUA_MASKCOUNT)) \
    Protect(luaG_traceexec(L)); \
  ra = RA(i); /* WARNING: any stack reallocation invalidates 'ra' */ \
  lua_assert(base == ci->u.l.base); \
  lua_assert(base <= L->top && L->top < L->stack + L->stacksize); \
}

Function Documentation

luaV_concat()

void luaV_concat	(	lua_State *	L,
		int	total
	)

luaV_div()

lua_Integer luaV_div	(	lua_State *	L,
		lua_Integer	m,
		lua_Integer	n
	)

luaV_equalobj()

int luaV_equalobj	(	lua_State *	L,
		const TValue *	t1,
		const TValue *	t2
	)

luaV_execute()

void luaV_execute

(

lua_State *

L

)

luaV_finishget()

void luaV_finishget	(	lua_State *	L,
		const TValue *	t,
		TValue *	key,
		StkId	val,
		const TValue *	slot
	)

luaV_finishOp()

void luaV_finishOp

(

lua_State *

L

)

luaV_finishset()

void luaV_finishset	(	lua_State *	L,
		const TValue *	t,
		TValue *	key,
		StkId	val,
		const TValue *	slot
	)

luaV_lessequal()

int luaV_lessequal	(	lua_State *	L,
		const TValue *	l,
		const TValue *	r
	)

luaV_lessthan()

int luaV_lessthan	(	lua_State *	L,
		const TValue *	l,
		const TValue *	r
	)

luaV_mod()

lua_Integer luaV_mod	(	lua_State *	L,
		lua_Integer	m,
		lua_Integer	n
	)

luaV_objlen()

void luaV_objlen	(	lua_State *	L,
		StkId	ra,
		const TValue *	rb
	)

luaV_shiftl()

lua_Integer luaV_shiftl	(	lua_Integer	x,
		lua_Integer	y
	)

luaV_tointeger()

int luaV_tointeger	(	const TValue *	obj,
		lua_Integer *	p,
		int	mode
	)

luaV_tonumber_()

int luaV_tonumber_	(	const TValue *	obj,
		lua_Number *	n
	)