示例#1
0
/* CsDecodeProcedure - decode the instructions in a code obj */
void CsDecodeProcedure(VM *c,value method,stream *s)
{
    value code = CsMethodCode(method);
    int len,lc,n;
    len = (int)CsByteVectorSize(CsCompiledCodeBytecodes(code));
    for (lc = 0; lc < len; lc += n)
        n = CsDecodeInstruction(c,code,lc,s);
}
/* writeByteVectorValue - write a byte vector value */
bool write_ctx::writeByteVectorValue(value v)
{
    if(s->put(CsFaslTagBytes))
      return writeBytes(CsByteVectorAddress(v),(int_t)CsByteVectorSize(v));
    return false;
}