Lines Matching refs:vms_info
128 my $vms_info = {};
129 sub vms_info {
135 if (%$vms_info && $vms_info->{pointer_size} ne $pointer_size_str) {
136 $vms_info = {};
139 unless (%$vms_info) {
140 $vms_info->{disable_warns} = [
143 $vms_info->{pointer_size} = $pointer_size_str;
147 push @{$vms_info->{disable_warns}}, "MAYLOSEDATA3";
154 $vms_info->{zlib} = $withargs{zlib_lib} || "$default_zlib/SHARE";
156 $vms_info->{def_zlib} = $withargs{zlib_lib} || $default_zlib;
159 $vms_info->{def_zlib} =~ s|/.*$||g;
166 $vms_info->{AS} = "ias";
167 $vms_info->{ASFLAGS} = '-d debug';
168 $vms_info->{asflags} = '"-N" vms_upcase';
169 $vms_info->{asoutflag} = "-o ";
170 $vms_info->{perlasm_scheme} = "ias";
174 return $vms_info;
2082 # Note that vms_info extracts the pointer size from the end of
2095 @{vms_info()->{disable_warns}};
2103 return vms_info()->{def_zlib}
2104 ? "LIBZ=\"\"\"".vms_info()->{def_zlib}."\"\"\"" : ();
2120 ex_libs => add(sub { return vms_info()->{zlib} || (); }),
2128 AS => sub { vms_info()->{AS} },
2129 ASFLAGS => sub { vms_info()->{ASFLAGS} },
2130 asoutflag => sub { vms_info()->{asoutflag} },
2131 asflags => sub { vms_info()->{asflags} },
2132 perlasm_scheme => sub { vms_info()->{perlasm_scheme} },
2170 asm_arch => sub { vms_info()->{AS} ? 'ia64' : undef },