Lines Matching defs:PLATFORM
55 } elsif ($flag =~ /^(CCTYPE|FILETYPE|PLATFORM|TARG_DIR)=(.+)$/) {
61 my @PLATFORM = qw(aix win32 os2 vms test);
62 my %PLATFORM;
63 @PLATFORM{@PLATFORM} = ();
65 die "PLATFORM undefined, must be one of: @PLATFORM\n"
66 unless defined $ARGS{PLATFORM};
67 die "PLATFORM must be one of: @PLATFORM\n"
68 unless exists $PLATFORM{$ARGS{PLATFORM}};
71 use constant PLATFORM => $ARGS{PLATFORM};
75 $define{uc $ARGS{'PLATFORM'}} = 1;
82 if PLATFORM ne 'win32';
94 print STDERR "Options: (@options)\n" unless PLATFORM eq 'test';
105 my $exportperlmalloc = PLATFORM eq 'os2';
205 unless PLATFORM eq 'test';
210 if (PLATFORM eq 'os2') {
260 if (PLATFORM ne 'os2') {
273 if (PLATFORM eq 'vms') {
281 if (PLATFORM ne 'aix') {
293 if (PLATFORM ne 'vms') {
300 if (PLATFORM ne 'win32') {
309 if (PLATFORM ne 'win32') {
561 if (PLATFORM eq 'vms') {
568 if (PLATFORM eq 'vms' && !$define{KILL_BY_SIGPRC}) {
806 if (PLATFORM eq 'win32') {
971 elsif (PLATFORM eq 'vms') {
1056 elsif (PLATFORM eq 'os2') {
1132 if (PLATFORM eq 'win32') {
1141 if (PLATFORM eq 'os2') {
1159 if (PLATFORM eq 'win32') {
1170 elsif (PLATFORM eq 'os2') {
1186 elsif (PLATFORM eq 'aix') {
1202 if (PLATFORM eq 'win32') {
1211 elsif (PLATFORM eq 'os2') {
1225 if (PLATFORM eq 'os2') {