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

be like pablo because pablo

Browse source
This commit is contained in:
Mylloon 2022-12-11 02:37:07 +01:00
parent ee6a10e7a5
commit 79b9649979
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 20 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
semantics.ml
View file

@ -31,13 +31,13 @@ let rec analyze_expr env ua t = function
raise raise
(SemanticsError (SemanticsError
( Printf.sprintf ( Printf.sprintf
"Expected %d arguments but given %d" "Function \"%s\" expects %d arguments but %d was given"
c.func
(List.length tl) (List.length tl)
(List.length c.args) (List.length c.args)
, c.pos )); , c.pos ));
( Call let args =
( c.func List.map2
, List.map2
(fun t e -> (fun t e ->
let e2, t2 = analyze_expr env ua t e in let e2, t2 = analyze_expr env ua t e in
if t2 = t if t2 = t
@ -51,8 +51,9 @@ let rec analyze_expr env ua t = function
| Syntax.Var v -> v.pos | Syntax.Var v -> v.pos
| Syntax.Call c -> c.pos)) | Syntax.Call c -> c.pos))
tl tl
c.args ) c.args
, ret_t ) in
Call (c.func, args), ret_t
| _ -> raise (SemanticsError ("\"" ^ c.func ^ "\" isn't a function", c.pos))) | _ -> raise (SemanticsError ("\"" ^ c.func ^ "\" isn't a function", c.pos)))
;; ;;