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
(SemanticsError
( Printf.sprintf
"Expected %d arguments but given %d"
"Function \"%s\" expects %d arguments but %d was given"
c.func
(List.length tl)
(List.length c.args)
, c.pos ));
( Call
( c.func
, List.map2
(fun t e ->
let e2, t2 = analyze_expr env ua t e in
if t2 = t
then e2
else
errt
t
t2
(match e with
| Syntax.Val v -> v.pos
| Syntax.Var v -> v.pos
| Syntax.Call c -> c.pos))
tl
c.args )
, ret_t )
let args =
List.map2
(fun t e ->
let e2, t2 = analyze_expr env ua t e in
if t2 = t
then e2
else
errt
t
t2
(match e with
| Syntax.Val v -> v.pos
| Syntax.Var v -> v.pos
| Syntax.Call c -> c.pos))
tl
c.args
in
Call (c.func, args), ret_t
| _ -> raise (SemanticsError ("\"" ^ c.func ^ "\" isn't a function", c.pos)))
;;