This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Cast exception handler in dl_vms.xs.
authorCraig A. Berry <craigberry@mac.com>
Mon, 28 May 2012 21:10:57 +0000 (16:10 -0500)
committerCraig A. Berry <craigberry@mac.com>
Mon, 28 May 2012 21:10:57 +0000 (16:10 -0500)
C++ needs an explicit type on the handler.

ext/DynaLoader/dl_vms.xs

index 52bf92d..d68c95b 100644 (file)
@@ -127,7 +127,7 @@ my_find_image_symbol(struct dsc$descriptor_s *imgname,
                      struct dsc$descriptor_s *defspec)
 {
   unsigned long int retsts;
-  VAXC$ESTABLISH(lib$sig_to_ret);
+  VAXC$ESTABLISH((__vms_handler)lib$sig_to_ret);
   retsts = lib$find_image_symbol(imgname,symname,entry,defspec,DL_CASE_SENSITIVE);
   return retsts;
 }