diff options
| author | dias@cs.tufts.edu <unknown> | 2009-09-18 18:34:15 +0000 |
|---|---|---|
| committer | dias@cs.tufts.edu <unknown> | 2009-09-18 18:34:15 +0000 |
| commit | e4caa74b6c809cd17c5d1f7d472b9a47b2ea6f1c (patch) | |
| tree | 8917db21c74605655582adeaa1404e9bc81344f4 /compiler/codeGen/StgCmm.hs | |
| parent | e4622dac19c0ea5ba60078667c57e03801cdc943 (diff) | |
| download | haskell-e4caa74b6c809cd17c5d1f7d472b9a47b2ea6f1c.tar.gz | |
Fixed calling convention for unboxed tuples
Apparently, the arguments should be sorted by pointerhood.
While we're at it, I rewrote the code that assigns registers
and stack space to function call and return parameters.
Diffstat (limited to 'compiler/codeGen/StgCmm.hs')
| -rw-r--r-- | compiler/codeGen/StgCmm.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmm.hs b/compiler/codeGen/StgCmm.hs index 84edcce21c..52809da502 100644 --- a/compiler/codeGen/StgCmm.hs +++ b/compiler/codeGen/StgCmm.hs @@ -329,7 +329,8 @@ cgDataCon data_con (dyn_cl_info, arg_things) = layOutDynConstr data_con arg_reps emit_info cl_info ticky_code - = emitClosureAndInfoTable cl_info [] $ mk_code ticky_code + = emitClosureAndInfoTable cl_info NativeDirectCall [] + $ mk_code ticky_code mk_code ticky_code = -- NB: We don't set CC when entering data (WDP 94/06) |