comment out ERRORs check

This commit is contained in:
danyaberezun 2023-07-24 14:22:44 +02:00
parent ffa0b69841
commit 18eac4375c

View file

@ -309,7 +309,7 @@ let compile cmd env imports code =
| BINOP op -> | BINOP op ->
let x, y, env' = env#pop2 in let x, y, env' = env#pop2 in
env'#push y, env'#push y,
(match op with (* (match op with
|"<" | "<=" | "==" | "!=" | ">=" | ">" -> |"<" | "<=" | "==" | "!=" | ">=" | ">" ->
[Push (eax); [Push (eax);
Push (edx); Push (edx);
@ -331,7 +331,7 @@ let compile cmd env imports code =
Binop("&&", L(1), eax); Binop("&&", L(1), eax);
Binop("cmp", L(0), eax); Binop("cmp", L(0), eax);
CJmp ("z", "_ERROR")] CJmp ("z", "_ERROR")]
| _ -> []) @ | _ -> []) @ *)
(match op with (match op with
| "/" -> | "/" ->
[Mov (y, eax); [Mov (y, eax);