develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34293 - trunk/src

From:
chromatic
Date:
December 23, 2008 13:27
Subject:
[svn:parrot] r34293 - trunk/src
Message ID:
20081223212748.F310FCBA12@x12.develooper.com
Author: chromatic
Date: Tue Dec 23 13:27:48 2008
New Revision: 34293

Modified:
   trunk/src/dynext.c

Log:
[src] Improved casts of functions loaded through Parrot_dlsym().  See RT
#61038 (reported by Jarkko Hietaniemi).

Modified: trunk/src/dynext.c
==============================================================================
--- trunk/src/dynext.c	(original)
+++ trunk/src/dynext.c	Tue Dec 23 13:27:48 2008
@@ -372,8 +372,8 @@
         init_func_name  = Parrot_sprintf_c(interp, "Parrot_lib_%Ss_init",
                                           lib_name);
         cinit_func_name = string_to_cstring(interp, init_func_name);
-        init_func      = (void (*)(PARROT_INTERP, PMC *))(Parrot_dlsym(handle,
-                    cinit_func_name));
+        init_func       = (void (*)(PARROT_INTERP, PMC *))
+            D2FPTR(Parrot_dlsym(handle, cinit_func_name));
         string_cstring_free(cinit_func_name);
     }
     else {



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About