Skip to content
Snippets Groups Projects
Commit 94a2b436 authored by Ben Gamari's avatar Ben Gamari :turtle:
Browse files

run: Improve DX

parent ecf2790f
No related branches found
No related tags found
1 merge request!10Enable testing of Word64# on 32-bit platforms
......@@ -35,18 +35,25 @@ run() {
repl() {
build_runit
cat >.ghci <<EOF
cat >test-primops.ghci <<EOF
:m + RunGhc ToCmm Expr.Parse Expr Width
let ghcPath = "$TEST_GHC";
let runItPath = "$RUNIT";
let comp = basicCompiler ghcPath;
let staticEval = staticEvalMethod comp;
let dynEval = DynamicEval comp runItPath;
let interpreter = ghcInterpreter dynEval;
let comp = Compiler.basicCompiler ghcPath;
let staticEval = RunGhc.staticEvalMethod comp;
let dynEval = RunGhc.DynamicEval comp runItPath;
let interpreter = Interpreter.ghcInterpreter dynEval;
putStrLn "Hello world"
putStrLn $ "Compiler under test is " ++ ghcPath
EOF
"$CABAL" repl -w "$BOOT_GHC" test-primops
printf "For best results, run\n\n"
printf " :script test-primops.ghci\n\n"
"$CABAL" repl \
-w "$BOOT_GHC" \
lib:test-primops
}
mode="$1"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment