master bdedfd927c 2/5: Pacify Oracle Studio re print_vectorlike

[Paul Eggert]

branch: master
commit bdedfd927c493aab9c2c2f55a2a261137ad75cc2
Author: Paul Eggert <eggert@cs.ucla.edu>
Commit: Paul Eggert <eggert@cs.ucla.edu>

    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.
---
 src/print.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/print.c b/src/print.c
index 8f829ba684..d562500b61 100644
--- 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);
       }