Home
last modified time | relevance | path

Searched refs:myfib (Results 1 – 1 of 1) sorted by relevance

/mirbsd/src/gnu/usr.bin/perl/vms/
Dvms.c6517 struct fibdef myfib; local
6524 struct dsc$descriptor fibdsc = {sizeof(myfib), DSC$K_DTYPE_Z, DSC$K_CLASS_S,(char *) &myfib},
6621 memset((void *) &myfib, 0, sizeof myfib);
6623 for (i=0;i<3;i++) myfib.fib$w_fid[i] = mynam.nam$w_fid[i];
6624 for (i=0;i<3;i++) myfib.fib$w_did[i] = mynam.nam$w_did[i];
6627 myfib.fib$l_acctl = FIB$M_NORECORD;
6629 for (i=0;i<3;i++) myfib.fib$r_fid_overlay.fib$w_fid[i] = mynam.nam$w_fid[i];
6630 for (i=0;i<3;i++) myfib.fib$r_did_overlay.fib$w_did[i] = mynam.nam$w_did[i];
6631 myfib.fib$r_acctl_overlay.fib$l_acctl = FIB$M_NORECORD;