From d52b98fb2672374c48f157aaa68483c39a46363d Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Tue, 7 May 2019 15:12:37 +0100 Subject: Rename some functions to use nicer names --- src/VeriFuzz/Sim/Quartus.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/VeriFuzz/Sim/Quartus.hs') diff --git a/src/VeriFuzz/Sim/Quartus.hs b/src/VeriFuzz/Sim/Quartus.hs index 0559637..5f3c18c 100644 --- a/src/VeriFuzz/Sim/Quartus.hs +++ b/src/VeriFuzz/Sim/Quartus.hs @@ -48,7 +48,7 @@ runSynthQuartus sim (SourceInfo top src) = do let ex = execute_ SynthFail dir "quartus" liftSh $ do writefile inpf $ genSource src - echoP "Running Quartus synthesis" + logger "Running Quartus synthesis" ex (exec "quartus_map") [top, "--source=" <> toTextIgnore inpf, "--family=Cyclone V"] ex (exec "quartus_fit") [top, "--part=5CGXFC7D6F31C6"] @@ -62,7 +62,7 @@ runSynthQuartus sim (SourceInfo top src) = do , "s,^// DATE.*,,; s,^tri1 (.*);,wire \\1 = 1;,; /^\\/\\/ +synopsys/ d;" , toTextIgnore $ synthOutput sim ] - echoP "Quartus synthesis done" + logger "Quartus synthesis done" where inpf = "rtl.v" exec s = maybe (fromText s) ( fromText s) $ quartusBin sim -- cgit