Sjit/Run.icl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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"
	}