diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-09-16 11:34:05 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-09-16 11:34:05 +0100 |
| commit | 3137073c530414304bbe498f16105f066aa593e3 (patch) | |
| tree | 02c901920352b18cda38ab3eb51683dc6a095eeb | |
| parent | c782840fb75711f5e80f313efbeea0bd7f817f0b (diff) | |
| parent | 54ba45317a213ca4bf9d3bd26ecacfce776ce695 (diff) | |
| download | haskell-3137073c530414304bbe498f16105f066aa593e3.tar.gz | |
Merge branch 'master' of http://darcs.haskell.org/ghc
| -rw-r--r-- | compiler/deSugar/DsCCall.lhs | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/compiler/deSugar/DsCCall.lhs b/compiler/deSugar/DsCCall.lhs index bdacc9f07e..a40d454852 100644 --- a/compiler/deSugar/DsCCall.lhs +++ b/compiler/deSugar/DsCCall.lhs @@ -176,43 +176,6 @@ unboxArg arg \ body -> Case arg case_bndr (exprType body) [(DataAlt data_con,vars,body)] ) - ----- Cases for .NET; almost certainly bit-rotted --------- - | Just (tc, [arg_ty]) <- splitTyConApp_maybe arg_ty, - tc == listTyCon, - Just (cc,[]) <- splitTyConApp_maybe arg_ty, - cc == charTyCon - -- String; dotnet only - = do unpack_id <- dsLookupGlobalId marshalStringName - prim_string <- newSysLocalDs addrPrimTy - return (Var prim_string, - \ body -> - let - io_ty = exprType body - Just (_,io_arg,_) = tcSplitIOType_maybe io_ty - in - mkApps (Var unpack_id) - [ Type io_arg - , arg - , Lam prim_string body - ]) - | Just (tc, [_]) <- splitTyConApp_maybe arg_ty, - tyConName tc == objectTyConName - -- Object; dotnet only - = do unpack_id <- dsLookupGlobalId marshalObjectName - prim_obj <- newSysLocalDs addrPrimTy - return (Var prim_obj, - \ body -> - let - io_ty = exprType body - Just (_,io_arg,_) = tcSplitIOType_maybe io_ty - in - mkApps (Var unpack_id) - [ Type io_arg - , arg - , Lam prim_obj body - ]) - --------------- End of cases for .NET -------------------- - | otherwise = do l <- getSrcSpanDs pprPanic "unboxArg: " (ppr l <+> ppr arg_ty) @@ -392,20 +355,6 @@ resultWrapper result_ty (maybe_ty, \e -> mkApps (Var (dataConWrapId data_con)) (map Type tycon_arg_tys ++ [wrapper (narrow_wrapper e)])) - -- Strings; 'dotnet' only. - | Just (tc, [arg_ty]) <- maybe_tc_app, tc == listTyCon, - Just (cc,[]) <- splitTyConApp_maybe arg_ty, cc == charTyCon - = do pack_id <- dsLookupGlobalId unmarshalStringName - return (Just addrPrimTy, - \ e -> App (Var pack_id) e) - - -- Objects; 'dotnet' only. - | Just (tc, [_]) <- maybe_tc_app, - tyConName tc == objectTyConName - = do pack_id <- dsLookupGlobalId unmarshalObjectName - return (Just addrPrimTy, - \ e -> App (Var pack_id) e) - | otherwise = pprPanic "resultWrapper" (ppr result_ty) where |