diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2022-06-25 11:44:33 -0500 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2022-06-25 15:28:09 -0500 |
| commit | bdedfd927c493aab9c2c2f55a2a261137ad75cc2 (patch) | |
| tree | 19ea4fae6f085dcbf2e31c068ab48cbf284f9a07 /src | |
| parent | 728968a2e6985b31956340199221da6f4bee3ce2 (diff) | |
| download | emacs-bdedfd927c493aab9c2c2f55a2a261137ad75cc2.tar.gz | |
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.c | 4 |
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, 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); } |