Byterun/some intrinsics

This commit is contained in:
Dmitry Boulytchev 2021-10-03 17:10:21 +03:00
parent c90a73c10f
commit 4d56ccc068
4 changed files with 70 additions and 18 deletions

View file

@ -241,6 +241,7 @@ let compile cmd env imports code =
match instr with
| PUBLIC name -> env#register_public name, []
| EXTERN name -> env#register_extern name, []
| IMPORT name -> env, []
| CLOSURE (name, closure) ->
let pushr, popr =
@ -491,7 +492,9 @@ let compile cmd env imports code =
| RET ->
let x = env#peek in
env, [Mov (x, eax); Jmp env#epilogue]
| ELEM -> call env ".elem" 2 false
| CALL (f, n, tail) -> call env f n tail
| CALLC (n, tail) -> callc env n tail