idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2025-01-05 06:37:23 +03:00
Code Issues Projects Releases Wiki Activity

Replace RefC putStrLn usages with log

Browse Source
This commit is contained in:
Robert Wright 2021-04-16 15:10:45 +01:00 committed by G. Allais
parent 54dcace421
commit 8e08e96201
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Compiler/RefC/CC.idr
View File

@ -1,6 +1,7 @@
module Compiler.RefC.CC module Compiler.RefC.CC
import Core.Context import Core.Context
import Core.Context.Log
import Core.Options import Core.Options
import System import System
@ -37,7 +38,7 @@ compileCObjectFile {asLibrary} sourceFile objectFile =
"-I" ++ fullprefix_dir dirs "refc " ++ "-I" ++ fullprefix_dir dirs "refc " ++
"-I" ++ fullprefix_dir dirs "include" "-I" ++ fullprefix_dir dirs "include"
coreLift $ putStrLn runccobj log "compiler.refc.cc" 10 runccobj
0 <- coreLift $ system runccobj 0 <- coreLift $ system runccobj
| _ => pure Nothing | _ => pure Nothing
@ -62,7 +63,7 @@ compileCFile {asShared} objectFile outFile =
"-L" ++ fullprefix_dir dirs "refc " ++ "-L" ++ fullprefix_dir dirs "refc " ++
clibdirs (lib_dirs dirs) clibdirs (lib_dirs dirs)
coreLift $ putStrLn runcc log "compiler.refc.cc" 10 runcc
0 <- coreLift $ system runcc 0 <- coreLift $ system runcc
| _ => pure Nothing | _ => pure Nothing

8
src/Compiler/RefC/RefC.idr
View File

@ -7,6 +7,7 @@ import Compiler.CompileExpr
import Compiler.ANF import Compiler.ANF
import Core.Context import Core.Context
import Core.Context.Log
import Core.Directory import Core.Directory
import Data.List import Data.List
@ -995,7 +996,8 @@ createCFunctions n (MkAError exp) = do
pure () pure ()
header : {auto f : Ref FunctionDefinitions (List String)} header : {auto c : Ref Ctxt Defs}
-> {auto f : Ref FunctionDefinitions (List String)}
-> {auto o : Ref OutfileText Output} -> {auto o : Ref OutfileText Output}
-> {auto il : Ref IndentLevel Nat} -> {auto il : Ref IndentLevel Nat}
-> {auto e : Ref ExternalLibs (List String)} -> {auto e : Ref ExternalLibs (List String)}
@ -1006,7 +1008,7 @@ header = do
, "#include <idris_support.h> // for libidris2_support"] , "#include <idris_support.h> // for libidris2_support"]
extLibs <- get ExternalLibs extLibs <- get ExternalLibs
let extLibLines = map (\lib => "// add header(s) for library: " ++ lib ++ "\n") extLibs let extLibLines = map (\lib => "// add header(s) for library: " ++ lib ++ "\n") extLibs
traverse_ (\l => coreLift (putStrLn $ " header for " ++ l ++ " needed")) extLibs traverse_ (\l => log "compiler.refc" 20 $ " header for " ++ l ++ " needed") extLibs
fns <- get FunctionDefinitions fns <- get FunctionDefinitions
update OutfileText (appendL (initLines ++ extLibLines ++ ["\n// function definitions"] ++ fns)) update OutfileText (appendL (initLines ++ extLibLines ++ ["\n// function definitions"] ++ fns))
@ -1046,7 +1048,7 @@ generateCSourceFile defs outn =
let code = fastAppend (map (++ "\n") (reify fileContent)) let code = fastAppend (map (++ "\n") (reify fileContent))
coreLift_ $ writeFile outn code coreLift_ $ writeFile outn code
coreLift_ $ putStrLn $ "Generated C file " ++ outn log "compiler.refc" 10 $ "Generated C file " ++ outn
export export
compileExpr : UsePhase compileExpr : UsePhase