Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/e610292338d5f9ae598e6ca0a5d7f665f00158af >--------------------------------------------------------------- commit e610292338d5f9ae598e6ca0a5d7f665f00158af Author: Ian Lynagh <[email protected]> Date: Tue Sep 13 22:18:00 2011 +0100 Remove some (probably bit-rotted) .NET cases >--------------------------------------------------------------- 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 bdacc9f..a40d454 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
