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/StgCmmForeign.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/StgCmmForeign.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmForeign.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmForeign.hs b/compiler/codeGen/StgCmmForeign.hs index 64d0203957..af00c79e4e 100644 --- a/compiler/codeGen/StgCmmForeign.hs +++ b/compiler/codeGen/StgCmmForeign.hs @@ -58,7 +58,8 @@ cgForeignCall results result_hints (CCall (CCallSpec target cconv safety)) stg_a = case target of StaticTarget lbl -> (unzip cmm_args, - CmmLit (CmmLabel (mkForeignLabel lbl (call_size cmm_args) False IsFunction))) + CmmLit (CmmLabel (mkForeignLabel lbl (call_size cmm_args) + False IsFunction))) DynamicTarget -> case cmm_args of (fn,_):rest -> (unzip rest, fn) [] -> panic "cgForeignCall []" |