Mercurial > hg > xemacs-beta
comparison src/emodules.c @ 771:943eaba38521
[xemacs-hg @ 2002-03-13 08:51:24 by ben]
The big ben-mule-21-5 check-in!
Various files were added and deleted. See CHANGES-ben-mule.
There are still some test suite failures. No crashes, though.
Many of the failures have to do with problems in the test suite itself
rather than in the actual code. I'll be addressing these in the next
day or so -- none of the test suite failures are at all critical.
Meanwhile I'll be trying to address the biggest issues -- i.e. build
or run failures, which will almost certainly happen on various platforms.
All comments should be sent to ben@xemacs.org -- use a Cc: if necessary
when sending to mailing lists. There will be pre- and post- tags,
something like
pre-ben-mule-21-5-merge-in, and
post-ben-mule-21-5-merge-in.
author | ben |
---|---|
date | Wed, 13 Mar 2002 08:54:06 +0000 |
parents | fdefd0186b75 |
children | 14089a93af0a |
comparison
equal
deleted
inserted
replaced
770:336a418893b5 | 771:943eaba38521 |
---|---|
101 mver = (char *)XSTRING_DATA (version); | 101 mver = (char *)XSTRING_DATA (version); |
102 | 102 |
103 dlhandle = 0; | 103 dlhandle = 0; |
104 record_unwind_protect (module_load_unwind, make_int(modnum)); | 104 record_unwind_protect (module_load_unwind, make_int(modnum)); |
105 emodules_load (mod, mname, mver); | 105 emodules_load (mod, mname, mver); |
106 unbind_to (speccount, Qnil); | 106 unbind_to (speccount); |
107 | 107 |
108 return Qt; | 108 return Qt; |
109 } | 109 } |
110 | 110 |
111 #ifdef DANGEROUS_NASTY_SCARY_MONSTER | 111 #ifdef DANGEROUS_NASTY_SCARY_MONSTER |
349 strcpy (soname, (char *)XSTRING_DATA (foundname)); | 349 strcpy (soname, (char *)XSTRING_DATA (foundname)); |
350 | 350 |
351 dlhandle = dll_open (soname); | 351 dlhandle = dll_open (soname); |
352 if (dlhandle == (dll_handle)0) | 352 if (dlhandle == (dll_handle)0) |
353 { | 353 { |
354 CIntbyte *dllerrint; | 354 Intbyte *dllerrint; |
355 | 355 |
356 EXTERNAL_TO_C_STRING (dll_error (dlhandle), dllerrint, Qnative); | 356 EXTERNAL_TO_C_STRING (dll_error (dlhandle), dllerrint, Qnative); |
357 signal_error (Qdll_error, "Opening dynamic module", | 357 signal_error (Qdll_error, "Opening dynamic module", |
358 build_string (dllerrint)); | 358 build_intstring (dllerrint)); |
359 } | 359 } |
360 | 360 |
361 ellcc_rev = (const long *)dll_variable (dlhandle, "emodule_compiler"); | 361 ellcc_rev = (const long *)dll_variable (dlhandle, "emodule_compiler"); |
362 if ((ellcc_rev == (const long *)0) || (*ellcc_rev <= 0)) | 362 if ((ellcc_rev == (const long *)0) || (*ellcc_rev <= 0)) |
363 signal_error (Qdll_error, "Invalid dynamic module: Missing symbol `emodule_compiler'", Qunbound); | 363 signal_error (Qdll_error, "Invalid dynamic module: Missing symbol `emodule_compiler'", Qunbound); |