Searched refs:tabvec (Results 1 – 1 of 1) sorted by relevance
| /openbsd-src/gnu/usr.bin/perl/vms/ |
| H A D | vms.c | 880 struct dsc$descriptor_s **tabvec, unsigned long int flags) in Perl_vmstrnenv() argument
919 if (!tabvec || !*tabvec) tabvec = env_tables; in Perl_vmstrnenv()
921 for (curtab = 0; tabvec[curtab]; curtab++) { in Perl_vmstrnenv()
922 if (!str$case_blind_compare(tabvec[curtab],&crtlenv)) { in Perl_vmstrnenv()
955 else if ((tmpdsc.dsc$a_pointer = tabvec[curtab]->dsc$a_pointer) && in Perl_vmstrnenv()
996 retsts = sys$trnlnm(&attr,tabvec[curtab],&lnmdsc,&acmode,lnmlst); in Perl_vmstrnenv()
1008 retsts = sys$trnlnm(&attr,tabvec[curtab],&lnmdsc,&acmode,lnmlst); in Perl_vmstrnenv()
1491 Perl_vmssetenv(pTHX_ const char *lnm, const char *eqv, struct dsc$descriptor_s **tabvec) in Perl_vmssetenv() argument
1518 if (!tabvec || !*tabvec) tabvec = env_tables; in Perl_vmssetenv()
1521 for (curtab = 0; tabvec[curtab]; curtab++) { in Perl_vmssetenv()
[all …]
|