Dan Korostelev před 6 roky
rodič
revize
91e88693e1
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      src/generators/genswf9.ml

+ 1 - 1
src/generators/genswf9.ml

@@ -515,7 +515,7 @@ let rec setvar ctx (acc : write access) kret =
 			set_reg_dup ctx r
 		else
 			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
 		set_reg_dup ctx r;
 		setvar ctx acc None;