Mercurial > hg > xemacs-beta

comparison src/device-msw.c @ 5120:d1247f3cc363 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
latest work on lisp-object workspace; more changes eliminating LCRECORD in place of LISP_OBJECT; now compiles and runs.
author Ben Wing <ben@xemacs.org>
date Mon, 28 Dec 2009 01:15:52 -0600
parents e0db3c197671
children 623d57b7fbe8
comparison
equal deleted inserted replaced
5119:d877c14318b3 5120:d1247f3cc363
160 DEVICE_INFD (d) = DEVICE_OUTFD (d) = -1; 160 DEVICE_INFD (d) = DEVICE_OUTFD (d) = -1;
161 init_baud_rate (d); 161 init_baud_rate (d);
162 init_one_device (d); 162 init_one_device (d);
163 163
164 #ifdef NEW_GC 164 #ifdef NEW_GC
165 d->device_data = alloc_lrecord_type (struct mswindows_device, 165 d->device_data = XMSWINDOWS_DEVICE (ALLOC_LISP_OBJECT (mswindows_device));
166 &lrecord_mswindows_device);
167 #else /* not NEW_GC */ 166 #else /* not NEW_GC */
168 d->device_data = xnew_and_zero (struct mswindows_device); 167 d->device_data = xnew_and_zero (struct mswindows_device);
169 #endif /* not NEW_GC */ 168 #endif /* not NEW_GC */
170 hdc = CreateCompatibleDC (NULL); 169 hdc = CreateCompatibleDC (NULL);
171 assert (hdc != NULL); 170 assert (hdc != NULL);
517 DEVMODEW *pdm; 516 DEVMODEW *pdm;
518 LONG dm_size; 517 LONG dm_size;
519 Extbyte *printer_name; 518 Extbyte *printer_name;
520 519
521 #ifdef NEW_GC 520 #ifdef NEW_GC
522 d->device_data = alloc_lrecord_type (struct msprinter_device, 521 d->device_data = XMSPRINTER_DEVICE (ALLOC_LISP_OBJECT (msprinter_device));
523 &lrecord_msprinter_device);
524 #else /* not NEW_GC */ 522 #else /* not NEW_GC */
525 d->device_data = xnew_and_zero (struct msprinter_device); 523 d->device_data = xnew_and_zero (struct msprinter_device);
526 #endif /* not NEW_GC */ 524 #endif /* not NEW_GC */
527 525
528 DEVICE_INFD (d) = DEVICE_OUTFD (d) = -1; 526 DEVICE_INFD (d) = DEVICE_OUTFD (d) = -1;