projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Removed warnings, made Haddock happy, added examples in documentation
[ghc-hetmet.git]
/
compiler
/
codeGen
/
StgCmmLayout.hs
diff --git
a/compiler/codeGen/StgCmmLayout.hs
b/compiler/codeGen/StgCmmLayout.hs
index
33fd3e8
..
74bac43
100644
(file)
--- a/
compiler/codeGen/StgCmmLayout.hs
+++ b/
compiler/codeGen/StgCmmLayout.hs
@@
-166,9
+166,6
@@
direct_call caller lbl arity args reps
| otherwise -- Over-saturated call
= ASSERT( arity == length initial_reps )
do { pap_id <- newTemp gcWord
| otherwise -- Over-saturated call
= ASSERT( arity == length initial_reps )
do { pap_id <- newTemp gcWord
- ; let srt = pprTrace "Urk! SRT for over-sat call"
- (ppr lbl) NoC_SRT
- -- XXX: what if rest_args contains static refs?
; withSequel (AssignTo [pap_id] True)
(emitCall Native target fast_args)
; slow_call (CmmReg (CmmLocal pap_id))
; withSequel (AssignTo [pap_id] True)
(emitCall Native target fast_args)
; slow_call (CmmReg (CmmLocal pap_id))