mirror of
https://github.com/compiler-explorer/compiler-explorer.git
synced 2025-12-27 10:33:59 -05:00
12fcac5e05
More recent versions of LFortran use `LFORTRAN_LINKER` env var for linking, rather than `LFORTRAN_CC`. Tested locally with 0.42 and 0.51
71 lines
3.2 KiB
TypeScript
71 lines
3.2 KiB
TypeScript
// Copyright (c) 2024, 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 type {CompilationResult, ExecutionOptionsWithEnv} from '../../types/compilation/compilation.interfaces.js';
|
|
import {PreliminaryCompilerInfo} from '../../types/compiler.interfaces.js';
|
|
import type {ParseFiltersAndOutputOptions} from '../../types/features/filters.interfaces.js';
|
|
import {CompilationEnvironment} from '../compilation-env.js';
|
|
|
|
import {FortranCompiler} from './fortran.js';
|
|
|
|
export class LFortranCompiler extends FortranCompiler {
|
|
private clang: string;
|
|
|
|
static override get key() {
|
|
return 'lfortran';
|
|
}
|
|
|
|
constructor(compilerInfo: PreliminaryCompilerInfo & {disabledFilters?: string[]}, env: CompilationEnvironment) {
|
|
super(compilerInfo, env);
|
|
// TODO(#7150) consider a more general purpose version of this.
|
|
this.clang = this.compilerProps<string>(`compiler.${this.compiler.id}.clang`);
|
|
}
|
|
|
|
override optionsForFilter(filters: ParseFiltersAndOutputOptions, outputFilename: string) {
|
|
// TODO(@Thirumalai-Shaktivel) add `-g` to the options once that's supported in the compilers.
|
|
let options = ['-o', this.filename(outputFilename), '--generate-object-code'];
|
|
|
|
if (!filters.binary && !filters.binaryObject) {
|
|
options = options.concat('-S');
|
|
} else if (filters.binaryObject) {
|
|
options = options.concat('-c');
|
|
}
|
|
return options;
|
|
}
|
|
|
|
override async runCompiler(
|
|
compiler: string,
|
|
options: string[],
|
|
inputFilename: string,
|
|
execOptions: ExecutionOptionsWithEnv,
|
|
): Promise<CompilationResult> {
|
|
if (!execOptions) {
|
|
execOptions = this.getDefaultExecOptions();
|
|
}
|
|
execOptions.env.LFORTRAN_CC = this.clang;
|
|
execOptions.env.LFORTRAN_LINKER = this.clang;
|
|
return super.runCompiler(compiler, options, inputFilename, execOptions);
|
|
}
|
|
}
|