From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sat, 25 Jun 2022 16:44:33 +0000 (-0500)
Subject: Pacify Oracle Studio re print_vectorlike
X-Git-Tag: emacs-29.0.90~1447^2~1466
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bdedfd927c493aab9c2c2f55a2a261137ad75cc2;p=emacs.git

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 8f829ba6842..d562500b619 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);
       }