Import Upstream version 20180207
[hcoop/debian/mlton.git] / regression / library / libm1.c
1 #include <assert.h>
2
3 #define PART_OF_M1
4 #include "m1.h"
5
6 PRIVATE void* libm1cSymPrivate = 0;
7 PUBLIC void* libm1cSymPublic = 0;
8
9 PRIVATE void* libm1cFnPrivate(void) {
10 return &libm1cSymPrivate;
11 }
12
13 PUBLIC void* libm1cFnPublic(void) {
14 return &libm1cSymPublic;
15 }
16
17 PRIVATE void libm1confirmC(void) {
18 assert (&libm1smlFnPrivate == libm1smlSymPrivate);
19 assert (&libm1smlFnPublic == libm1smlSymPublic);
20 assert (&libm1cFnPrivate == libm1cSymPrivate);
21 assert (&libm1cFnPublic == libm1cSymPublic);
22
23 assert (libm1smlFnPrivate() == &libm1smlSymPrivate);
24 assert (libm1smlFnPublic() == &libm1smlSymPublic);
25 }