projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix sin/cos/tan on x86; trac #2059
[ghc-hetmet.git]
/
compiler
/
profiling
/
SCCfinal.lhs
diff --git
a/compiler/profiling/SCCfinal.lhs
b/compiler/profiling/SCCfinal.lhs
index
e4d199c
..
b24840d
100644
(file)
--- a/
compiler/profiling/SCCfinal.lhs
+++ b/
compiler/profiling/SCCfinal.lhs
@@
-25,8
+25,6
@@
This is now a sort-of-normal STG-to-STG pass (WDP 94/06), run by stg2stg.
\begin{code}
module SCCfinal ( stgMassageForProfiling ) where
\begin{code}
module SCCfinal ( stgMassageForProfiling ) where
--- XXX This define is a bit of a hack, and should be done more nicely
-#define FAST_STRING_NOT_NEEDED 1
#include "HsVersions.h"
import StgSyn
#include "HsVersions.h"
import StgSyn
@@
-282,7
+280,7
@@
boxHigherOrderArgs almost_expr args = do
= do -- make a trivial let-binding for the top-level function
uniq <- getUniqueMM
let
= do -- make a trivial let-binding for the top-level function
uniq <- getUniqueMM
let
- new_var = mkSysLocal FSLIT("sf") uniq var_type
+ new_var = mkSysLocal (fsLit "sf") uniq var_type
return ( (new_var, old_var) : bindings, StgVarArg new_var )
where
var_type = idType old_var
return ( (new_var, old_var) : bindings, StgVarArg new_var )
where
var_type = idType old_var