From 6666a92975d090e8cdd23733b3876db779fec917 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 25 Jan 1999 11:42:57 +0000
Subject: [PATCH] [project @ 1999-01-25 11:42:51 by sof] Tweaks to make the
 sources compilable again on osf3.2

---
 ghc/compiler/main/Constants.lhs     |    4 ++++
 ghc/compiler/nativeGen/MachCode.lhs |    2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/main/Constants.lhs b/ghc/compiler/main/Constants.lhs
index 3aa4d59..c0bf487 100644
--- a/ghc/compiler/main/Constants.lhs
+++ b/ghc/compiler/main/Constants.lhs
@@ -181,7 +181,11 @@ mAX_Long_REG    = (MAX_LONG_REG  :: Int)
 mAX_Real_Vanilla_REG	= (MAX_REAL_VANILLA_REG :: Int)
 mAX_Real_Float_REG	= (MAX_REAL_FLOAT_REG :: Int)
 mAX_Real_Double_REG	= (MAX_REAL_DOUBLE_REG :: Int)
+#ifdef MAX_REAL_LONG_REG
 mAX_Real_Long_REG	= (MAX_REAL_LONG_REG :: Int)
+#else
+mAX_Real_Long_REG       = (0::Int)
+#endif
 \end{code}
 
 Closure header sizes.
diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index fde05dd..0fd076d 100644
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -316,7 +316,7 @@ getRegister (StPrim primop [x]) -- unary PrimOps
       Double2FloatOp -> coerceFltCode x
       Float2DoubleOp -> coerceFltCode x
 
-      other_op -> getRegister (StCall fn cconv DoubleRep [x])
+      other_op -> getRegister (StCall fn cCallConv DoubleRep [x])
 	where
 	  fn = case other_op of
 		 FloatExpOp    -> SLIT("exp")
-- 
1.7.10.4