Add support for clang-cl and llvm-undname (#4371)gh-5404

* Added llvm demangler code

* Added clang-cl compiler class

2 files changed, 74 insertions, 0 deletions

diff --git a/lib/compilers/_all.js b/lib/compilers/_all.js
index 0b5075dc6..ee64936b9 100644
--- a/lib/compilers/_all.js
+++ b/lib/compilers/_all.js
@@ -32,6 +32,7 @@ export {Cc65Compiler} from './cc65';
 export {CircleCompiler} from './circle';
 export {CIRCTCompiler} from './circt';
 export {ClangCompiler} from './clang';
+export {ClangCLCompiler} from './clangcl';
 export {ClangCudaCompiler} from './clang';
 export {ClangHipCompiler} from './clang';
 export {ClangIntelCompiler} from './clang';
diff --git a/lib/compilers/clangcl.ts b/lib/compilers/clangcl.ts
new file mode 100644
index 000000000..653fd8c27
--- /dev/null
+++ b/lib/compilers/clangcl.ts
@@ -0,0 +1,73 @@
+// Copyright (c) 2022, Compiler Explorer Authors
+// All rights reserved.
+//
+// Redistribution and use in source and binary forms, with or without
+// modification, are permitted provided that the following conditions are met:
+//
+//     * Redistributions of source code must retain the above copyright notice,
+//       this list of conditions and the following disclaimer.
+//     * Redistributions in binary form must reproduce the above copyright
+//       notice, this list of conditions and the following disclaimer in the
+//       documentation and/or other materials provided with the distribution.
+//
+// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+// ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+// LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+// CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+// SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+// INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+// CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+// ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+// POSSIBILITY OF SUCH DAMAGE.
+
+import path from 'path';
+
+import {ParseFiltersAndOutputOptions} from '../../types/features/filters.interfaces';
+
+import {Win32Compiler} from './win32';
+
+export class ClangCLCompiler extends Win32Compiler {
+    static override get key() {
+        return 'clang-cl';
+    }
+
+    constructor(info, env) {
+        super(info, env);
+
+        this.compiler.supportsIrView = true;
+        this.compiler.irArg = ['-Xclang', '-emit-llvm'];
+        this.compiler.supportsIntel = false;
+        this.compiler.includeFlag = '/clang:-isystem';
+    }
+
+    override async generateIR(inputFilename: string, options: string[], filters: ParseFiltersAndOutputOptions) {
+        // These options make Clang produce an IR
+        const newOptions = options
+            .filter(option => option !== '/FA' && !option.startsWith('/Fa'))
+            .concat(this.compiler.irArg);
+
+        const execOptions = this.getDefaultExecOptions();
+        // A higher max output is needed for when the user includes headers
+        execOptions.maxOutput = 1024 * 1024 * 1024;
+
+        const output = await this.runCompiler(this.compiler.exe, newOptions, this.filename(inputFilename), execOptions);
+        if (output.code !== 0) {
+            return [{text: 'Failed to run compiler to get IR code'}];
+        }
+        const ir = await this.processIrOutput(output, filters);
+        return ir.asm;
+    }
+
+    override getIrOutputFilename(inputFilename: string, filters: ParseFiltersAndOutputOptions): string {
+        return this.filename(path.dirname(inputFilename) + '/output.s.obj');
+    }
+
+    override optionsForFilter(filters, outputFilename) {
+        const options = super.optionsForFilter(filters, outputFilename);
+
+        // Force the debugging info flag or we can't source locations.
+        return ['/Z7'].concat(options);
+    }
+}