From b0d844cf3400e9487d6c8327446e86fbaa10cd6f Mon Sep 17 00:00:00 2001 From: igloo Date: Wed, 28 Jan 2004 17:26:48 +0000 Subject: [PATCH] [project @ 2004-01-28 17:26:48 by igloo] Import getPrimRepSize, isFloatingRep, typePrimRep for alpha. --- ghc/compiler/typecheck/TcForeign.lhs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/ghc/compiler/typecheck/TcForeign.lhs b/ghc/compiler/typecheck/TcForeign.lhs index e18a485..d13b4bb 100644 --- a/ghc/compiler/typecheck/TcForeign.lhs +++ b/ghc/compiler/typecheck/TcForeign.lhs @@ -28,6 +28,10 @@ import TcExpr ( tcCheckSigma ) import ErrUtils ( Message ) import Id ( Id, mkLocalId, mkExportedLocalId ) +#if alpha_TARGET_ARCH +import PrimRep ( getPrimRepSize, isFloatingRep ) +import Type ( typePrimRep ) +#endif import OccName ( mkForeignExportOcc ) import Name ( Name, NamedThing(..), mkExternalName ) import TcType ( Type, tcSplitFunTys, tcSplitTyConApp_maybe, -- 1.7.10.4