projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Store a SrcSpan instead of a SrcLoc inside a Name
[ghc-hetmet.git]
/
compiler
/
ghci
/
ByteCodeItbls.lhs
diff --git
a/compiler/ghci/ByteCodeItbls.lhs
b/compiler/ghci/ByteCodeItbls.lhs
index
9b2dac0
..
730e4de
100644
(file)
--- a/
compiler/ghci/ByteCodeItbls.lhs
+++ b/
compiler/ghci/ByteCodeItbls.lhs
@@
-117,7
+117,7
@@
make_constr_itbls cons
, code = code
#endif
}
, code = code
#endif
}
- qNameCString <- newCString $ dataConIdentity dcon
+ qNameCString <- newArray0 0 $ dataConIdentity dcon
let conInfoTbl = StgConInfoTable {
conDesc = qNameCString,
infoTable = itbl
let conInfoTbl = StgConInfoTable {
conDesc = qNameCString,
infoTable = itbl
@@
-273,7
+273,7
@@
type HalfWord = Word16
#endif
data StgConInfoTable = StgConInfoTable {
#endif
data StgConInfoTable = StgConInfoTable {
- conDesc :: CString,
+ conDesc :: Ptr Word8,
infoTable :: StgInfoTable
}
infoTable :: StgInfoTable
}