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