diff options
| author | Philipp Stephani <phst@google.com> | 2017-06-17 17:10:41 +0200 |
|---|---|---|
| committer | Philipp Stephani <phst@google.com> | 2017-06-17 17:10:41 +0200 |
| commit | 61dc103969fce1a0bf179e9e799d1feba128b525 (patch) | |
| tree | 27329dee0b2816f3d0cb421f0a441631d31326f5 | |
| parent | c3813b2aa8d2f5a625195fdbbfe6a01a602d7735 (diff) | |
| download | emacs-61dc103969fce1a0bf179e9e799d1feba128b525.tar.gz | |
; * src/emacs-module.c (funcall_module): Add another FIXME
| -rw-r--r-- | src/emacs-module.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/emacs-module.c b/src/emacs-module.c index 5c413ee0556..2693a4529d6 100644 --- 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 { |