Cyclic equal (alpha)

This commit is contained in:
Dmitry Boulytchev 2020-08-02 23:56:21 +03:00
parent c73f43e817
commit c29ab4901f
13 changed files with 402 additions and 18 deletions

View file

@ -416,7 +416,7 @@ let compile cmd env imports code =
Repmovsl
] @
(if f = "main"
then [Call "L__gc_init"; Push (I (12, ebp)); Push (I (8, ebp)); Call "set_args"; Binop ("+", L 8, esp)]
then [Call "__gc_init"; Push (I (12, ebp)); Push (I (8, ebp)); Call "set_args"; Binop ("+", L 8, esp)]
else []
) @
(if f = cmd#topname

View file

@ -1 +1 @@
let version = "Version 1.00, 9d0b8e811, Mon May 4 02:45:34 2020 +0300"
let version = "Version 1.00, c73f43e81, Thu Jul 23 12:52:42 2020 +0300"