diff options
| author | dias@eecs.tufts.edu <unknown> | 2009-03-17 20:42:38 +0000 |
|---|---|---|
| committer | dias@eecs.tufts.edu <unknown> | 2009-03-17 20:42:38 +0000 |
| commit | e5e7d10bb9fc69e58a78540a4a4bf34124730f48 (patch) | |
| tree | 10d678efc2c3c292b7bdfb049c28ff9b9f4cbc98 /compiler/codeGen/StgCmmExpr.hs | |
| parent | 0c84eb9d40b4fab76cc4d72913f9ead409cdbd47 (diff) | |
| download | haskell-e5e7d10bb9fc69e58a78540a4a4bf34124730f48.tar.gz | |
Calling convention bug and cleanup
- yet another wrong calling convention; this one was a special case for returning one
value.
Diffstat (limited to 'compiler/codeGen/StgCmmExpr.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmExpr.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs index df6e8a1a47..32e43a748d 100644 --- a/compiler/codeGen/StgCmmExpr.hs +++ b/compiler/codeGen/StgCmmExpr.hs @@ -480,8 +480,6 @@ cgTailCall fun_id fun_info args = do do emit $ mkComment $ mkFastString "directEntry" emit (mkAssign nodeReg fun) directCall lbl arity args - -- directCall lbl (arity+1) (StgVarArg fun_id : args)) - -- >>= (emit . (mkComment (mkFastString "DirectEntry") <*>)) else do emit $ mkComment $ mkFastString "directEntry else" directCall lbl arity args } |