; * src/emacs-module.c (funcall_module): Add another FIXME

diff --git a/src/emacs-module.c b/src/emacs-module.c
index 5c413ee0556d1833902e80a43f19bccad21cb044..2693a4529d60ee65b04d4f98d3950ed2214af4a3 100644 (file)
--- a/src/emacs-module.c
+++ b/src/emacs-module.c
@@ -768,6 +768,9 @@ funcall_module (Lisp_Object function, ptrdiff_t nargs, Lisp_Object *arglist)
   USE_SAFE_ALLOCA;
   ATTRIBUTE_MAY_ALIAS emacs_value *args;
   if (plain_values && ! module_assertions)
+    /* FIXME: The cast below is incorrect because the argument array
+       is not declared as const, so module functions can modify it.
+       Either declare it as const, or remove this branch.  */
     args = (emacs_value *) arglist;
   else
     {