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