Make the Ord Module independent of Unique order
[ghc.git] / testsuite / tests / cps / cps004.cmm
1 // Test basic function parameters and return values
2
3 foo2 (bits16 a, bits16 b, "ptr" bits16 c) {
4   bits32 x, y;
5   x = R1;
6   (y) = foreign "C--" bar(x) "safe";
7   goto L;
8  L:
9   foreign "C--" baz(x) "safe";
10   //jump 12;
11   goto M;
12  M:
13   return (12);
14   //goto L;
15   //goto L;
16 }
17