Whamcloud - gitweb
LU-1014 mountconf: MGS update timeout upon config update
[fs/lustre-release.git] / lustre / obdclass / class_obd.c
1 /*
2  * GPL HEADER START
3  *
4  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5  *
6  * This program is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License version 2 only,
8  * as published by the Free Software Foundation.
9  *
10  * This program is distributed in the hope that it will be useful, but
11  * WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13  * General Public License version 2 for more details (a copy is included
14  * in the LICENSE file that accompanied this code).
15  *
16  * You should have received a copy of the GNU General Public License
17  * version 2 along with this program; If not, see
18  * http://www.sun.com/software/products/lustre/docs/GPLv2.pdf
19  *
20  * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
21  * CA 95054 USA or visit www.sun.com if you need additional information or
22  * have any questions.
23  *
24  * GPL HEADER END
25  */
26 /*
27  * Copyright (c) 1999, 2010, Oracle and/or its affiliates. All rights reserved.
28  * Use is subject to license terms.
29  *
30  * Copyright (c) 2011, Whamcloud, Inc.
31  */
32 /*
33  * This file is part of Lustre, http://www.lustre.org/
34  * Lustre is a trademark of Sun Microsystems, Inc.
35  */
36
37 #define DEBUG_SUBSYSTEM S_CLASS
38 #ifndef __KERNEL__
39 # include <liblustre.h>
40 #else
41 # include <asm/atomic.h>
42 #endif
43
44 #include <obd_support.h>
45 #include <obd_class.h>
46 #include <lnet/lnetctl.h>
47 #include <lustre_debug.h>
48 #include <lprocfs_status.h>
49 #include <lustre/lustre_build_version.h>
50 #include <libcfs/list.h>
51 #include "llog_internal.h"
52
53 #ifndef __KERNEL__
54 /* liblustre workaround */
55 cfs_atomic_t libcfs_kmemory = {0};
56 #endif
57
58 struct obd_device *obd_devs[MAX_OBD_DEVICES];
59 EXPORT_SYMBOL(obd_devs);
60 cfs_list_t obd_types;
61 DEFINE_RWLOCK(obd_dev_lock);
62
63 #ifndef __KERNEL__
64 __u64 obd_max_pages = 0;
65 __u64 obd_max_alloc = 0;
66 __u64 obd_alloc;
67 __u64 obd_pages;
68 #endif
69
70 /* The following are visible and mutable through /proc/sys/lustre/. */
71 unsigned int obd_debug_peer_on_timeout;
72 EXPORT_SYMBOL(obd_debug_peer_on_timeout);
73 unsigned int obd_dump_on_timeout;
74 EXPORT_SYMBOL(obd_dump_on_timeout);
75 unsigned int obd_dump_on_eviction;
76 EXPORT_SYMBOL(obd_dump_on_eviction);
77 unsigned int obd_max_dirty_pages = 256;
78 EXPORT_SYMBOL(obd_max_dirty_pages);
79 cfs_atomic_t obd_dirty_pages;
80 EXPORT_SYMBOL(obd_dirty_pages);
81 unsigned int obd_timeout = OBD_TIMEOUT_DEFAULT;   /* seconds */
82 EXPORT_SYMBOL(obd_timeout);
83 unsigned int ldlm_timeout = LDLM_TIMEOUT_DEFAULT; /* seconds */
84 EXPORT_SYMBOL(ldlm_timeout);
85 unsigned int obd_timeout_set;
86 EXPORT_SYMBOL(obd_timeout_set);
87 unsigned int ldlm_timeout_set;
88 EXPORT_SYMBOL(ldlm_timeout_set);
89 /* Adaptive timeout defs here instead of ptlrpc module for /proc/sys/ access */
90 unsigned int at_min = 0;
91 EXPORT_SYMBOL(at_min);
92 unsigned int at_max = 600;
93 EXPORT_SYMBOL(at_max);
94 unsigned int at_history = 600;
95 EXPORT_SYMBOL(at_history);
96 int at_early_margin = 5;
97 EXPORT_SYMBOL(at_early_margin);
98 int at_extra = 30;
99 EXPORT_SYMBOL(at_extra);
100
101 cfs_atomic_t obd_dirty_transit_pages;
102 EXPORT_SYMBOL(obd_dirty_transit_pages);
103
104 char obd_jobid_var[JOBSTATS_JOBID_VAR_MAX_LEN + 1] = JOBSTATS_DISABLE;
105 EXPORT_SYMBOL(obd_jobid_var);
106
107 /* Get jobid of current process by reading the environment variable
108  * stored in between the "env_start" & "env_end" of task struct.
109  *
110  * TODO:
111  * It's better to cache the jobid for later use if there is any
112  * efficient way, the cl_env code probably could be reused for this
113  * purpose.
114  *
115  * If some job scheduler doesn't store jobid in the "env_start/end",
116  * then an upcall could be issued here to get the jobid by utilizing
117  * the userspace tools/api. Then, the jobid must be cached.
118  */
119 int lustre_get_jobid(char *jobid)
120 {
121 #ifdef __KERNEL__
122         int jobid_len = JOBSTATS_JOBID_SIZE;
123 #endif
124         int ret = 0;
125         ENTRY;
126
127         memset(jobid, 0, JOBSTATS_JOBID_SIZE);
128         /* Jobstats isn't enabled */
129         if (!memcmp(obd_jobid_var, JOBSTATS_DISABLE,
130                     strlen(JOBSTATS_DISABLE))) {
131                 RETURN(0);
132         }
133
134         /* Use process name + fsuid as jobid */
135         if (!memcmp(obd_jobid_var, JOBSTATS_PROCNAME_UID,
136                     strlen(JOBSTATS_PROCNAME_UID))) {
137                 snprintf(jobid, JOBSTATS_JOBID_SIZE, "%s_%u",
138                          cfs_curproc_comm(), cfs_curproc_fsuid());
139                 RETURN(0);
140         }
141
142 #ifdef __KERNEL__
143         ret = cfs_get_environ(obd_jobid_var, jobid, &jobid_len);
144         if (ret) {
145                 CDEBUG((ret != -ENOENT && ret != -EINVAL && ret != -EDEADLK) ?
146                        D_ERROR : D_INFO, "Get jobid for (%s) failed: rc = %d\n",
147                        obd_jobid_var, ret);
148         }
149 #endif
150         RETURN(ret);
151 }
152 EXPORT_SYMBOL(lustre_get_jobid);
153
154 static inline void obd_data2conn(struct lustre_handle *conn,
155                                  struct obd_ioctl_data *data)
156 {
157         memset(conn, 0, sizeof *conn);
158         conn->cookie = data->ioc_cookie;
159 }
160
161 static inline void obd_conn2data(struct obd_ioctl_data *data,
162                                  struct lustre_handle *conn)
163 {
164         data->ioc_cookie = conn->cookie;
165 }
166
167 int class_resolve_dev_name(__u32 len, const char *name)
168 {
169         int rc;
170         int dev;
171
172         ENTRY;
173         if (!len || !name) {
174                 CERROR("No name passed,!\n");
175                 GOTO(out, rc = -EINVAL);
176         }
177         if (name[len - 1] != 0) {
178                 CERROR("Name not nul terminated!\n");
179                 GOTO(out, rc = -EINVAL);
180         }
181
182         CDEBUG(D_IOCTL, "device name %s\n", name);
183         dev = class_name2dev(name);
184         if (dev == -1) {
185                 CDEBUG(D_IOCTL, "No device for name %s!\n", name);
186                 GOTO(out, rc = -EINVAL);
187         }
188
189         CDEBUG(D_IOCTL, "device name %s, dev %d\n", name, dev);
190         rc = dev;
191
192 out:
193         RETURN(rc);
194 }
195
196 int class_handle_ioctl(unsigned int cmd, unsigned long arg)
197 {
198         char *buf = NULL;
199         struct obd_ioctl_data *data;
200         struct libcfs_debug_ioctl_data *debug_data;
201         struct obd_device *obd = NULL;
202         int err = 0, len = 0;
203         ENTRY;
204
205         /* only for debugging */
206         if (cmd == LIBCFS_IOC_DEBUG_MASK) {
207                 debug_data = (struct libcfs_debug_ioctl_data*)arg;
208                 libcfs_subsystem_debug = debug_data->subs;
209                 libcfs_debug = debug_data->debug;
210                 return 0;
211         }
212
213         CDEBUG(D_IOCTL, "cmd = %x\n", cmd);
214         if (obd_ioctl_getdata(&buf, &len, (void *)arg)) {
215                 CERROR("OBD ioctl: data error\n");
216                 RETURN(-EINVAL);
217         }
218         data = (struct obd_ioctl_data *)buf;
219
220         switch (cmd) {
221         case OBD_IOC_PROCESS_CFG: {
222                 struct lustre_cfg *lcfg;
223
224                 if (!data->ioc_plen1 || !data->ioc_pbuf1) {
225                         CERROR("No config buffer passed!\n");
226                         GOTO(out, err = -EINVAL);
227                 }
228                 OBD_ALLOC(lcfg, data->ioc_plen1);
229                 if (lcfg == NULL)
230                         GOTO(out, err = -ENOMEM);
231                 err = cfs_copy_from_user(lcfg, data->ioc_pbuf1,
232                                          data->ioc_plen1);
233                 if (!err)
234                         err = lustre_cfg_sanity_check(lcfg, data->ioc_plen1);
235                 if (!err)
236                         err = class_process_config(lcfg);
237
238                 OBD_FREE(lcfg, data->ioc_plen1);
239                 GOTO(out, err);
240         }
241
242         case OBD_GET_VERSION:
243                 if (!data->ioc_inlbuf1) {
244                         CERROR("No buffer passed in ioctl\n");
245                         GOTO(out, err = -EINVAL);
246                 }
247
248                 if (strlen(BUILD_VERSION) + 1 > data->ioc_inllen1) {
249                         CERROR("ioctl buffer too small to hold version\n");
250                         GOTO(out, err = -EINVAL);
251                 }
252
253                 memcpy(data->ioc_bulk, BUILD_VERSION,
254                        strlen(BUILD_VERSION) + 1);
255
256                 err = obd_ioctl_popdata((void *)arg, data, len);
257                 if (err)
258                         err = -EFAULT;
259                 GOTO(out, err);
260
261         case OBD_IOC_NAME2DEV: {
262                 /* Resolve a device name.  This does not change the
263                  * currently selected device.
264                  */
265                 int dev;
266
267                 dev = class_resolve_dev_name(data->ioc_inllen1,
268                                              data->ioc_inlbuf1);
269                 data->ioc_dev = dev;
270                 if (dev < 0)
271                         GOTO(out, err = -EINVAL);
272
273                 err = obd_ioctl_popdata((void *)arg, data, sizeof(*data));
274                 if (err)
275                         err = -EFAULT;
276                 GOTO(out, err);
277         }
278
279         case OBD_IOC_UUID2DEV: {
280                 /* Resolve a device uuid.  This does not change the
281                  * currently selected device.
282                  */
283                 int dev;
284                 struct obd_uuid uuid;
285
286                 if (!data->ioc_inllen1 || !data->ioc_inlbuf1) {
287                         CERROR("No UUID passed!\n");
288                         GOTO(out, err = -EINVAL);
289                 }
290                 if (data->ioc_inlbuf1[data->ioc_inllen1 - 1] != 0) {
291                         CERROR("UUID not NUL terminated!\n");
292                         GOTO(out, err = -EINVAL);
293                 }
294
295                 CDEBUG(D_IOCTL, "device name %s\n", data->ioc_inlbuf1);
296                 obd_str2uuid(&uuid, data->ioc_inlbuf1);
297                 dev = class_uuid2dev(&uuid);
298                 data->ioc_dev = dev;
299                 if (dev == -1) {
300                         CDEBUG(D_IOCTL, "No device for UUID %s!\n",
301                                data->ioc_inlbuf1);
302                         GOTO(out, err = -EINVAL);
303                 }
304
305                 CDEBUG(D_IOCTL, "device name %s, dev %d\n", data->ioc_inlbuf1,
306                        dev);
307                 err = obd_ioctl_popdata((void *)arg, data, sizeof(*data));
308                 if (err)
309                         err = -EFAULT;
310                 GOTO(out, err);
311         }
312
313         case OBD_IOC_CLOSE_UUID: {
314                 CDEBUG(D_IOCTL, "closing all connections to uuid %s (NOOP)\n",
315                        data->ioc_inlbuf1);
316                 GOTO(out, err = 0);
317         }
318
319         case OBD_IOC_GETDEVICE: {
320                 int     index = data->ioc_count;
321                 char    *status, *str;
322
323                 if (!data->ioc_inlbuf1) {
324                         CERROR("No buffer passed in ioctl\n");
325                         GOTO(out, err = -EINVAL);
326                 }
327                 if (data->ioc_inllen1 < 128) {
328                         CERROR("ioctl buffer too small to hold version\n");
329                         GOTO(out, err = -EINVAL);
330                 }
331
332                 obd = class_num2obd(index);
333                 if (!obd)
334                         GOTO(out, err = -ENOENT);
335
336                 if (obd->obd_stopping)
337                         status = "ST";
338                 else if (obd->obd_set_up)
339                         status = "UP";
340                 else if (obd->obd_attached)
341                         status = "AT";
342                 else
343                         status = "--";
344                 str = (char *)data->ioc_bulk;
345                 snprintf(str, len - sizeof(*data), "%3d %s %s %s %s %d",
346                          (int)index, status, obd->obd_type->typ_name,
347                          obd->obd_name, obd->obd_uuid.uuid,
348                          cfs_atomic_read(&obd->obd_refcount));
349                 err = obd_ioctl_popdata((void *)arg, data, len);
350
351                 GOTO(out, err = 0);
352         }
353
354         }
355
356         if (data->ioc_dev == OBD_DEV_BY_DEVNAME) {
357                 if (data->ioc_inllen4 <= 0 || data->ioc_inlbuf4 == NULL)
358                         GOTO(out, err = -EINVAL);
359                 if (strnlen(data->ioc_inlbuf4, MAX_OBD_NAME) >= MAX_OBD_NAME)
360                         GOTO(out, err = -EINVAL);
361                 obd = class_name2obd(data->ioc_inlbuf4);
362         } else if (data->ioc_dev < class_devno_max()) {
363                 obd = class_num2obd(data->ioc_dev);
364         } else {
365                 CERROR("OBD ioctl: No device\n");
366                 GOTO(out, err = -EINVAL);
367         }
368
369         if (obd == NULL) {
370                 CERROR("OBD ioctl : No Device %d\n", data->ioc_dev);
371                 GOTO(out, err = -EINVAL);
372         }
373         LASSERT(obd->obd_magic == OBD_DEVICE_MAGIC);
374
375         if (!obd->obd_set_up || obd->obd_stopping) {
376                 CERROR("OBD ioctl: device not setup %d \n", data->ioc_dev);
377                 GOTO(out, err = -EINVAL);
378         }
379
380         switch(cmd) {
381         case OBD_IOC_NO_TRANSNO: {
382                 if (!obd->obd_attached) {
383                         CERROR("Device %d not attached\n", obd->obd_minor);
384                         GOTO(out, err = -ENODEV);
385                 }
386                 CDEBUG(D_HA, "%s: disabling committed-transno notification\n",
387                        obd->obd_name);
388                 obd->obd_no_transno = 1;
389                 GOTO(out, err = 0);
390         }
391
392         default: {
393                 err = obd_iocontrol(cmd, obd->obd_self_export, len, data, NULL);
394                 if (err)
395                         GOTO(out, err);
396
397                 err = obd_ioctl_popdata((void *)arg, data, len);
398                 if (err)
399                         err = -EFAULT;
400                 GOTO(out, err);
401         }
402         }
403
404  out:
405         if (buf)
406                 obd_ioctl_freedata(buf, len);
407         RETURN(err);
408 } /* class_handle_ioctl */
409
410 #ifdef __KERNEL__
411 extern cfs_psdev_t obd_psdev;
412 #else
413 void *obd_psdev = NULL;
414 #endif
415
416 #define OBD_INIT_CHECK
417 #ifdef OBD_INIT_CHECK
418 int obd_init_checks(void)
419 {
420         __u64 u64val, div64val;
421         char buf[64];
422         int len, ret = 0;
423
424         CDEBUG(D_INFO, "LPU64=%s, LPD64=%s, LPX64=%s\n", LPU64, LPD64, LPX64);
425
426         CDEBUG(D_INFO, "OBD_OBJECT_EOF = "LPX64"\n", (__u64)OBD_OBJECT_EOF);
427
428         u64val = OBD_OBJECT_EOF;
429         CDEBUG(D_INFO, "u64val OBD_OBJECT_EOF = "LPX64"\n", u64val);
430         if (u64val != OBD_OBJECT_EOF) {
431                 CERROR("__u64 "LPX64"(%d) != 0xffffffffffffffff\n",
432                        u64val, (int)sizeof(u64val));
433                 ret = -EINVAL;
434         }
435         len = snprintf(buf, sizeof(buf), LPX64, u64val);
436         if (len != 18) {
437                 CWARN("LPX64 wrong length! strlen(%s)=%d != 18\n", buf, len);
438                 ret = -EINVAL;
439         }
440
441         div64val = OBD_OBJECT_EOF;
442         CDEBUG(D_INFO, "u64val OBD_OBJECT_EOF = "LPX64"\n", u64val);
443         if (u64val != OBD_OBJECT_EOF) {
444                 CERROR("__u64 "LPX64"(%d) != 0xffffffffffffffff\n",
445                        u64val, (int)sizeof(u64val));
446                 ret = -EOVERFLOW;
447         }
448         if (u64val >> 8 != OBD_OBJECT_EOF >> 8) {
449                 CERROR("__u64 "LPX64"(%d) != 0xffffffffffffffff\n",
450                        u64val, (int)sizeof(u64val));
451                 return -EOVERFLOW;
452         }
453         if (do_div(div64val, 256) != (u64val & 255)) {
454                 CERROR("do_div("LPX64",256) != "LPU64"\n", u64val, u64val &255);
455                 return -EOVERFLOW;
456         }
457         if (u64val >> 8 != div64val) {
458                 CERROR("do_div("LPX64",256) "LPU64" != "LPU64"\n",
459                        u64val, div64val, u64val >> 8);
460                 return -EOVERFLOW;
461         }
462         len = snprintf(buf, sizeof(buf), LPX64, u64val);
463         if (len != 18) {
464                 CWARN("LPX64 wrong length! strlen(%s)=%d != 18\n", buf, len);
465                 ret = -EINVAL;
466         }
467         len = snprintf(buf, sizeof(buf), LPU64, u64val);
468         if (len != 20) {
469                 CWARN("LPU64 wrong length! strlen(%s)=%d != 20\n", buf, len);
470                 ret = -EINVAL;
471         }
472         len = snprintf(buf, sizeof(buf), LPD64, u64val);
473         if (len != 2) {
474                 CWARN("LPD64 wrong length! strlen(%s)=%d != 2\n", buf, len);
475                 ret = -EINVAL;
476         }
477         if ((u64val & ~CFS_PAGE_MASK) >= CFS_PAGE_SIZE) {
478                 CWARN("mask failed: u64val "LPU64" >= "LPU64"\n", u64val,
479                       (__u64)CFS_PAGE_SIZE);
480                 ret = -EINVAL;
481         }
482
483         return ret;
484 }
485 #else
486 #define obd_init_checks() do {} while(0)
487 #endif
488
489 extern cfs_spinlock_t obd_types_lock;
490 extern int class_procfs_init(void);
491 extern int class_procfs_clean(void);
492
493 #ifdef __KERNEL__
494 static int __init init_obdclass(void)
495 #else
496 int init_obdclass(void)
497 #endif
498 {
499         int i, err;
500 #ifdef __KERNEL__
501         int lustre_register_fs(void);
502
503         for (i = CAPA_SITE_CLIENT; i < CAPA_SITE_MAX; i++)
504                 CFS_INIT_LIST_HEAD(&capa_list[i]);
505 #endif
506
507         LCONSOLE_INFO("Lustre: Build Version: "BUILD_VERSION"\n");
508
509         cfs_spin_lock_init(&obd_types_lock);
510         obd_zombie_impexp_init();
511 #ifdef LPROCFS
512         obd_memory = lprocfs_alloc_stats(OBD_STATS_NUM,
513                                          LPROCFS_STATS_FLAG_NONE |
514                                          LPROCFS_STATS_FLAG_IRQ_SAFE);
515         if (obd_memory == NULL) {
516                 CERROR("kmalloc of 'obd_memory' failed\n");
517                 RETURN(-ENOMEM);
518         }
519
520         lprocfs_counter_init(obd_memory, OBD_MEMORY_STAT,
521                              LPROCFS_CNTR_AVGMINMAX,
522                              "memused", "bytes");
523         lprocfs_counter_init(obd_memory, OBD_MEMORY_PAGES_STAT,
524                              LPROCFS_CNTR_AVGMINMAX,
525                              "pagesused", "pages");
526 #endif
527         err = obd_init_checks();
528         if (err == -EOVERFLOW)
529                 return err;
530
531         class_init_uuidlist();
532         err = class_handle_init();
533         if (err)
534                 return err;
535
536         CFS_INIT_LIST_HEAD(&obd_types);
537
538         err = cfs_psdev_register(&obd_psdev);
539         if (err) {
540                 CERROR("cannot register %d err %d\n", OBD_DEV_MINOR, err);
541                 return err;
542         }
543
544         /* This struct is already zeroed for us (static global) */
545         for (i = 0; i < class_devno_max(); i++)
546                 obd_devs[i] = NULL;
547
548         /* Default the dirty page cache cap to 1/2 of system memory.
549          * For clients with less memory, a larger fraction is needed
550          * for other purposes (mostly for BGL). */
551         if (cfs_num_physpages <= 512 << (20 - CFS_PAGE_SHIFT))
552                 obd_max_dirty_pages = cfs_num_physpages / 4;
553         else
554                 obd_max_dirty_pages = cfs_num_physpages / 2;
555
556         err = obd_init_caches();
557         if (err)
558                 return err;
559 #ifdef __KERNEL__
560         err = class_procfs_init();
561         if (err)
562                 return err;
563 #endif
564
565         err = lu_global_init();
566         if (err)
567                 return err;
568
569 #ifdef __KERNEL__
570         err = lustre_register_fs();
571 #endif
572
573         return err;
574 }
575
576 /* liblustre doesn't call cleanup_obdclass, apparently.  we carry on in this
577  * ifdef to the end of the file to cover module and versioning goo.*/
578 #ifdef __KERNEL__
579 static void cleanup_obdclass(void)
580 {
581         int i;
582         int lustre_unregister_fs(void);
583         __u64 memory_leaked, pages_leaked;
584         __u64 memory_max, pages_max;
585         ENTRY;
586
587         lustre_unregister_fs();
588
589         cfs_psdev_deregister(&obd_psdev);
590         for (i = 0; i < class_devno_max(); i++) {
591                 struct obd_device *obd = class_num2obd(i);
592                 if (obd && obd->obd_set_up &&
593                     OBT(obd) && OBP(obd, detach)) {
594                         /* XXX should this call generic detach otherwise? */
595                         LASSERT(obd->obd_magic == OBD_DEVICE_MAGIC);
596                         OBP(obd, detach)(obd);
597                 }
598         }
599         lu_global_fini();
600
601         obd_cleanup_caches();
602         obd_sysctl_clean();
603
604         class_procfs_clean();
605
606         class_handle_cleanup();
607         class_exit_uuidlist();
608         obd_zombie_impexp_stop();
609
610         memory_leaked = obd_memory_sum();
611         pages_leaked = obd_pages_sum();
612
613         memory_max = obd_memory_max();
614         pages_max = obd_pages_max();
615
616         lprocfs_free_stats(&obd_memory);
617         CDEBUG((memory_leaked) ? D_ERROR : D_INFO,
618                "obd_memory max: "LPU64", leaked: "LPU64"\n",
619                memory_max, memory_leaked);
620         CDEBUG((pages_leaked) ? D_ERROR : D_INFO,
621                "obd_memory_pages max: "LPU64", leaked: "LPU64"\n",
622                pages_max, pages_leaked);
623
624         EXIT;
625 }
626
627 MODULE_AUTHOR("Sun Microsystems, Inc. <http://www.lustre.org/>");
628 MODULE_DESCRIPTION("Lustre Class Driver Build Version: " BUILD_VERSION);
629 MODULE_LICENSE("GPL");
630
631 cfs_module(obdclass, LUSTRE_VERSION_STRING, init_obdclass, cleanup_obdclass);
632 #endif