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

use magic type for do

Browse source
This commit is contained in:
Mylloon 2022-12-10 16:49:51 +01:00
parent c5c2fd2d1c
commit db78e69267
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
3 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
ast.ml
View file

@ -1,4 +1,5 @@
type type_t = type type_t =
| Magic_t
| Void_t | Void_t
| Int_t | Int_t
| Bool_t | Bool_t

4
semantics.ml
View file

@ -24,7 +24,7 @@ let rec analyze_expr env ua t = function
| Syntax.Call c -> | Syntax.Call c ->
(match Env.find c.func env with (match Env.find c.func env with
| Func_t (ret_t, tl) -> | Func_t (ret_t, tl) ->
if ret_t != t then errt ret_t t c.pos; if ret_t != t && t != Magic_t then errt ret_t t c.pos;
if List.length tl != List.length c.args if List.length tl != List.length c.args
then then
raise raise
@ -63,7 +63,7 @@ let analyze_instr env ua ret_t = function
let ae, et = analyze_expr env ua (Env.find a.var env) a.expr in let ae, et = 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 Assign (a.var, ae), env, List.filter (fun x -> x <> a.var) ua
| Syntax.Do d -> | Syntax.Do d ->
let ae, _ = analyze_expr env ua Int_t d.expr in let ae, _ = analyze_expr env ua Magic_t d.expr in
Do ae, env, [] Do ae, env, []
| Syntax.Return r -> | Syntax.Return r ->
let ae, _ = analyze_expr env ua ret_t r.expr in let ae, _ = analyze_expr env ua ret_t r.expr in

7
tests/17_err-losing-variable.test Normal file
View file

@ -0,0 +1,7 @@
int foo(int a) {
return a;
}
void main() {
void b = foo(1);
}