[MLton-commit] r5013

Vesa Karvonen vesak at mlton.org
Sat Dec 30 18:43:51 PST 2006


Simplified.
----------------------------------------------------------------------

U   mltonlib/trunk/org/mlton/vesak/libc/unstable/detail/define.h

----------------------------------------------------------------------

Modified: mltonlib/trunk/org/mlton/vesak/libc/unstable/detail/define.h
===================================================================
--- mltonlib/trunk/org/mlton/vesak/libc/unstable/detail/define.h	2006-12-31 02:01:21 UTC (rev 5012)
+++ mltonlib/trunk/org/mlton/vesak/libc/unstable/detail/define.h	2006-12-31 02:43:51 UTC (rev 5013)
@@ -4,12 +4,12 @@
  * See the LICENSE file or http://mlton.org/License for details.
  */
 
-#define STATIC_ASSERT(c)                                        \
-extern void static_assert(int static_assert[(c) ? 1 : -1])
+#define STATIC_ASSERT(c)                        \
+extern int static_assert[(c) ? 1 : -1]
 
 #define ASSERT_EXISTS(name, type)                                       \
-extern int exists_##name(type* assert_exists);                          \
-extern void exists_aux_##name(int assert_exists[sizeof(exists_##name(&name))]);
+extern type* assert_exists_##name;                                      \
+extern int assert_exists[1+0*sizeof(assert_exists_##name = &name)];
 
 #define CONSTANT(name, type)                    \
 STATIC_ASSERT(sizeof(type) == sizeof(name));    \




More information about the MLton-commit mailing list