Lines Matching refs:ix_r
125 withBinBuffer (BinMem _ ix_r _ arr_r) action = do
127 ix <- readFastMutInt ix_r
171 ix_r <- newFastMutInt
172 writeFastMutInt ix_r 0
175 return (BinMem noUserData ix_r sz_r arr_r)
181 seekBin h@(BinMem _ ix_r sz_r _) (BinPtr !p) = do
184 then do expandBin h p; writeFastMutInt ix_r p
185 else writeFastMutInt ix_r p
188 seekBy h@(BinMem _ ix_r sz_r _) !off = do
190 ix <- readFastMutInt ix_r
193 then do expandBin h ix'; writeFastMutInt ix_r ix'
194 else writeFastMutInt ix_r ix'
197 isEOFBin (BinMem _ ix_r sz_r _) = do
198 ix <- readFastMutInt ix_r
203 writeBinMem (BinMem _ ix_r _ arr_r) fn = do
206 ix <- readFastMutInt ix_r
222 ix_r <- newFastMutInt
223 writeFastMutInt ix_r 0
226 return (BinMem noUserData ix_r sz_r arr_r)
255 putPrim h@(BinMem _ ix_r sz_r arr_r) size f = do
256 ix <- readFastMutInt ix_r
262 writeFastMutInt ix_r (ix + size)
277 getPrim (BinMem _ ix_r sz_r arr_r) size f = do
278 ix <- readFastMutInt ix_r
284 writeFastMutInt ix_r (ix + size)