Mercurial > hg > octave-nkf

comparison liboctave/oct-shlib.cc @ 5864:e884ab4f29ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-06-22 00:57:27 by jwe]
author jwe
date Thu, 22 Jun 2006 00:57:28 +0000
parents faafc2d98b8d
children 8d285942fc3c
comparison
equal deleted inserted replaced
5863:4c16f3104aa5 5864:e884ab4f29ee
297 void 297 void
298 octave_dlopen_shlib::close (octave_shlib::close_hook cl_hook) 298 octave_dlopen_shlib::close (octave_shlib::close_hook cl_hook)
299 { 299 {
300 if (is_open ()) 300 if (is_open ())
301 { 301 {
302 do_close_hook (cl_hook); 302 if (cl_hook)
303 do_close_hook (cl_hook);
303 304
304 dlclose (library); 305 dlclose (library);
305 306
306 library = 0; 307 library = 0;
307 308
400 void 401 void
401 octave_shl_load_shlib::close (octave_shlib::close_hook cl_hook) 402 octave_shl_load_shlib::close (octave_shlib::close_hook cl_hook)
402 { 403 {
403 if (is_open ()) 404 if (is_open ())
404 { 405 {
405 do_close_hook (cl_hook); 406 if (cl_hook)
407 do_close_hook (cl_hook);
406 408
407 shl_unload (library); 409 shl_unload (library);
408 410
409 library = 0; 411 library = 0;
410 412
528 void 530 void
529 octave_w32_shlib::close (octave_shlib::close_hook cl_hook) 531 octave_w32_shlib::close (octave_shlib::close_hook cl_hook)
530 { 532 {
531 if (is_open ()) 533 if (is_open ())
532 { 534 {
533 do_close_hook (cl_hook); 535 if (cl_hook)
536 do_close_hook (cl_hook);
534 537
535 FreeLibrary (handle); 538 FreeLibrary (handle);
536 539
537 handle = 0; 540 handle = 0;
538 541