ENSEEIHT/projet-traduction-langage
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

peut être fin tp2

Browse source
This commit is contained in:
gdamms 2021-11-24 18:11:38 +01:00
parent 73e7dfafcd
commit dd571ee403
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/passeTdsRat.ml
View file

@ -23,9 +23,9 @@ let rec analyse_tds_expression tds e =
begin begin
match chercherGlobalement tds str with match chercherGlobalement tds str with
| None -> raise (IdentifiantNonDeclare str) | None -> raise (IdentifiantNonDeclare str)
| Some info -> (* TODO déréférencer le info *) | Some (InfoFun(str, typ, l_typ)) ->
let nl_expr = List.map (fun e -> analyse_tds_expression tds e) l_expr in let nl_expr = List.map (fun e -> analyse_tds_expression tds e) l_expr in
AstTds.AppelFonction(info, nl_expr) AstTds.AppelFonction((InfoFun(str, typ, l_typ)), nl_expr)
end end
| AstSyntax.Ident(str) -> | AstSyntax.Ident(str) ->
begin begin