Sfoglia il codice sorgente

one more missing offset

Nicolas Cannasse 11 anni fa
parent
commit
c0e7d1378d
1 ha cambiato i file con 3 aggiunte e 0 eliminazioni
  1. 3 0
      hxsl/AgalOut.hx

+ 3 - 0
hxsl/AgalOut.hx

@@ -342,6 +342,9 @@ class AgalOut {
 					index = { e : TBinop(OpMult, epos, stride), t : TFloat, p : index.p };
 				case TBinop(OpMult,{ e : TCall({ e : TGlobal(ToInt) },[epos]) },stride):
 					index = { e : TBinop(OpMult, epos, stride), t : TFloat, p : index.p };
+				case TBinop(OpAdd, { e : TCall({ e : TGlobal(ToInt) },[epos]) }, { e : TConst(CInt(d)) } ):
+					delta = d;
+					index = epos;
 				case TCall({ e : TGlobal(ToInt) },[epos]):
 					index = epos;
 				default: