summaryrefslogtreecommitdiff
path: root/compiler/codeGen/StgCmmForeign.hs
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2009-07-27 14:45:24 +0000
committerSimon Marlow <marlowsd@gmail.com>2009-07-27 14:45:24 +0000
commit1fede4bc9501744bf2269ce2a4cb9fb735969caa (patch)
treef21e2178bcc90c3e1d50c2b0e93a68b7bfd369d4 /compiler/codeGen/StgCmmForeign.hs
parentdd849158c84941f5e3714dd4df24e467854f0d91 (diff)
downloadhaskell-1fede4bc9501744bf2269ce2a4cb9fb735969caa.tar.gz
Remove old 'foreign import dotnet' code
It still lives in darcs, if anyone wants to revive it sometime.
Diffstat (limited to 'compiler/codeGen/StgCmmForeign.hs')
-rw-r--r--compiler/codeGen/StgCmmForeign.hs3
1 files changed, 0 insertions, 3 deletions
diff --git a/compiler/codeGen/StgCmmForeign.hs b/compiler/codeGen/StgCmmForeign.hs
index af00c79e4e..fae4f2f6bb 100644
--- a/compiler/codeGen/StgCmmForeign.hs
+++ b/compiler/codeGen/StgCmmForeign.hs
@@ -82,9 +82,6 @@ cgForeignCall results result_hints (CCall (CCallSpec target cconv safety)) stg_a
-- ToDo: this might not be correct for 64-bit API
arg_size (arg, _) = max (widthInBytes $ typeWidth $ cmmExprType arg) wORD_SIZE
-cgForeignCall _ _ (DNCall _) _
- = panic "cgForeignCall: DNCall"
-
emitCCall :: [(CmmFormal,ForeignHint)]
-> CmmExpr
-> [(CmmActual,ForeignHint)]