mirror of
https://github.com/compiler-explorer/compiler-explorer.git
synced 2025-12-27 07:04:04 -05:00
85 lines
3.7 KiB
TypeScript
85 lines
3.7 KiB
TypeScript
// Copyright (c) 2017, 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 'node:path';
|
|
|
|
import type {PreliminaryCompilerInfo} from '../../types/compiler.interfaces.js';
|
|
import type {ParseFiltersAndOutputOptions} from '../../types/features/filters.interfaces.js';
|
|
import {SelectedLibraryVersion} from '../../types/libraries/libraries.interfaces.js';
|
|
import {BaseCompiler} from '../base-compiler.js';
|
|
import {CompilationEnvironment} from '../compilation-env.js';
|
|
|
|
import {GHCParser} from './argument-parsers.js';
|
|
|
|
export class HaskellCompiler extends BaseCompiler {
|
|
static get key() {
|
|
return 'haskell';
|
|
}
|
|
|
|
constructor(info: PreliminaryCompilerInfo, env: CompilationEnvironment) {
|
|
super(info, env);
|
|
this.compiler.supportsHaskellCoreView = true;
|
|
this.compiler.supportsHaskellStgView = true;
|
|
this.compiler.supportsHaskellCmmView = true;
|
|
}
|
|
|
|
override optionsForBackend(backendOptions: Record<string, any>, outputFilename: string) {
|
|
const opts = super.optionsForBackend(backendOptions, outputFilename);
|
|
|
|
const anydump =
|
|
backendOptions.produceHaskellCore || backendOptions.produceHaskellStg || backendOptions.produceHaskellCmm;
|
|
|
|
if (anydump) {
|
|
// -dsupress-all to make tidier output
|
|
opts.push('-dsuppress-all', '-ddump-to-file', '-dumpdir', path.dirname(outputFilename));
|
|
}
|
|
|
|
if (backendOptions.produceHaskellCore && this.compiler.supportsHaskellCoreView) {
|
|
opts.push('-ddump-simpl');
|
|
}
|
|
if (backendOptions.produceHaskellStg && this.compiler.supportsHaskellStgView) {
|
|
opts.push('-ddump-stg-final');
|
|
}
|
|
if (backendOptions.produceHaskellCmm && this.compiler.supportsHaskellCmmView) {
|
|
opts.push('-ddump-cmm');
|
|
}
|
|
return opts;
|
|
}
|
|
|
|
override optionsForFilter(filters: ParseFiltersAndOutputOptions, outputFilename: string) {
|
|
const options = ['-g', '-o', this.filename(outputFilename)];
|
|
if (!filters.binary) options.unshift('-S');
|
|
return options;
|
|
}
|
|
|
|
override getSharedLibraryPathsAsArguments(libraries: SelectedLibraryVersion[]) {
|
|
const libPathFlag = this.compiler.libpathFlag || '-L';
|
|
return [libPathFlag + '.', ...this.getSharedLibraryPaths(libraries).map(path => libPathFlag + path)];
|
|
}
|
|
|
|
override getArgumentParserClass(): any {
|
|
return GHCParser;
|
|
}
|
|
}
|