Raymond Toy pushed to branch issue-312-motif-server at cmucl / cmucl
Commits:
-
2eddddf4
by Raymond Toy at 2024-05-29T17:22:42-07:00
1 changed file:
Changes:
| ... | ... | @@ -267,10 +267,8 @@ void message_write_color(message_t m,XColor *color,int tag) |
| 267 | 267 | |
| 268 | 268 | void message_write_float(message_t m,void *f,int tag)
|
| 269 | 269 | {
|
| 270 | - float *fl = (float *) f;
|
|
| 271 | -
|
|
| 272 | 270 | message_put_dblword(m,combine_type_and_data(tag,0));
|
| 273 | - message_put_dblword(m,*fl);
|
|
| 271 | + message_put_dblword(m,*(long *) f);
|
|
| 274 | 272 | }
|
| 275 | 273 | |
| 276 | 274 |
|
| ... | ... | @@ -526,8 +524,8 @@ void message_read_color(message_t m,XColor *color,int tag, int red) |
| 526 | 524 | |
| 527 | 525 | void message_read_float(message_t m,float *f,int tag,int data)
|
| 528 | 526 | {
|
| 529 | - fprintf(stderr,">>>>> Warning:message_read_float: Not implemented.\n");
|
|
| 530 | - fflush(stderr);
|
|
| 527 | + long d = message_get_dblword(m);
|
|
| 528 | + memcpy(f, &d, sizeof(*f));
|
|
| 531 | 529 | }
|
| 532 | 530 | |
| 533 | 531 |
|