TypedValue* fg_create_function(HPHP::VM::ActRec *ar) {
TypedValue rv;
int64_t count = ar->numArgs();
TypedValue* args UNUSED = ((TypedValue*)ar) - 1;
if (count == 2LL) {
if (IS_STRING_TYPE((args-1)->m_type) && IS_STRING_TYPE((args-0)->m_type)) {
rv.m_type = KindOfString;
fh_create_function((Value*)(&(rv)), (Value*)(args-0), (Value*)(args-1));
if (rv.m_data.num == 0LL) rv.m_type = KindOfNull;
frame_free_locals_no_this_inl(ar, 2);
memcpy(&ar->m_r, &rv, sizeof(TypedValue));
return &ar->m_r;
} else {
fg1_create_function(&rv, ar, count);
frame_free_locals_no_this_inl(ar, 2);
memcpy(&ar->m_r, &rv, sizeof(TypedValue));
return &ar->m_r;
}
} else {
throw_wrong_arguments_nr("create_function", count, 2, 2, 1);
}
rv.m_data.num = 0LL;
rv.m_type = KindOfNull;
frame_free_locals_no_this_inl(ar, 2);
memcpy(&ar->m_r, &rv, sizeof(TypedValue));
return &ar->m_r;
return &ar->m_r;
}
TypedValue* fg_create_function(ActRec* ar) {
TypedValue rvSpace;
TypedValue* rv = &rvSpace;
int32_t count = ar->numArgs();
TypedValue* args UNUSED = ((TypedValue*)ar) - 1;
if (count == 2) {
if (IS_STRING_TYPE((args - 1)->m_type) &&
IS_STRING_TYPE((args - 0)->m_type)) {
rv->m_type = KindOfString;
fh_create_function(&(rv->m_data), &args[-0].m_data, &args[-1].m_data);
if (rv->m_data.num == 0LL) rv->m_type = KindOfNull;
} else {
fg1_create_function(rv, ar, count);
}
} else {
throw_wrong_arguments_nr("create_function", count, 2, 2, 1);
rv->m_data.num = 0LL;
rv->m_type = KindOfNull;
}
frame_free_locals_no_this_inl(ar, 2);
memcpy(&ar->m_r, rv, sizeof(TypedValue));
return &ar->m_r;
}
