arbb-vm 0.1.1.14 → 0.1.1.17

raw patch · 2 files changed

+10/−5 lines, 2 files

Files

• Intel/ArbbVM/Convenience.hs +9/−4
• arbb-vm.cabal +1/−1

@@ -54,7 +54,7 @@    liftIO, liftMs,     -- These should probably be internal only:-   getCtx, getFun,+   getCtx, getFun, getConvFun,       -- low level @@ -286,7 +286,6 @@      outvars <- L forM [0 .. length outty - 1]   (getParameter fun 1)       -- Push on the stack:-     -- BJS: Why       S.modify (\ (c,ls) -> (c, (ConvFunction nullfun fun):ls))       -- Now generate body:@@ -298,18 +297,24 @@      S.modify (\ (c, h:t) -> (c, t))      L endFunction fun +     when debug_fundef$ print_$ "["++name++"] Function ended."+      -- EXPERIMENTAL!  Compile immediately!!-     --when debug_fundef$ print_$ "["++name++"] Function ended. Compiling..."+      --L compile fun      --when debug_fundef$ print_$ "["++name++"] Done compiling."        -- Also create an executable wrapper +      wrapper <- L beginFunction ctx fnt (name ++ "W") is_executable+     when debug_fundef$ print_$ "["++name++ "W" ++"] Wrapper function begun."      inputs  <- L forM [0 .. length inty  - 1] (getParameter wrapper 0)      outputs <- L forM [0 .. length outty - 1] (getParameter wrapper 1) +     when debug_fundef$ print_$ "["++name++"]  Begin wrapper body codgen..."      L callOp wrapper ArbbOpCall fun outputs inputs+     when debug_fundef$ print_$ "["++name++"]  Done wrapper body codgen."      L endFunction wrapper-    +     when debug_fundef$ print_$ "["++name++"] Wrapper function ended."           return$ ConvFunction wrapper fun 

@@ -1,5 +1,5 @@ Name:           arbb-vm-Version:        0.1.1.14+Version:        0.1.1.17  License:                BSD3 License-file:           LICENSE