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

hm we dont care about this

Browse source
This commit is contained in:
Mylloon 2022-12-22 19:17:24 +01:00
parent 3614712f6f
commit 72d4ab4217
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
semantics.ml
View file

@ -65,7 +65,7 @@ let rec analyze_instr env ua ret_t = function
| Syntax.Assign a ->
if not (Env.mem a.var env)
then raise (SemanticsError ("Unbound variable \"" ^ a.var ^ "\"", a.pos));
let ae, et = analyze_expr env ua [ Env.find a.var env ] a.expr in
let ae, _ = analyze_expr env ua [ Env.find a.var env ] a.expr in
Assign (a.var, ae), env, List.filter (fun x -> x <> a.var) ua
| Syntax.Do d ->
let ae, _ = analyze_expr env ua [ Magic_t ] d.expr in