X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fdevice.c;h=a6b751f32ab17a8956f7f9ca63495a0f7ce01950;hb=976b002b16336930724ae22476014583ad022e7d;hp=4c1feab3b561ebce68210e496aca09e5d8378443;hpb=eb1f7fa6e0f89ff92b86f02c7cbdee048edd8b0d;p=chise%2Fxemacs-chise.git-

diff --git a/src/device.c b/src/device.c
index 4c1feab..a6b751f 100644
--- a/src/device.c
+++ b/src/device.c
@@ -166,7 +166,7 @@ static struct device *
 allocate_device (Lisp_Object console)
 {
   Lisp_Object device;
-  struct device *d = alloc_lcrecord_type (struct device, lrecord_device);
+  struct device *d = alloc_lcrecord_type (struct device, &lrecord_device);
   struct gcpro gcpro1;
 
   zero_lcrecord (d);