2
0
Dan Korostelev 6 жил өмнө
parent
commit
91e88693e1

+ 1 - 1
src/generators/genswf9.ml

@@ -515,7 +515,7 @@ let rec setvar ctx (acc : write access) kret =
 			set_reg_dup ctx r
 			set_reg_dup ctx r
 		else
 		else
 			set_reg ctx r;
 			set_reg ctx r;
-	| VGlobal _ | VId _ | VCast _ | VArray | VScope _ when kret <> None ->
+	| VGlobal _ | VId _ | VCast _ | VArray | VScope _ | VSuper _ when kret <> None ->
 		let r = alloc_reg ctx (match kret with None -> assert false | Some k -> k) in
 		let r = alloc_reg ctx (match kret with None -> assert false | Some k -> k) in
 		set_reg_dup ctx r;
 		set_reg_dup ctx r;
 		setvar ctx acc None;
 		setvar ctx acc None;