st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-07 07:18:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Finish fixing big numbers

Browse source
This commit is contained in:
Roman Venediktov 2024-02-05 19:18:41 +01:00
parent aeb4675210
commit a91f61dbfa
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/X86.ml
View file

@ -386,8 +386,9 @@ let compile_call env ?fname nargs tail =
let tail_call_optimization_applicable = let tail_call_optimization_applicable =
let allowed_function = let allowed_function =
match fname with match fname with
Some "Lprintf" -> false | Some "Lprintf" -> false
| Some fname -> not (fname.[0] = '.') | None -> true | Some fname -> not (fname.[0] = '.')
| None -> true
in in
let same_arguments_count = env#nargs = nargs in let same_arguments_count = env#nargs = nargs in
tail && allowed_function && same_arguments_count tail && allowed_function && same_arguments_count
@ -494,7 +495,9 @@ let compile_call env ?fname nargs tail =
(env, [ Mov (rax, y) ]) (env, [ Mov (rax, y) ])
in in
let add_printf_count = let add_printf_count =
match fname with Some "Lprintf" -> [ Mov (L (nargs - 1), r11) ] | _ -> [] match fname with
| Some "Lprintf" -> [ Mov (L (nargs - 1), r11) ]
| _ -> []
in in
let fname = adjust_builtin_function_name fname in let fname = adjust_builtin_function_name fname in
let stack_slots, env, setup_args_code = setup_arguments env fname nargs in let stack_slots, env, setup_args_code = setup_arguments env fname nargs in
@ -749,7 +752,7 @@ let compile cmd env imports code =
| SEXP (t, n) -> | SEXP (t, n) ->
let s, env = env#allocate in let s, env = env#allocate in
let env, code = compile_call env ~fname:".sexp" (n + 1) false in let env, code = compile_call env ~fname:".sexp" (n + 1) false in
(env, (mov L (box (env#hash t))) s @ code) (env, mov (L (box (env#hash t))) s @ code)
| DROP -> (snd env#pop, []) | DROP -> (snd env#pop, [])
| DUP -> | DUP ->
let x = env#peek in let x = env#peek in
@ -762,9 +765,7 @@ let compile cmd env imports code =
let s1, env = env#allocate in let s1, env = env#allocate in
let s2, env = env#allocate in let s2, env = env#allocate in
let env, code = compile_call env ~fname:".tag" 3 false in let env, code = compile_call env ~fname:".tag" 3 false in
( env, (env, mov (L (box (env#hash t))) s1 @ mov (L (box n)) s2 @ code)
[ Mov (L (box (env#hash t)), s1); Mov (L (box n), s2) ] @ code
)
| ARRAY n -> | ARRAY n ->
let s, env = env#allocate in let s, env = env#allocate in
let env, code = compile_call env ~fname:".array_patt" 2 false in let env, code = compile_call env ~fname:".array_patt" 2 false in