Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
6d075f13
Commit
6d075f13
authored
Apr 19, 2007
by
Simon Marlow
Browse files
more layering cleanup: BreakArray should come from GHC
parent
6a250480
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/ghci/InteractiveUI.hs
View file @
6d075f13
...
...
@@ -85,11 +85,6 @@ import Data.IORef ( IORef, readIORef, writeIORef )
import
System.Posix.Internals
(
setNonBlockingFD
)
-- these are needed by the new ghci debugger
import
ByteCodeLink
(
HValue
)
import
ByteCodeInstr
(
BreakInfo
(
..
))
import
BreakArray
-----------------------------------------------------------------------------
ghciWelcomeMsg
=
...
...
@@ -1659,7 +1654,7 @@ mkTickArray ticks
max_line
=
maximum
(
map
srcSpanEndLine
(
map
snd
ticks
))
srcSpanLines
span
=
[
srcSpanStartLine
span
..
srcSpanEndLine
span
]
getModBreak
::
Module
->
GHCi
(
BreakArray
,
Array
Int
SrcSpan
)
getModBreak
::
Module
->
GHCi
(
GHC
.
BreakArray
,
Array
Int
SrcSpan
)
getModBreak
mod
=
do
session
<-
getSession
Just
mod_info
<-
io
$
GHC
.
getModuleInfo
session
mod
...
...
@@ -1672,10 +1667,10 @@ lookupModule :: Session -> String -> GHCi Module
lookupModule
session
modName
=
io
(
GHC
.
findModule
session
(
GHC
.
mkModuleName
modName
)
Nothing
)
setBreakFlag
::
Bool
->
BreakArray
->
Int
->
IO
Bool
setBreakFlag
::
Bool
->
GHC
.
BreakArray
->
Int
->
IO
Bool
setBreakFlag
toggle
array
index
|
toggle
=
setBreakOn
array
index
|
otherwise
=
setBreakOff
array
index
|
toggle
=
GHC
.
setBreakOn
array
index
|
otherwise
=
GHC
.
setBreakOff
array
index
{- these should probably go to the GHC API at some point -}
...
...
compiler/main/GHC.hs
View file @
6d075f13
...
...
@@ -87,6 +87,7 @@ module GHC (
obtainTerm
,
obtainTerm1
,
ModBreaks
(
..
),
BreakIndex
,
BreakInfo
(
breakInfo_number
,
breakInfo_module
),
BreakArray
,
setBreakOn
,
setBreakOff
,
getBreak
,
modInfoModBreaks
,
#
endif
...
...
@@ -198,6 +199,7 @@ import ByteCodeInstr
import
DebuggerTys
import
IdInfo
import
HscMain
(
hscParseIdentifier
,
hscTcExpr
,
hscKcType
,
hscStmt
)
import
BreakArray
#
endif
import
Packages
...
...
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