diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-07-27 14:45:24 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-07-27 14:45:24 +0000 |
| commit | 1fede4bc9501744bf2269ce2a4cb9fb735969caa (patch) | |
| tree | f21e2178bcc90c3e1d50c2b0e93a68b7bfd369d4 /compiler/codeGen | |
| parent | dd849158c84941f5e3714dd4df24e467854f0d91 (diff) | |
| download | haskell-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')
| -rw-r--r-- | compiler/codeGen/CgForeignCall.hs | 3 | ||||
| -rw-r--r-- | compiler/codeGen/StgCmmExpr.hs | 1 | ||||
| -rw-r--r-- | compiler/codeGen/StgCmmForeign.hs | 3 |
3 files changed, 0 insertions, 7 deletions
diff --git a/compiler/codeGen/CgForeignCall.hs b/compiler/codeGen/CgForeignCall.hs index 87c82cb3ba..957651d3ba 100644 --- a/compiler/codeGen/CgForeignCall.hs +++ b/compiler/codeGen/CgForeignCall.hs @@ -94,9 +94,6 @@ emitForeignCall results (CCall (CCallSpec target cconv safety)) args live -- ToDo: this might not be correct for 64-bit API arg_size rep = max (widthInBytes (typeWidth rep)) wORD_SIZE -emitForeignCall _ (DNCall _) _ _ - = panic "emitForeignCall: DNCall" - -- alternative entry point, used by CmmParse emitForeignCall' diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs index 2a0716ed24..8952f92bd2 100644 --- a/compiler/codeGen/StgCmmExpr.hs +++ b/compiler/codeGen/StgCmmExpr.hs @@ -320,7 +320,6 @@ isSimpleScrut _ _ = False isSimpleOp :: StgOp -> Bool -- True iff the op cannot block or allocate isSimpleOp (StgFCallOp (CCall (CCallSpec _ _ safe)) _) = not (playSafe safe) -isSimpleOp (StgFCallOp (DNCall _) _) = False -- Safe! isSimpleOp (StgPrimOp op) = not (primOpOutOfLine op) isSimpleOp (StgPrimCallOp _) = False 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)] |