uint ciMethodData::arg_modified(int arg) const { ArgInfoData *aid = arg_info(); if (aid == NULL) return 0; assert(arg >= 0 && arg < aid->number_of_args(), "valid argument number"); return aid->arg_modified(arg); }
void ciMethodData::set_arg_modified(int arg, uint val) { ArgInfoData *aid = arg_info(); if (aid == NULL) return; assert(arg >= 0 && arg < aid->number_of_args(), "valid argument number"); aid->set_arg_modified(arg, val); }
void Arguments::calcArguments() { _ocamlapp.clear(); _ocamldebug_arguments.clear(); _app_arguments.clear(); _ocamldebug_arguments << "-emacs" ; bool executable_found = false; foreach ( QString a , _arguments ) { QFileInfo arg_info(a); if ( ( ! executable_found ) && ( ! arg_info.isDir()) && arg_info.exists() && arg_info.isExecutable() ) { _ocamlapp = arg_info.absoluteFilePath(); executable_found = true ; } else if ( executable_found ) _app_arguments << a ; else _ocamldebug_arguments << a ; }
void ciMethodData::clear_escape_info() { VM_ENTRY_MARK; MethodData* mdo = get_MethodData(); if (mdo != NULL) { mdo->clear_escape_info(); ArgInfoData *aid = arg_info(); int arg_count = (aid == NULL) ? 0 : aid->number_of_args(); for (int i = 0; i < arg_count; i++) { set_arg_modified(i, 0); } } _eflags = _arg_local = _arg_stack = _arg_returned = 0; }