Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
bb341c45
Commit
bb341c45
authored
Apr 27, 1999
by
simonm
Browse files
[project @ 1999-04-27 15:03:20 by simonm]
indexArray# changes.
parent
563637ee
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/lib/std/PrelArr.lhs
View file @
bb341c45
...
...
@@ -117,7 +117,7 @@ bounds (Array b _) = b
= let n# = case (index bounds i) of { I# x -> x } -- index fails if out of range
in
case (indexArray# arr# n#) of
(#
_,
v #) -> v
(# v #) -> v
#ifdef USE_FOLDR_BUILD
{-# INLINE array #-}
...
...
@@ -633,7 +633,7 @@ thawArray (Array ixs arr#) = ST $ \ s# ->
| cur# ==# end#
= (# st#, to# #)
| otherwise
= case indexArray# from# cur# of { (#
_,
ele #) ->
= case indexArray# from# cur# of { (# ele #) ->
case writeArray# to# cur# ele st# of { s1# ->
copy (cur# +# 1#) end# from# to# s1#
}}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment