Make the Ord Module independent of Unique order
[ghc.git] / testsuite / tests / cps / cps023.cmm
1 // Test foreign calls
2
3 // This test won't work until the parser is changes.
4 // Currently the parser calls emitForeignCall', even
5 // for safe foreign calls and that function
6 // creates only unsafe foreign calls.
7 // This will have to be changed to 
8 //   code (stmtC (CmmCall (CmmForeignCall expr convention) results args safety))
9 // so the CPS can get a hold of it.
10
11 foo() {
12   bits32 x, y, z;
13   x = x;
14   (x) = foreign "C" bar() "safe";
15   y = y;
16   (y) = foreign "C" baz() "safe";
17   return (z);
18 }