[<<][rtl][>>][..]
Mon Aug 6 13:38:40 EDT 2018

Keep pseudo ops

This should be a hook in the main class that is ignored for code
generation, but gets executed in the emulator.

-test_int_logger = do
-  putStrLn "--- test_int_logger"
-  let log = do
-        t <- loadm Time
-        tell $ [t]
-      sample' = map (pseudo log >>) (sample :: [Src [Int]])
-      src = do
-        initRegs
-        bl_weave sample'
-        return ()
-      tick = compile src
-      [t1,t2] = take 2 $ logTrace tick (machineInit' 123 [10,11])
-  putStrLn $ "period: " ++ show (t2-t1)
-
-  

Keep it specialized.  I can't see a simple way to generalize it to
nops in the target compiler.




[Reply][About]
[<<][rtl][>>][..]