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