Lines Matching defs:proto
54 /* Missing proto on LynxOS */
612 PerlIO_clone_list(pTHX_ PerlIO_list_t *proto, CLONE_PARAMS *param)
615 if (proto) {
618 for (i=0; i < proto->cur; i++) {
620 if (proto->array[i].arg)
621 arg = PerlIO_sv_dup(aTHX_ proto->array[i].arg,param);
622 PerlIO_list_push(aTHX_ list, proto->array[i].funcs, arg);
629 PerlIO_clone(pTHX_ PerlInterpreter *proto, CLONE_PARAMS *param)
632 PerlIO **table = &proto->Iperlio;
635 PL_known_layers = PerlIO_clone_list(aTHX_ proto->Iknown_layers, param);
636 PL_def_layerlist = PerlIO_clone_list(aTHX_ proto->Idef_layerlist, param);
638 PerlIO_debug("Clone %p from %p\n",aTHX,proto);