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

39
semantics.ml
View file

@ -31,28 +31,29 @@ 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 then e2
then e2 else
else errt
errt t
t t2
t2 (match e with
(match e with | Syntax.Val v -> v.pos
| Syntax.Val v -> v.pos | 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 ) in
, ret_t ) 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)))
;; ;;