aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorPaul Eggert2022-06-25 11:44:33 -0500
committerPaul Eggert2022-06-25 15:28:09 -0500
commitbdedfd927c493aab9c2c2f55a2a261137ad75cc2 (patch)
tree19ea4fae6f085dcbf2e31c068ab48cbf284f9a07 /src
parent728968a2e6985b31956340199221da6f4bee3ce2 (diff)
downloademacs-bdedfd927c493aab9c2c2f55a2a261137ad75cc2.tar.gz
emacs-bdedfd927c493aab9c2c2f55a2a261137ad75cc2.zip
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.
Diffstat (limited to 'src')
-rw-r--r--src/print.c4
1 files changed, 2 insertions, 2 deletions
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,
1727 1727
1728 case PVEC_USER_PTR: 1728 case PVEC_USER_PTR:
1729 { 1729 {
1730 void *finalizer = XUSER_PTR (obj)->finalizer;
1731 print_c_string ("#<user-ptr ", printcharfun); 1730 print_c_string ("#<user-ptr ", printcharfun);
1732 int i = sprintf (buf, "ptr=%p finalizer=%p", 1731 int i = sprintf (buf, "ptr=%p finalizer=%p",
1733 XUSER_PTR (obj)->p, finalizer); 1732 XUSER_PTR (obj)->p,
1733 (void *) XUSER_PTR (obj)->finalizer);
1734 strout (buf, i, i, printcharfun); 1734 strout (buf, i, i, printcharfun);
1735 printchar ('>', printcharfun); 1735 printchar ('>', printcharfun);
1736 } 1736 }