Print module structure sizes when initializing test module

* test/data/emacs-module/mod-test.c (emacs_module_init): Print
compile-time and runtime sizes of module structures to ease debugging

diff --git a/test/data/emacs-module/mod-test.c b/test/data/emacs-module/mod-test.c
index 5e857c048f00292295705de61dbf5f4762b1b236..eee9466c5d6bdb55ccb82add35564465d0c3e1e6 100644 (file)
--- a/test/data/emacs-module/mod-test.c
+++ b/test/data/emacs-module/mod-test.c
@@ -265,12 +265,22 @@ int
 emacs_module_init (struct emacs_runtime *ert)
 {
   if (ert->size < sizeof *ert)
-    return 1;
+    {
+      fprintf (stderr, "Runtime size of runtime structure (%td bytes) "
+               "smaller than compile-time size (%zu bytes)",
+               ert->size, sizeof *ert);
+      return 1;
+    }
 
   emacs_env *env = ert->get_environment (ert);
 
   if (env->size < sizeof *env)
-    return 2;
+    {
+      fprintf (stderr, "Runtime size of environment structure (%td bytes) "
+               "smaller than compile-time size (%zu bytes)",
+               env->size, sizeof *env);
+      return 2;
+    }
 
 #define DEFUN(lsym, csym, amin, amax, doc, data) \
   bind_function (env, lsym, \