浏览代码

one more missing offset

Nicolas Cannasse 11 年之前
父节点
当前提交
c0e7d1378d
共有 1 个文件被更改,包括 3 次插入0 次删除
  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 };
 					index = { e : TBinop(OpMult, epos, stride), t : TFloat, p : index.p };
 				case TBinop(OpMult,{ e : TCall({ e : TGlobal(ToInt) },[epos]) },stride):
 				case TBinop(OpMult,{ e : TCall({ e : TGlobal(ToInt) },[epos]) },stride):
 					index = { e : TBinop(OpMult, epos, stride), t : TFloat, p : index.p };
 					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]):
 				case TCall({ e : TGlobal(ToInt) },[epos]):
 					index = epos;
 					index = epos;
 				default:
 				default: