[project @ 2000-09-06 10:28:48 by simonmar]

Add codegen test for returning MutVar#.

ghc/tests/codeGen/Makefile

 #-----------------------------------------------------------------------------
-# $Id: Makefile,v 1.3 1997/12/16 17:15:11 simonm Exp $
+# $Id: Makefile,v 1.4 2000/09/06 10:28:48 simonmar Exp $
 
 TOP = ..
 include $(TOP)/mk/boilerplate.mk
 
-SUBDIRS = should_run
+SUBDIRS = should_compile should_run
 
 include $(TOP)/mk/target.mk
-
-

ghc/tests/codeGen/should_compile/Makefile

+# -----------------------------------------------------------------------------
+# $Id: Makefile,v 1.1 2000/09/06 10:28:48 simonmar Exp $
+
+TOP = ../..
+include $(TOP)/mk/boilerplate.mk
+include $(TOP)/mk/should_compile.mk
+
+include $(TOP)/mk/target.mk

ghc/tests/codeGen/should_compile/cg001.hs

+{-# OPTIONS -fglasgow-exts #-}
+
+module ShouldCompile where
+
+import PrelGHC
+
+data STRef s a = STRef (MutVar# s a)
+
+-- ghc 4.08 had a problem with returning a MutVar#.
+
+from :: STRef s a -> MutVar# s a
+from (STRef x) = x
+
+to :: MutVar# s a -> STRef s a
+to x = STRef x