/* 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; }