The R Project SVN R

The [[INCLNK]] and [[DECLNK]] instructions are used to protect

The [[INCLNK]] and [[DECLNK]] instructions are used to protect

evaluated arguents on the stack from modifications during evaluation

evaluated arguents on the stack from modifications during evaluation

of subsequent arguments. These instructions can be omitted if the

of subsequent arguments. These instructions can be omitted if the

subsequent argument evaluations cannot modify values on the stack.

subsequent argument evaluations cannot modify values on the stack.

<<[[checkNeedsInc]] function>>=

<<[[checkNeedsInc]] function>>=

checkNeedsInc <- function(e, cntxt) {

checkNeedsInc <- function(e, cntxt) {

    type <- typeof(e)

    type <- typeof(e)

    if (type %in% c("language", "bytecode", "promise"))

    if (type %in% c("language", "bytecode", "promise"))

        TRUE

        TRUE

    else FALSE ## symbols and constants

    else FALSE ## symbols and constants

Complex assignment expressions are compiled by [[cmpComplexAssign]].

Complex assignment expressions are compiled by [[cmpComplexAssign]].

<<[[cmpComplexAssign]] function>>=

<<[[cmpComplexAssign]] function>>=

cmpComplexAssign <- function(symbol, lhs, value, superAssign, cb, cntxt) {

cmpComplexAssign <- function(symbol, lhs, value, superAssign, cb, cntxt) {

    <<select complex assignment instructions>>

    <<select complex assignment instructions>>

    <<compile the right hand side value expression>>

    <<compile the right hand side value expression>>

    <<compile the left hand side call>>

    <<compile the left hand side call>>

    <<for tail calls return the value invisibly>>

    <<for tail calls return the value invisibly>>

    TRUE;

    TRUE;

}

}

@ %def cmpComplexAssign

@ %def cmpComplexAssign

its call; all others will use [[*vtmp*]].  Each replacement function

its call; all others will use [[*vtmp*]].  Each replacement function

call compiled by [[cmpSetterCall]] will remove the top two elements

call compiled by [[cmpSetterCall]] will remove the top two elements

from the stack and then push the new right hand side value on the

from the stack and then push the new right hand side value on the

stack.  [[cmpSetterCall]] is described in Section \ref{subsec:setter}.

stack.  [[cmpSetterCall]] is described in Section \ref{subsec:setter}.

\subsection{Compiling setter calls}

\subsection{Compiling setter calls}

\label{subsec:setter}

\label{subsec:setter}

Setter calls, or calls to replacement functions, in compiled

Setter calls, or calls to replacement functions, in compiled

assignment expressions find stack that contains the current right hand

assignment expressions find stack that contains the current right hand

SEQLEN.OP <- 122

SEQLEN.OP <- 122

BASEGUARD.OP <- 123

BASEGUARD.OP <- 123

INCLNK.OP <- 124

INCLNK.OP <- 124

DECLNK.OP <- 125

DECLNK.OP <- 125

DECLNK_N.OP <- 126

DECLNK_N.OP <- 126

@ 

@ 

\subsection{Instruction argument counts and names}

\subsection{Instruction argument counts and names}

<<opcode argument counts>>=

<<opcode argument counts>>=

Opcodes.argc <- list(

Opcodes.argc <- list(

SEQALONG.OP = 1,

SEQALONG.OP = 1,

SEQLEN.OP = 1,

SEQLEN.OP = 1,

BASEGUARD.OP = 2,

BASEGUARD.OP = 2,

INCLNK.OP = 0,

INCLNK.OP = 0,

DECLNK.OP = 0,

DECLNK.OP = 0,

)

)

@ 

@ 

<<opcode names>>=

<<opcode names>>=

Opcodes.names <- names(Opcodes.argc)

Opcodes.names <- names(Opcodes.argc)