diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2010-01-02 05:37:54 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2010-01-02 05:37:54 +0000 |
| commit | 7854ec4b11e117f8514553890851d14a66690fbb (patch) | |
| tree | f96e7dd94f39eda39fe86da0298e3f628a35ef65 /compiler/codeGen/StgCmmForeign.hs | |
| parent | e5fba2f55f560b41e27047bf59958729d51aca84 (diff) | |
| download | haskell-7854ec4b11e117f8514553890851d14a66690fbb.tar.gz | |
Tag ForeignCalls with the package they correspond to
Diffstat (limited to 'compiler/codeGen/StgCmmForeign.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmForeign.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmForeign.hs b/compiler/codeGen/StgCmmForeign.hs index 89a2b27833..bda9e0fe1b 100644 --- a/compiler/codeGen/StgCmmForeign.hs +++ b/compiler/codeGen/StgCmmForeign.hs @@ -59,7 +59,7 @@ cgForeignCall results result_hints (CCall (CCallSpec target cconv safety)) stg_a StaticTarget lbl -> (unzip cmm_args, CmmLit (CmmLabel (mkForeignLabel lbl (call_size cmm_args) - False IsFunction))) + ForeignLabelInThisPackage IsFunction))) DynamicTarget -> case cmm_args of (fn,_):rest -> (unzip rest, fn) [] -> panic "cgForeignCall []" |