mirror of
https://github.com/compiler-explorer/compiler-explorer.git
synced 2025-12-27 12:54:00 -05:00
d1d0883a86
This adds support for the [Sail language](https://github.com/rems-project/sail) - a DSL for defining ISAs. It's not quite ready but I need some help. These are the main remaining issues: 1. When you "link to binary" it does disassemble the binary properly, but the syntax highlighting and line numbers are broken.  2. If you try to execute the code without a `function main() -> unit = ...` then it gives this error in the compiler output: ``` Internal Compiler Explorer error: Error: spawn /tmp/compiler-explorer-compiler2025025-31052-c8gern.pf8t/model.c EACCES at ChildProcess._handle.onexit (node:internal/child_process:285:19) at onErrorNT (node:internal/child_process:483:16) at process.processTicksAndRejections (node:internal/process/task_queues:82:21) Compiler returned: -1 ``` This is weird - it should give a linker with an undefined reference to `zmain`. 3. Sail compiles to C, and then I added extra steps to compile that to binary (if you select `Execute the code`), but as you can see I had to move the binary back over the C file, so in this case `model.c` is actually an ELF file. It works but that seems very weird. There is a `getExecutableFilename()` method I could override, but doing that seems to make it even more confused. 4. I also had to have a fake flag for `binary` because the `filters` don't seem to get set correctly when passed to `runCompiler()`. E.g. `buildExecutable()` doesn't pass them at all. Not sure what is going on there. Seems to work though. Any help appreciated! PS: Sail is a cool language. It has lightweight dependent type for integers and bit vectors, which I haven't demonstrated in the examples yet, but they're neat. --------- Co-authored-by: Matt Godbolt <matt@godbolt.org>
22 lines
614 B
Plaintext
22 lines
614 B
Plaintext
default Order dec
|
|
|
|
$include <prelude.sail>
|
|
$include <vector.sail>
|
|
|
|
// This is generic over all fixed-length vectors. They are not dynamically sized.
|
|
function max_array forall 'n . (x : vector('n, int), y : vector('n, int)) -> vector('n, int) = {
|
|
// vector_init() copies the value to all elements.
|
|
var m : vector('n, int) = vector_init(0);
|
|
foreach (i from 0 to ('n - 1)) {
|
|
m[i] = if x[i] > y[i] then x[i] else y[i];
|
|
};
|
|
m
|
|
}
|
|
|
|
function main() -> unit = {
|
|
let m = max_array([1, 2, 3], [3, 2, 1]);
|
|
foreach (i from 0 to (length(m) - 1)) {
|
|
print_endline(dec_str(m[i]));
|
|
}
|
|
}
|