mirror of
https://github.com/compiler-explorer/compiler-explorer.git
synced 2025-12-27 10:33:59 -05:00
74 lines
3.2 KiB
TypeScript
74 lines
3.2 KiB
TypeScript
// 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 {LLVMIrBackendOptions} from '../../types/compilation/ir.interfaces.js';
|
|
import type {ParseFiltersAndOutputOptions} from '../../types/features/filters.interfaces.js';
|
|
import {unwrap} from '../assert.js';
|
|
import {FlangParser} from './argument-parsers.js';
|
|
import {FortranCompiler} from './fortran.js';
|
|
|
|
export class FlangCompiler extends FortranCompiler {
|
|
static override get key() {
|
|
return 'flang';
|
|
}
|
|
|
|
protected override getArgumentParserClass(): any {
|
|
return FlangParser;
|
|
}
|
|
|
|
override optionsForFilter(filters: ParseFiltersAndOutputOptions, outputFilename: string) {
|
|
let options = ['-o', this.filename(outputFilename)];
|
|
if (this.compiler.intelAsm && filters.intel && !filters.binary) {
|
|
options = options.concat(this.compiler.intelAsm.split(' '));
|
|
}
|
|
if (filters.binary) {
|
|
options = options.concat('-g');
|
|
} else {
|
|
options = options.concat('-S');
|
|
}
|
|
return options;
|
|
}
|
|
|
|
override async generateIR(
|
|
inputFilename: string,
|
|
options: string[],
|
|
irOptions: LLVMIrBackendOptions,
|
|
produceCfg: boolean,
|
|
filters: ParseFiltersAndOutputOptions,
|
|
) {
|
|
// -emit-llvm is passed directly to flang, rather than via -Xflang -emit-llvm,
|
|
// which is the style used for clang. This means the output filename is not
|
|
// derived from the input file name, it instead follows the -o option as a
|
|
// normal compilation would. These options will end up with 2 -o, but the
|
|
// last one in wins, which is the one that we add here.
|
|
const newOptions = [
|
|
...options,
|
|
...unwrap(this.compiler.irArg),
|
|
'-o',
|
|
this.getIrOutputFilename(inputFilename, filters),
|
|
];
|
|
return super.generateIR(inputFilename, newOptions, irOptions, produceCfg, filters);
|
|
}
|
|
}
|