Commit 86a26875 authored by simonmar's avatar simonmar
Browse files

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

Add codegen test for returning MutVar#.
parent 67a402e2
#-----------------------------------------------------------------------------
# $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
# -----------------------------------------------------------------------------
# $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
{-# 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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment