Re: Dynamic loading progress

[Stephen Leake]

Stephen Leake <address@hidden> writes:

> Aurélien Aptel <address@hidden> writes:
>
>>     $ ./src/emacs -Q
>>     (module-load "./modules/basic/basic.so")
>>     => t
>>
>>     (basic-sum 2 2)
>>     => 4
>>
>> git repo: https://github.com/aaptel/emacs-dynamic-module.git
>
> This compiles and runs for me on 64 bit Debian and 32 bit Mingw.

However, when I try to access an elisp vector, it fails:

---- test_module_vector.c
#include <emacs_module.h>

int plugin_is_GPL_compatible;

/* functions */
static emacs_value length;


/* standard Emacs module init */
int emacs_module_init (struct emacs_runtime *ert)
{
  emacs_env *env = ert->get_environment (ert);

  length = env->intern (env, "length");

  emacs_value names = env->intern (env, "ada_grammar-names");
  emacs_value args[] = { names };
  int64_t names_length = env->fixnum_to_int (env, env->funcall (env, length, 1, 
args));

  return 0;
}
---- test_module_vector.c


(setq ada_grammar-names [0 1 2 3 4])
(sequencep ada_grammar-names)
(length ada_grammar-names)
(module-load "test_module_vector.dll")

=> module-load: Wrong type argument: sequencep, ada_grammar-names


This happens on both Windows Mingw32 and Debian x86_64


--
-- Stephe