diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2024-10-13 01:20:11 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2024-10-13 01:20:11 -0600 |
| commit | 5924b745fbaf52000981c298ec8f18b3c0c4a1be (patch) | |
| tree | bfbc9398ab6b918eca35961c26126d92f748e8d3 /src/Language/Fiddle/Compiler/Backend.hs | |
| parent | da0d596946cf21e2f275dd03b40c0a6c0824f66b (diff) | |
| download | fiddle-5924b745fbaf52000981c298ec8f18b3c0c4a1be.tar.gz fiddle-5924b745fbaf52000981c298ec8f18b3c0c4a1be.tar.bz2 fiddle-5924b745fbaf52000981c298ec8f18b3c0c4a1be.zip | |
Start implementing a bunch of the C backend.
Have basic implementations down for coarse registers. Working on getting
bitfields supported.
Diffstat (limited to 'src/Language/Fiddle/Compiler/Backend.hs')
| -rw-r--r-- | src/Language/Fiddle/Compiler/Backend.hs | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/src/Language/Fiddle/Compiler/Backend.hs b/src/Language/Fiddle/Compiler/Backend.hs index ddb32c6..eda3ede 100644 --- a/src/Language/Fiddle/Compiler/Backend.hs +++ b/src/Language/Fiddle/Compiler/Backend.hs @@ -25,13 +25,6 @@ instance Semigroup TranspileResult where instance Monoid TranspileResult where mempty = TranspileResult mempty --- | "Opens" a file in the broader context of a TransplieResult, and writes the --- resulting bytestring to it -withFile :: - (MonadWriter TranspileResult m) => FilePath -> Writer Text () -> m () -withFile path bsWriter = - tell (TranspileResult $ Map.singleton path $ execWriter bsWriter) - -- | A backend for the FiddleCompiler. Takes a Checked FiddleUnit and emits -- generated code for that fiddle unit. data Backend where |