Pacify Oracle Studio re print_vectorlike

* src/print.c (print_vectorlike): Use explicit cast of function
pointer to void *, to pacify Oracle Studio 12.6’s “warning:
assignment type mismatch: pointer to void "=" pointer to
function(pointer to void) returning void”.  Admittedly this is
not strictly conforming C code even with the cast.

diff --git a/src/print.c b/src/print.c
index 8f829ba6842f931d0df1fef716a9795a3f9a3f9a..d562500b61901cab4e88b6d6afe3ea08bf805cf9 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1727,10 +1727,10 @@ print_vectorlike (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag,
 
     case PVEC_USER_PTR:
       {
-       void *finalizer = XUSER_PTR (obj)->finalizer;
        print_c_string ("#<user-ptr ", printcharfun);
        int i = sprintf (buf, "ptr=%p finalizer=%p",
-                        XUSER_PTR (obj)->p, finalizer);
+                        XUSER_PTR (obj)->p,
+                        (void *) XUSER_PTR (obj)->finalizer);
        strout (buf, i, i, printcharfun);
        printchar ('>', printcharfun);
       }