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);