예제 #1
0
int main()
{
		int a = 10;
	sub_call();

	printf("%s %d\n",__FUNCTION__,__LINE__);

	sub_call(a);
	
	printf("%s %d\n",__FUNCTION__,__LINE__);

	return 0;
}
예제 #2
0
파일: call.C 프로젝트: Gustra/libperl--
const Array::Temp Call_stack::sub_list(const Scalar::Value& ref) {
    const int count = sub_call(ref.get_SV(true), G_ARRAY);
    return Array::Temp(interp, pop_array(count), true);
}
예제 #3
0
파일: call.C 프로젝트: Gustra/libperl--
const Scalar::Temp Call_stack::sub_scalar(const Scalar::Value& ref) {
    assertion<Runtime_exception>( sub_call(ref.get_SV(true), G_SCALAR) == 1, "More than one value returned in scalar call");
    return Scalar::Temp(interp, pop(), true);
}
예제 #4
0
파일: call.C 프로젝트: Gustra/libperl--
const Array::Temp Call_stack::sub_list(const char* const name) {
    const int count = sub_call(name, G_ARRAY);
    return Array::Temp(interp, pop_array(count), true);
}
예제 #5
0
파일: call.C 프로젝트: Gustra/libperl--
const Scalar::Temp Call_stack::sub_scalar(const char* const name) {
    assertion<Runtime_exception>( sub_call(name, G_SCALAR) == 1, "More than one value returned in scalar call");
    return Scalar::Temp(interp, pop(), true);
}