зеркало из https://github.com/microsoft/STL.git
24 строки
387 B
Perl
24 строки
387 B
Perl
|
# Copyright (c) Microsoft Corporation.
|
||
|
|
# SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use Run;
|
||
|
|
|
||
|
|
if ($ENV{HAS_EDG} && $ENV{HAS_EDG} eq "yes")
|
||
|
|
{
|
||
|
|
my $callString = Run::CreateCompilandString();
|
||
|
|
|
||
|
|
if (Run::ExecuteCL($callString) == 0)
|
||
|
|
{
|
||
|
|
Run::Pass();
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
Run::Fail();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
Run::Pass();
|
||
|
|
}
|