implementation module Sjit.Run

import StdEnv
import StdMaybe

from Data.Map import :: Map(..), get

import Sjit.Compile

exec :: !CompileState -> Int
exec {jitst} = exec jitst.code_start
where
	exec :: !Int -> Int
	exec _ = code {
		ccall jit_exec "p:I"
	}