Fixes bug in streams.ssSetPosition.

This commit is contained in:
Dominik Picheta
2012-08-18 21:42:24 +01:00
parent 0cac8d9b6f
commit 2898cc7c0e

View File

@@ -194,7 +194,7 @@ proc ssAtEnd(s: PStream): bool =
proc ssSetPosition(s: PStream, pos: int) =
var s = PStringStream(s)
s.pos = min(pos, s.data.len-1)
s.pos = clamp(pos, 0, s.data.high)
proc ssGetPosition(s: PStream): int =
var s = PStringStream(s)