Fixes bug in streams.ssSetPosition.
This commit is contained in:
parent
0cac8d9b6f
commit
2898cc7c0e
1 changed files with 1 additions and 1 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue