Commit 3dd01d69 authored by ken's avatar ken
Browse files

[project @ 2002-01-07 22:43:07 by ken]

Use HsInt rather than int
MERGE TO STABLE
parent 109771dd
......@@ -20,8 +20,8 @@ foreign export dynamic mkCounter :: (IO Int) -> IO Addr
main :: IO ()
main = do
x <- createCounter
v1 <- _casm_GC_ `` do { typedef int (*f)(); %r=(int)((f)%0)();} while (0); '' x
v1 <- _casm_GC_ `` do { typedef HsInt (*f)(); %r=(HsInt)((f)%0)();} while (0); '' x
print (v1::Int)
v2 <- _casm_GC_ `` do { typedef int (*f)(); %r=(int)((f)%0)();} while (0); '' x
v2 <- _casm_GC_ `` do { typedef HsInt (*f)(); %r=(HsInt)((f)%0)();} while (0); '' x
print (v2::Int)
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