X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Futils%2Fhsc2hs%2Ftemplate-hsc.h;h=bdc34eda783a8abb72ed5a49b1f4f71fabff3c58;hb=7a94452294ea68fa657c7ce1fa204c77062006c5;hp=fdd4b7610b353231077c625ae856b6e7c561d190;hpb=91d3350899fd0d65a21a9abce9c5f2318ffe3fd0;p=ghc-hetmet.git

diff --git a/ghc/utils/hsc2hs/template-hsc.h b/ghc/utils/hsc2hs/template-hsc.h
index fdd4b76..bdc34ed 100644
--- a/ghc/utils/hsc2hs/template-hsc.h
+++ b/ghc/utils/hsc2hs/template-hsc.h
@@ -69,6 +69,9 @@
 #define hsc_offset(t, f) \
     printf("(%ld)", (long) offsetof (t, f));
 
+#define hsc_size(t) \
+    printf("(%ld)", (long) sizeof(t));
+
 #define hsc_enum(t, f, print_name, x)         \
     print_name;                               \
     printf (" :: %s\n", #t);                  \