Fix for index check in PHP code.

This commit is contained in:
Hans Raaf
2016-02-07 00:30:21 +01:00
parent 77235947c1
commit e737b47ee1

View File

@@ -891,7 +891,10 @@ proc genArrayAddr(p: PProc, n: PNode, r: var TCompRes) =
else: first = 0
if optBoundsCheck in p.options and not isConstExpr(m.sons[1]):
useMagic(p, "chckIndx")
r.res = "chckIndx($1, $2, $3.length)-$2" % [b.res, rope(first), a.res]
if p.target == targetPHP:
r.res = "chckIndx($1, $2, count($3))-$2" % [b.res, rope(first), a.res]
else:
r.res = "chckIndx($1, $2, $3.length)-$2" % [b.res, rope(first), a.res]
elif first != 0:
r.res = "($1)-$2" % [b.res, rope(first)]
else: