value_t builtin_implementation_validate(value_t self) {
VALIDATE_FAMILY(ofBuiltinImplementation, self);
VALIDATE_FAMILY(ofUtf8, get_builtin_implementation_name(self));
VALIDATE_FAMILY(ofCodeBlock, get_builtin_implementation_code(self));
VALIDATE_PHYLUM(tpFlagSet, get_builtin_implementation_method_flags(self));
return success();
}
value_t call_tags_validate(value_t self) {
VALIDATE_FAMILY(ofCallTags, self);
VALIDATE_FAMILY(ofArray, get_call_tags_entries(self));
VALIDATE_DOMAIN_OPT(vdInteger, get_call_tags_subject_offset(self));
VALIDATE_DOMAIN_OPT(vdInteger, get_call_tags_selector_offset(self));
return success();
}
value_t methodspace_validate(value_t self) {
VALIDATE_FAMILY(ofMethodspace, self);
VALIDATE_FAMILY(ofIdHashMap, get_methodspace_inheritance(self));
VALIDATE_FAMILY(ofSignatureMap, get_methodspace_methods(self));
VALIDATE_FAMILY_OPT(ofMethodspace, get_methodspace_parent(self));
VALIDATE_FAMILY(ofFreezeCheat, get_methodspace_cache_ptr(self));
return success();
}
value_t method_validate(value_t self) {
VALIDATE_FAMILY(ofMethod, self);
VALIDATE_FAMILY_OPT(ofSignature, get_method_signature(self));
value_t code_ptr = get_method_code_ptr(self);
VALIDATE_FAMILY(ofFreezeCheat, code_ptr);
VALIDATE_FAMILY_OPT(ofCodeBlock, get_freeze_cheat_value(code_ptr));
VALIDATE_FAMILY_OPT(ofMethodAst, get_method_syntax(self));
VALIDATE_FAMILY_OPT(ofModuleFragment, get_method_module_fragment(self));
VALIDATE_PHYLUM(tpFlagSet, get_method_flags(self));
return success();
}
value_t stack_validate(value_t self) {
VALIDATE_FAMILY(ofStack, self);
VALIDATE_FAMILY(ofStackPiece, get_stack_top_piece(self));
value_t current = get_stack_top_piece(self);
while (!is_nothing(current)) {
value_t stack = get_stack_piece_stack(current);
VALIDATE(is_same_value(stack, self));
current = get_stack_piece_previous(current);
}
return success();
}
value_t stack_piece_validate(value_t value) {
VALIDATE_FAMILY(ofStackPiece, value);
VALIDATE_FAMILY_OPT(ofStackPiece, get_stack_piece_previous(value));
VALIDATE_FAMILY_OPT(ofStack, get_stack_piece_stack(value));
VALIDATE_DOMAIN(vdInteger, get_stack_piece_capacity(value));
return success();
}
value_t builtin_marker_validate(value_t self) {
VALIDATE_FAMILY(ofBuiltinMarker, self);
return success();
}
value_t operation_validate(value_t self) {
VALIDATE_FAMILY(ofOperation, self);
return success();
}
value_t call_data_validate(value_t self) {
VALIDATE_FAMILY(ofCallData, self);
VALIDATE_FAMILY(ofCallTags, get_call_data_tags(self));
VALIDATE_FAMILY(ofArray, get_call_data_values(self));
return success();
}
value_t signature_validate(value_t self) {
VALIDATE_FAMILY(ofSignature, self);
VALIDATE_FAMILY_OPT(ofArray, get_signature_tags(self));
return success();
}
value_t signature_map_validate(value_t value) {
VALIDATE_FAMILY(ofSignatureMap, value);
VALIDATE_FAMILY(ofArrayBuffer, get_signature_map_entries(value));
return success();
}
value_t guard_validate(value_t value) {
VALIDATE_FAMILY(ofGuard, value);
return success();
}
value_t parameter_validate(value_t value) {
VALIDATE_FAMILY(ofParameter, value);
VALIDATE_FAMILY_OPT(ofGuard, get_parameter_guard(value));
VALIDATE_FAMILY_OPT(ofArray, get_parameter_tags(value));
return success();
}
value_t unbound_module_fragment_validate(value_t self) {
VALIDATE_FAMILY(ofUnboundModuleFragment, self);
return success();
}
value_t library_validate(value_t self) {
VALIDATE_FAMILY(ofLibrary, self);
return success();
}
value_t module_loader_validate(value_t self) {
VALIDATE_FAMILY(ofModuleLoader, self);
return success();
}
