peut être fin tp2

This commit is contained in:
gdamms 2021-11-24 18:11:38 +01:00
parent 73e7dfafcd
commit dd571ee403

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