2
0
Эх сурвалжийг харах

partial fix for https://github.com/vshaxe/hashlink-debugger/issues/12

Nicolas Cannasse 7 жил өмнө
parent
commit
010ebaefa9

+ 2 - 1
src/generators/genhl.ml

@@ -2386,7 +2386,8 @@ and eval_expr ctx e =
 			(match get_access ctx e1 with
 			(match get_access ctx e1 with
 			| ALocal (v,l) ->
 			| ALocal (v,l) ->
 				let r = eval_to ctx { e with eexpr = TBinop (bop,e1,e2) } (to_type ctx e1.etype) in
 				let r = eval_to ctx { e with eexpr = TBinop (bop,e1,e2) } (to_type ctx e1.etype) in
-				op ctx (OMov (l, r));
+				push_op ctx (OMov (l, r));
+				add_assign ctx v;
 				r
 				r
 			| acc ->
 			| acc ->
 				gen_assign_op ctx acc e1 (fun r ->
 				gen_assign_op ctx acc e1 (fun r ->