Paris8/compilateurMIPS
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix test file

Browse source
This commit is contained in:
Mylloon 2022-12-11 03:38:02 +01:00
parent 6a4c1744c4
commit c79a0f3a33
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
test.ml
View file

@ -1,5 +1,6 @@
open Ast
open Ast.IR
open Ast.IR1
open Ast.V1
open Errors
let debug_parser oc parsed =
@ -7,6 +8,7 @@ let debug_parser oc parsed =
| Syntax.Void -> "Void"
| Syntax.Int d -> "Int " ^ string_of_int d
| Syntax.Bool d -> "Bool " ^ string_of_bool d
| Syntax.Str s -> "Str " ^ s
and fmt_e = function
| Syntax.Val d -> "Val (" ^ fmt_v d.value ^ ")"
| Syntax.Var d -> "Var \"" ^ d.name ^ "\""
@ -44,6 +46,7 @@ let debug_semantics oc ast =
| Void -> "Void"
| Int n -> "Int " ^ string_of_int n
| Bool b -> "Bool " ^ string_of_bool b
| Str s -> "String " ^ s
and fmt_e = function
| Val v -> "Val (" ^ fmt_v v ^ ")"
| Var v -> "Var \"" ^ v ^ "\""