From 981f900bb0358eee7ddf5ada1d09b0c629bfdc5b Mon Sep 17 00:00:00 2001 From: Alex AUVOLAT Date: Tue, 10 Dec 2013 11:07:08 +0100 Subject: Many things. Remains : inheritance. --- src/parser.mly | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/parser.mly') diff --git a/src/parser.mly b/src/parser.mly index 71c7842..0cf545d 100644 --- a/src/parser.mly +++ b/src/parser.mly @@ -17,8 +17,8 @@ (* return type, name *) let rec reverse_var bt v = match v with | VId(i) -> bt, i - | VPtr(vv) -> let ty, id = reverse_var bt vv in TPtr(ty), id - | VRef(vv) -> let ty, id = reverse_var bt vv in TRef(ty), id + | VPtr(vv) -> let ty, id = reverse_var (TPtr(bt)) vv in ty, id + | VRef(vv) -> let ty, id = reverse_var (TRef(bt)) vv in ty, id (* return type, class, name *) let rec reverse_qvar bt (v, cl) = -- cgit v1.2.3