Home | History | Annotate | Download | only in Configurations

Lines Matching refs:vms_info

125 my $vms_info = {};
126 sub vms_info {
132     if (%$vms_info && $vms_info->{pointer_size} ne $pointer_size_str) {
133         $vms_info = {};
136     unless (%$vms_info) {
137         $vms_info->{disable_warns} = [ ];
138         $vms_info->{pointer_size} = $pointer_size_str;
142                 push @{$vms_info->{disable_warns}}, "MAYLOSEDATA3";
149                 $vms_info->{zlib} = $withargs{zlib_lib} || "$default_zlib/SHARE";
151                 $vms_info->{def_zlib} = $withargs{zlib_lib} || $default_zlib;
154                 $vms_info->{def_zlib} =~ s|/.*$||g;
161                 $vms_info->{AS} = "ias";
162                 $vms_info->{ASFLAGS} = '-d debug';
163                 $vms_info->{asflags} = '"-N" vms_upcase';
164                 $vms_info->{asoutflag} = "-o ";
165                 $vms_info->{perlasm_scheme} = "ias";
169     return $vms_info;
1747     # Note that vms_info extracts the pointer size from the end of
1760                               @{vms_info()->{disable_warns}};
1766                     return vms_info()->{def_zlib}
1767                         ? "LIBZ=\"\"\"".vms_info()->{def_zlib}."\"\"\"" : ();
1776         ex_libs          => add(sub { return vms_info()->{zlib} || (); }),
1781         AS               => sub { vms_info()->{AS} },
1782         ASFLAGS          => sub { vms_info()->{ASFLAGS} },
1783         asoutflag        => sub { vms_info()->{asoutflag} },
1784         asflags          => sub { vms_info()->{asflags} },
1785         perlasm_scheme   => sub { vms_info()->{perlasm_scheme} },
1824                               sub { vms_info()->{AS}