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

Capitalize error messages

Browse source
This commit is contained in:
Mylloon 2022-12-08 19:54:57 +01:00
parent af7799ea2c
commit 76bc20c434
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
main.ml
View file

@ -21,11 +21,12 @@ let () =
let parsed = Parser.prog Lexer.token buf in let parsed = Parser.prog Lexer.token buf in
close_in f; close_in f;
let ast = Semantics.analyze parsed in let ast = Semantics.analyze parsed in
(* Semantics.emit Stdlib.stderr ast; *)
let asm = Compiler.compile ast in let asm = Compiler.compile ast in
Mips.emit Stdlib.stdout asm Mips.emit Stdlib.stdout asm
with with
| Lexer.Error c -> | Lexer.Error c ->
err (Printf.sprintf "unrecognized char '%c'" c) (Lexing.lexeme_start_p buf) err (Printf.sprintf "Unrecognized char \"%c\"" c) (Lexing.lexeme_start_p buf)
| Parser.Error -> err "syntax error" (Lexing.lexeme_start_p buf) | Parser.Error -> err "Syntax error" (Lexing.lexeme_start_p buf)
| Semantics.Error (msg, pos) -> err msg pos | Semantics.Error (msg, pos) -> err msg pos
;; ;;