[project @ 1999-11-01 16:07:48 by simonpj]

fromInt stuff and other wibbles

ghc/tests/ccall/should_fail/cc001.stderr

 
 cc001.hs:5:
-    Ambiguous type variable(s) `t'
-	in the constraint `CCallable t'
-	arising from an argument in the _ccall_ to `foo', namely `(undefined ())' at cc001.hs:5
+    Ambiguous type variable(s) `t' in the constraint `CCallable t'
+    arising from an argument in the _ccall_ to `foo', namely `(undefined ())' at cc001.hs:5
+    In the right-hand side of a pattern binding:
+	_ccall_ foo (undefined ())
 
 Compilation had errors
 

ghc/tests/ccall/should_fail/cc002.stderr

 
 cc002.hs:10:
     No instance for `CReturnable ForeignObj'
-	arising from the result of the _ccall_ to `a' at cc002.hs:10
+    arising from the result of the _ccall_ to `a' at cc002.hs:10
+    In the right-hand side of a pattern binding: _ccall_ a
 
 Compilation had errors
 

ghc/tests/codeGen/should_run/cg026.hs

@@ -8,7 +8,8 @@ import IOExts
 import MutableArray
 import ByteArray
 import Addr
-
+import Int( Num(fromInt) )
+	
 import Ratio
 import Array
 

ghc/tests/codeGen/should_run/cg042.hs

@@ -7,6 +7,7 @@ import IOExts
 import ByteArray
 import MutableArray
 import ST
+import Int( Num(fromInt) )
 
 import Ratio   -- 1.3
 import Array   -- 1.3

ghc/tests/lib/should_run/enum03.hs

@@ -3,6 +3,7 @@ module Main(main) where
 
 import Exception
 import Word
+import Int( Num(fromInt) )
 
 main = do
   putStrLn "Testing Enum Word8:"

ghc/tests/numeric/should_run/Makefile

 #-----------------------------------------------------------------------------
-# $Id: Makefile,v 1.5 1999/05/10 10:12:25 simonm Exp $
+# $Id: Makefile,v 1.6 1999/11/01 16:07:50 simonpj Exp $
 
 TOP = ../..
 include $(TOP)/mk/boilerplate.mk
 include $(TOP)/mk/should_run.mk
 
 HC_OPTS += -dcore-lint
+arith006_HC_OPTS += -fglasgow-exts
 arith010_HC_OPTS += -fglasgow-exts
 arith011_HC_OPTS += -fglasgow-exts
 arith012_HC_OPTS += -fglasgow-exts

ghc/tests/numeric/should_run/arith006.hs

 -- !!! printing Floats; was a bug in hbc (reported by andy)
 --
+
+import Int( Num(fromInt) )
+
 main = print ((fromInt 42) :: Float)

ghc/tests/programs/barton-mangler-bug/Basic.hs

-{-# OPTIONS -H12m #-}
+{-# OPTIONS -H12m -syslib exts #-}
 
 module Basic where
 import TypesettingTricks
+import Int( Num(fromInt) )
 import Physical
 --import GHC( (->) )
 infixr 7 |>

ghc/tests/programs/dmgob_native2/LPA.lhs

@@ -4,6 +4,7 @@
 >#ifndef __GLASGOW_HASKELL__
 > import Trace
 >#endif
+> import Int( Num(fromInt) )
 
 \end{comment}
 

ghc/tests/programs/dmgob_native2/Main.lhs

@@ -6,6 +6,7 @@
 > import Trace
 > import Maybe   -- an hbc library module defining the ``Maybe'' type
 >#endif
+> import Int( Num(fromInt) )
 
 > import Native  -- an hbc library module for native-mode binary IO
 

ghc/tests/programs/dmgob_native2/Makefile

 TOP = ..
 include $(TOP)/mk/boilerplate.mk
 
-SRC_HC_OPTS += -cpp -syslib misc
+SRC_HC_OPTS += -cpp -syslib misc -syslib exts
 
 all :: runtest
 

ghc/tests/programs/fast2haskell/Fast2haskell.hs

@@ -10,6 +10,7 @@
             import Word;
 	    import Complex; -- 1.3
 	    import Array; -- 1.3
+	    import Int ( Num(fromInt) );
             type Complex_type   = Complex Double;
             type Array_type b   = Array Int b;
             type Assoc_type a   = (Int, a);

ghc/tests/programs/okeefe_neural/Main.hs

+{-# OPTIONS -syslib exts #-}
+
 module Main(main) where
 
+import Int( Num(fromInt) )
+
 newtype RNG_State = RNG_State (Int, Int, Int)
 
 new_random i = RNG_State (i `mod` 30269, i `mod` 30307, i `mod` 30323)

ghc/tests/typecheck/should_compile/Makefile

@@ -7,6 +7,7 @@ SRC_HC_OPTS += -noC -dcore-lint -fno-warn-incomplete-patterns -hi-with-declarati
 tc019_HC_OPTS = -fglasgow-exts
 tc065_HC_OPTS = -syslib misc
 tc087_HC_OPTS = -fglasgow-exts
+tc088_HC_OPTS = -syslib exts
 tc089_HC_OPTS = -H12m
 tc097_HC_OPTS = -fglasgow-exts
 tc100_HC_OPTS = -O

ghc/tests/typecheck/should_compile/tc088.hs

 -- Check that "->" is an instance of Eval
 
 module ShouldSucceed where
+import Int( Num(fromInt) )
 
 instance Show (a->b)
 

ghc/tests/typecheck/should_fail/tcfail003.stderr

 
 tcfail003.hs:3:
     No instance for `Num Char'
-	arising from the literal `1' at tcfail003.hs:3
+    arising from the literal `1' at tcfail003.hs:3
+    In the list element: 1
+    In the right-hand side of a pattern binding: [1, 'a']
 
 Compilation had errors