diff options
Diffstat (limited to 'src/VeriFuzz/Sim/Quartus.hs')
| -rw-r--r-- | src/VeriFuzz/Sim/Quartus.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/VeriFuzz/Sim/Quartus.hs b/src/VeriFuzz/Sim/Quartus.hs index 0463009..beb7f10 100644 --- a/src/VeriFuzz/Sim/Quartus.hs +++ b/src/VeriFuzz/Sim/Quartus.hs @@ -23,7 +23,9 @@ import VeriFuzz.Sim.Internal import VeriFuzz.Verilog.AST import VeriFuzz.Verilog.CodeGen -newtype Quartus = Quartus { quartusBin :: Maybe FilePath } +data Quartus = Quartus { quartusBin :: !(Maybe FilePath) + , quartusOutput :: {-# UNPACK #-} !FilePath + } deriving (Eq) instance Show Quartus where @@ -34,9 +36,11 @@ instance Tool Quartus where instance Synthesiser Quartus where runSynth = runSynthQuartus + synthOutput = quartusOutput + setSynthOutput (Quartus a _) f = Quartus a f defaultQuartus :: Quartus -defaultQuartus = Quartus Nothing +defaultQuartus = Quartus Nothing "quartus/syn_quartus.v" runSynthQuartus :: Quartus -> SourceInfo -> FilePath -> ResultSh () runSynthQuartus sim (SourceInfo top src) outf = do |