2 * Block device elevator/IO-scheduler.
4 * Copyright (C) 2000 Andrea Arcangeli <andrea@suse.de> SuSE
6 * 30042000 Jens Axboe <axboe@suse.de> :
8 * Split the elevator a bit so that it is possible to choose a different
9 * one or even write a new "plug in". There are three pieces:
10 * - elevator_fn, inserts a new request in the queue list
11 * - elevator_merge_fn, decides whether a new buffer can be merged with
13 * - elevator_dequeue_fn, called when a request is taken off the active list
15 * 20082000 Dave Jones <davej@suse.de> :
16 * Removed tests for max-bomb-segments, which was breaking elvtune
17 * when run without -bN
20 * - Rework again to work with bio instead of buffer_heads
21 * - loose bi_dev comparisons, partition handling is right now
22 * - completely modularize elevator setup and teardown
25 #include <linux/kernel.h>
27 #include <linux/blkdev.h>
28 #include <linux/elevator.h>
29 #include <linux/bio.h>
30 #include <linux/config.h>
31 #include <linux/module.h>
32 #include <linux/slab.h>
33 #include <linux/init.h>
34 #include <linux/compiler.h>
35 #include <linux/delay.h>
36 #include <linux/blktrace_api.h>
38 #include <asm/uaccess.h>
40 static DEFINE_SPINLOCK(elv_list_lock
);
41 static LIST_HEAD(elv_list
);
44 * can we safely merge with this request?
46 inline int elv_rq_merge_ok(struct request
*rq
, struct bio
*bio
)
48 if (!rq_mergeable(rq
))
52 * different data direction or already started, don't merge
54 if (bio_data_dir(bio
) != rq_data_dir(rq
))
58 * same device and no special stuff set, merge is ok
60 if (rq
->rq_disk
== bio
->bi_bdev
->bd_disk
&&
61 !rq
->waiting
&& !rq
->special
)
66 EXPORT_SYMBOL(elv_rq_merge_ok
);
68 static inline int elv_try_merge(struct request
*__rq
, struct bio
*bio
)
70 int ret
= ELEVATOR_NO_MERGE
;
73 * we can merge and sequence is ok, check if it's possible
75 if (elv_rq_merge_ok(__rq
, bio
)) {
76 if (__rq
->sector
+ __rq
->nr_sectors
== bio
->bi_sector
)
77 ret
= ELEVATOR_BACK_MERGE
;
78 else if (__rq
->sector
- bio_sectors(bio
) == bio
->bi_sector
)
79 ret
= ELEVATOR_FRONT_MERGE
;
85 static struct elevator_type
*elevator_find(const char *name
)
87 struct elevator_type
*e
= NULL
;
88 struct list_head
*entry
;
90 list_for_each(entry
, &elv_list
) {
91 struct elevator_type
*__e
;
93 __e
= list_entry(entry
, struct elevator_type
, list
);
95 if (!strcmp(__e
->elevator_name
, name
)) {
104 static void elevator_put(struct elevator_type
*e
)
106 module_put(e
->elevator_owner
);
109 static struct elevator_type
*elevator_get(const char *name
)
111 struct elevator_type
*e
;
113 spin_lock_irq(&elv_list_lock
);
115 e
= elevator_find(name
);
116 if (e
&& !try_module_get(e
->elevator_owner
))
119 spin_unlock_irq(&elv_list_lock
);
124 static int elevator_attach(request_queue_t
*q
, struct elevator_queue
*eq
)
130 if (eq
->ops
->elevator_init_fn
)
131 ret
= eq
->ops
->elevator_init_fn(q
, eq
);
136 static char chosen_elevator
[16];
138 static int __init
elevator_setup(char *str
)
141 * Be backwards-compatible with previous kernels, so users
142 * won't get the wrong elevator.
144 if (!strcmp(str
, "as"))
145 strcpy(chosen_elevator
, "anticipatory");
147 strncpy(chosen_elevator
, str
, sizeof(chosen_elevator
) - 1);
151 __setup("elevator=", elevator_setup
);
153 static struct kobj_type elv_ktype
;
155 static elevator_t
*elevator_alloc(struct elevator_type
*e
)
157 elevator_t
*eq
= kmalloc(sizeof(elevator_t
), GFP_KERNEL
);
159 memset(eq
, 0, sizeof(*eq
));
161 eq
->elevator_type
= e
;
162 kobject_init(&eq
->kobj
);
163 snprintf(eq
->kobj
.name
, KOBJ_NAME_LEN
, "%s", "iosched");
164 eq
->kobj
.ktype
= &elv_ktype
;
165 mutex_init(&eq
->sysfs_lock
);
172 static void elevator_release(struct kobject
*kobj
)
174 elevator_t
*e
= container_of(kobj
, elevator_t
, kobj
);
175 elevator_put(e
->elevator_type
);
179 int elevator_init(request_queue_t
*q
, char *name
)
181 struct elevator_type
*e
= NULL
;
182 struct elevator_queue
*eq
;
185 INIT_LIST_HEAD(&q
->queue_head
);
186 q
->last_merge
= NULL
;
188 q
->boundary_rq
= NULL
;
190 if (name
&& !(e
= elevator_get(name
)))
193 if (!e
&& *chosen_elevator
&& !(e
= elevator_get(chosen_elevator
)))
194 printk("I/O scheduler %s not found\n", chosen_elevator
);
196 if (!e
&& !(e
= elevator_get(CONFIG_DEFAULT_IOSCHED
))) {
197 printk("Default I/O scheduler not found, using no-op\n");
198 e
= elevator_get("noop");
201 eq
= elevator_alloc(e
);
205 ret
= elevator_attach(q
, eq
);
207 kobject_put(&eq
->kobj
);
212 void elevator_exit(elevator_t
*e
)
214 mutex_lock(&e
->sysfs_lock
);
215 if (e
->ops
->elevator_exit_fn
)
216 e
->ops
->elevator_exit_fn(e
);
218 mutex_unlock(&e
->sysfs_lock
);
220 kobject_put(&e
->kobj
);
224 * Insert rq into dispatch queue of q. Queue lock must be held on
225 * entry. If sort != 0, rq is sort-inserted; otherwise, rq will be
226 * appended to the dispatch queue. To be used by specific elevators.
228 void elv_dispatch_sort(request_queue_t
*q
, struct request
*rq
)
231 struct list_head
*entry
;
233 if (q
->last_merge
== rq
)
234 q
->last_merge
= NULL
;
237 boundary
= q
->end_sector
;
239 list_for_each_prev(entry
, &q
->queue_head
) {
240 struct request
*pos
= list_entry_rq(entry
);
242 if (pos
->flags
& (REQ_SOFTBARRIER
|REQ_HARDBARRIER
|REQ_STARTED
))
244 if (rq
->sector
>= boundary
) {
245 if (pos
->sector
< boundary
)
248 if (pos
->sector
>= boundary
)
251 if (rq
->sector
>= pos
->sector
)
255 list_add(&rq
->queuelist
, entry
);
258 int elv_merge(request_queue_t
*q
, struct request
**req
, struct bio
*bio
)
260 elevator_t
*e
= q
->elevator
;
264 ret
= elv_try_merge(q
->last_merge
, bio
);
265 if (ret
!= ELEVATOR_NO_MERGE
) {
266 *req
= q
->last_merge
;
271 if (e
->ops
->elevator_merge_fn
)
272 return e
->ops
->elevator_merge_fn(q
, req
, bio
);
274 return ELEVATOR_NO_MERGE
;
277 void elv_merged_request(request_queue_t
*q
, struct request
*rq
)
279 elevator_t
*e
= q
->elevator
;
281 if (e
->ops
->elevator_merged_fn
)
282 e
->ops
->elevator_merged_fn(q
, rq
);
287 void elv_merge_requests(request_queue_t
*q
, struct request
*rq
,
288 struct request
*next
)
290 elevator_t
*e
= q
->elevator
;
292 if (e
->ops
->elevator_merge_req_fn
)
293 e
->ops
->elevator_merge_req_fn(q
, rq
, next
);
299 void elv_requeue_request(request_queue_t
*q
, struct request
*rq
)
301 elevator_t
*e
= q
->elevator
;
304 * it already went through dequeue, we need to decrement the
305 * in_flight count again
307 if (blk_account_rq(rq
)) {
309 if (blk_sorted_rq(rq
) && e
->ops
->elevator_deactivate_req_fn
)
310 e
->ops
->elevator_deactivate_req_fn(q
, rq
);
313 rq
->flags
&= ~REQ_STARTED
;
315 elv_insert(q
, rq
, ELEVATOR_INSERT_REQUEUE
);
318 static void elv_drain_elevator(request_queue_t
*q
)
321 while (q
->elevator
->ops
->elevator_dispatch_fn(q
, 1))
323 if (q
->nr_sorted
== 0)
325 if (printed
++ < 10) {
326 printk(KERN_ERR
"%s: forced dispatching is broken "
327 "(nr_sorted=%u), please report this\n",
328 q
->elevator
->elevator_type
->elevator_name
, q
->nr_sorted
);
332 void elv_insert(request_queue_t
*q
, struct request
*rq
, int where
)
334 struct list_head
*pos
;
337 blk_add_trace_rq(q
, rq
, BLK_TA_INSERT
);
342 case ELEVATOR_INSERT_FRONT
:
343 rq
->flags
|= REQ_SOFTBARRIER
;
345 list_add(&rq
->queuelist
, &q
->queue_head
);
348 case ELEVATOR_INSERT_BACK
:
349 rq
->flags
|= REQ_SOFTBARRIER
;
350 elv_drain_elevator(q
);
351 list_add_tail(&rq
->queuelist
, &q
->queue_head
);
353 * We kick the queue here for the following reasons.
354 * - The elevator might have returned NULL previously
355 * to delay requests and returned them now. As the
356 * queue wasn't empty before this request, ll_rw_blk
357 * won't run the queue on return, resulting in hang.
358 * - Usually, back inserted requests won't be merged
359 * with anything. There's no point in delaying queue
366 case ELEVATOR_INSERT_SORT
:
367 BUG_ON(!blk_fs_request(rq
));
368 rq
->flags
|= REQ_SORTED
;
370 if (q
->last_merge
== NULL
&& rq_mergeable(rq
))
373 * Some ioscheds (cfq) run q->request_fn directly, so
374 * rq cannot be accessed after calling
375 * elevator_add_req_fn.
377 q
->elevator
->ops
->elevator_add_req_fn(q
, rq
);
380 case ELEVATOR_INSERT_REQUEUE
:
382 * If ordered flush isn't in progress, we do front
383 * insertion; otherwise, requests should be requeued
386 rq
->flags
|= REQ_SOFTBARRIER
;
388 if (q
->ordseq
== 0) {
389 list_add(&rq
->queuelist
, &q
->queue_head
);
393 ordseq
= blk_ordered_req_seq(rq
);
395 list_for_each(pos
, &q
->queue_head
) {
396 struct request
*pos_rq
= list_entry_rq(pos
);
397 if (ordseq
<= blk_ordered_req_seq(pos_rq
))
401 list_add_tail(&rq
->queuelist
, pos
);
405 printk(KERN_ERR
"%s: bad insertion point %d\n",
406 __FUNCTION__
, where
);
410 if (blk_queue_plugged(q
)) {
411 int nrq
= q
->rq
.count
[READ
] + q
->rq
.count
[WRITE
]
414 if (nrq
>= q
->unplug_thresh
)
415 __generic_unplug_device(q
);
419 void __elv_add_request(request_queue_t
*q
, struct request
*rq
, int where
,
423 rq
->flags
|= REQ_ORDERED_COLOR
;
425 if (rq
->flags
& (REQ_SOFTBARRIER
| REQ_HARDBARRIER
)) {
427 * toggle ordered color
429 if (blk_barrier_rq(rq
))
433 * barriers implicitly indicate back insertion
435 if (where
== ELEVATOR_INSERT_SORT
)
436 where
= ELEVATOR_INSERT_BACK
;
439 * this request is scheduling boundary, update
442 if (blk_fs_request(rq
)) {
443 q
->end_sector
= rq_end_sector(rq
);
446 } else if (!(rq
->flags
& REQ_ELVPRIV
) && where
== ELEVATOR_INSERT_SORT
)
447 where
= ELEVATOR_INSERT_BACK
;
452 elv_insert(q
, rq
, where
);
455 void elv_add_request(request_queue_t
*q
, struct request
*rq
, int where
,
460 spin_lock_irqsave(q
->queue_lock
, flags
);
461 __elv_add_request(q
, rq
, where
, plug
);
462 spin_unlock_irqrestore(q
->queue_lock
, flags
);
465 static inline struct request
*__elv_next_request(request_queue_t
*q
)
470 while (!list_empty(&q
->queue_head
)) {
471 rq
= list_entry_rq(q
->queue_head
.next
);
472 if (blk_do_ordered(q
, &rq
))
476 if (!q
->elevator
->ops
->elevator_dispatch_fn(q
, 0))
481 struct request
*elv_next_request(request_queue_t
*q
)
486 while ((rq
= __elv_next_request(q
)) != NULL
) {
487 if (!(rq
->flags
& REQ_STARTED
)) {
488 elevator_t
*e
= q
->elevator
;
491 * This is the first time the device driver
492 * sees this request (possibly after
493 * requeueing). Notify IO scheduler.
495 if (blk_sorted_rq(rq
) &&
496 e
->ops
->elevator_activate_req_fn
)
497 e
->ops
->elevator_activate_req_fn(q
, rq
);
500 * just mark as started even if we don't start
501 * it, a request that has been delayed should
502 * not be passed by new incoming requests
504 rq
->flags
|= REQ_STARTED
;
505 blk_add_trace_rq(q
, rq
, BLK_TA_ISSUE
);
508 if (!q
->boundary_rq
|| q
->boundary_rq
== rq
) {
509 q
->end_sector
= rq_end_sector(rq
);
510 q
->boundary_rq
= NULL
;
513 if ((rq
->flags
& REQ_DONTPREP
) || !q
->prep_rq_fn
)
516 ret
= q
->prep_rq_fn(q
, rq
);
517 if (ret
== BLKPREP_OK
) {
519 } else if (ret
== BLKPREP_DEFER
) {
521 * the request may have been (partially) prepped.
522 * we need to keep this request in the front to
523 * avoid resource deadlock. REQ_STARTED will
524 * prevent other fs requests from passing this one.
528 } else if (ret
== BLKPREP_KILL
) {
529 int nr_bytes
= rq
->hard_nr_sectors
<< 9;
532 nr_bytes
= rq
->data_len
;
534 blkdev_dequeue_request(rq
);
535 rq
->flags
|= REQ_QUIET
;
536 end_that_request_chunk(rq
, 0, nr_bytes
);
537 end_that_request_last(rq
, 0);
539 printk(KERN_ERR
"%s: bad return=%d\n", __FUNCTION__
,
548 void elv_dequeue_request(request_queue_t
*q
, struct request
*rq
)
550 BUG_ON(list_empty(&rq
->queuelist
));
552 list_del_init(&rq
->queuelist
);
555 * the time frame between a request being removed from the lists
556 * and to it is freed is accounted as io that is in progress at
559 if (blk_account_rq(rq
))
563 int elv_queue_empty(request_queue_t
*q
)
565 elevator_t
*e
= q
->elevator
;
567 if (!list_empty(&q
->queue_head
))
570 if (e
->ops
->elevator_queue_empty_fn
)
571 return e
->ops
->elevator_queue_empty_fn(q
);
576 struct request
*elv_latter_request(request_queue_t
*q
, struct request
*rq
)
578 elevator_t
*e
= q
->elevator
;
580 if (e
->ops
->elevator_latter_req_fn
)
581 return e
->ops
->elevator_latter_req_fn(q
, rq
);
585 struct request
*elv_former_request(request_queue_t
*q
, struct request
*rq
)
587 elevator_t
*e
= q
->elevator
;
589 if (e
->ops
->elevator_former_req_fn
)
590 return e
->ops
->elevator_former_req_fn(q
, rq
);
594 int elv_set_request(request_queue_t
*q
, struct request
*rq
, struct bio
*bio
,
597 elevator_t
*e
= q
->elevator
;
599 if (e
->ops
->elevator_set_req_fn
)
600 return e
->ops
->elevator_set_req_fn(q
, rq
, bio
, gfp_mask
);
602 rq
->elevator_private
= NULL
;
606 void elv_put_request(request_queue_t
*q
, struct request
*rq
)
608 elevator_t
*e
= q
->elevator
;
610 if (e
->ops
->elevator_put_req_fn
)
611 e
->ops
->elevator_put_req_fn(q
, rq
);
614 int elv_may_queue(request_queue_t
*q
, int rw
, struct bio
*bio
)
616 elevator_t
*e
= q
->elevator
;
618 if (e
->ops
->elevator_may_queue_fn
)
619 return e
->ops
->elevator_may_queue_fn(q
, rw
, bio
);
621 return ELV_MQUEUE_MAY
;
624 void elv_completed_request(request_queue_t
*q
, struct request
*rq
)
626 elevator_t
*e
= q
->elevator
;
629 * request is released from the driver, io must be done
631 if (blk_account_rq(rq
)) {
633 if (blk_sorted_rq(rq
) && e
->ops
->elevator_completed_req_fn
)
634 e
->ops
->elevator_completed_req_fn(q
, rq
);
638 * Check if the queue is waiting for fs requests to be
639 * drained for flush sequence.
641 if (unlikely(q
->ordseq
)) {
642 struct request
*first_rq
= list_entry_rq(q
->queue_head
.next
);
643 if (q
->in_flight
== 0 &&
644 blk_ordered_cur_seq(q
) == QUEUE_ORDSEQ_DRAIN
&&
645 blk_ordered_req_seq(first_rq
) > QUEUE_ORDSEQ_DRAIN
) {
646 blk_ordered_complete_seq(q
, QUEUE_ORDSEQ_DRAIN
, 0);
652 #define to_elv(atr) container_of((atr), struct elv_fs_entry, attr)
655 elv_attr_show(struct kobject
*kobj
, struct attribute
*attr
, char *page
)
657 elevator_t
*e
= container_of(kobj
, elevator_t
, kobj
);
658 struct elv_fs_entry
*entry
= to_elv(attr
);
664 mutex_lock(&e
->sysfs_lock
);
665 error
= e
->ops
? entry
->show(e
, page
) : -ENOENT
;
666 mutex_unlock(&e
->sysfs_lock
);
671 elv_attr_store(struct kobject
*kobj
, struct attribute
*attr
,
672 const char *page
, size_t length
)
674 elevator_t
*e
= container_of(kobj
, elevator_t
, kobj
);
675 struct elv_fs_entry
*entry
= to_elv(attr
);
681 mutex_lock(&e
->sysfs_lock
);
682 error
= e
->ops
? entry
->store(e
, page
, length
) : -ENOENT
;
683 mutex_unlock(&e
->sysfs_lock
);
687 static struct sysfs_ops elv_sysfs_ops
= {
688 .show
= elv_attr_show
,
689 .store
= elv_attr_store
,
692 static struct kobj_type elv_ktype
= {
693 .sysfs_ops
= &elv_sysfs_ops
,
694 .release
= elevator_release
,
697 int elv_register_queue(struct request_queue
*q
)
699 elevator_t
*e
= q
->elevator
;
702 e
->kobj
.parent
= &q
->kobj
;
704 error
= kobject_add(&e
->kobj
);
706 struct elv_fs_entry
*attr
= e
->elevator_type
->elevator_attrs
;
708 while (attr
->attr
.name
) {
709 if (sysfs_create_file(&e
->kobj
, &attr
->attr
))
714 kobject_uevent(&e
->kobj
, KOBJ_ADD
);
719 void elv_unregister_queue(struct request_queue
*q
)
722 elevator_t
*e
= q
->elevator
;
723 kobject_uevent(&e
->kobj
, KOBJ_REMOVE
);
724 kobject_del(&e
->kobj
);
728 int elv_register(struct elevator_type
*e
)
730 spin_lock_irq(&elv_list_lock
);
731 BUG_ON(elevator_find(e
->elevator_name
));
732 list_add_tail(&e
->list
, &elv_list
);
733 spin_unlock_irq(&elv_list_lock
);
735 printk(KERN_INFO
"io scheduler %s registered", e
->elevator_name
);
736 if (!strcmp(e
->elevator_name
, chosen_elevator
) ||
737 (!*chosen_elevator
&&
738 !strcmp(e
->elevator_name
, CONFIG_DEFAULT_IOSCHED
)))
739 printk(" (default)");
743 EXPORT_SYMBOL_GPL(elv_register
);
745 void elv_unregister(struct elevator_type
*e
)
747 struct task_struct
*g
, *p
;
750 * Iterate every thread in the process to remove the io contexts.
753 read_lock(&tasklist_lock
);
754 do_each_thread(g
, p
) {
756 e
->ops
.trim(p
->io_context
);
758 } while_each_thread(g
, p
);
759 read_unlock(&tasklist_lock
);
762 spin_lock_irq(&elv_list_lock
);
763 list_del_init(&e
->list
);
764 spin_unlock_irq(&elv_list_lock
);
766 EXPORT_SYMBOL_GPL(elv_unregister
);
769 * switch to new_e io scheduler. be careful not to introduce deadlocks -
770 * we don't free the old io scheduler, before we have allocated what we
771 * need for the new one. this way we have a chance of going back to the old
772 * one, if the new one fails init for some reason.
774 static int elevator_switch(request_queue_t
*q
, struct elevator_type
*new_e
)
776 elevator_t
*old_elevator
, *e
;
779 * Allocate new elevator
781 e
= elevator_alloc(new_e
);
786 * Turn on BYPASS and drain all requests w/ elevator private data
788 spin_lock_irq(q
->queue_lock
);
790 set_bit(QUEUE_FLAG_ELVSWITCH
, &q
->queue_flags
);
792 elv_drain_elevator(q
);
794 while (q
->rq
.elvpriv
) {
797 spin_unlock_irq(q
->queue_lock
);
799 spin_lock_irq(q
->queue_lock
);
800 elv_drain_elevator(q
);
803 spin_unlock_irq(q
->queue_lock
);
806 * unregister old elevator data
808 elv_unregister_queue(q
);
809 old_elevator
= q
->elevator
;
812 * attach and start new elevator
814 if (elevator_attach(q
, e
))
817 if (elv_register_queue(q
))
821 * finally exit old elevator and turn off BYPASS.
823 elevator_exit(old_elevator
);
824 clear_bit(QUEUE_FLAG_ELVSWITCH
, &q
->queue_flags
);
829 * switch failed, exit the new io scheduler and reattach the old
830 * one again (along with re-adding the sysfs dir)
835 q
->elevator
= old_elevator
;
836 elv_register_queue(q
);
837 clear_bit(QUEUE_FLAG_ELVSWITCH
, &q
->queue_flags
);
839 kobject_put(&e
->kobj
);
843 ssize_t
elv_iosched_store(request_queue_t
*q
, const char *name
, size_t count
)
845 char elevator_name
[ELV_NAME_MAX
];
847 struct elevator_type
*e
;
849 elevator_name
[sizeof(elevator_name
) - 1] = '\0';
850 strncpy(elevator_name
, name
, sizeof(elevator_name
) - 1);
851 len
= strlen(elevator_name
);
853 if (len
&& elevator_name
[len
- 1] == '\n')
854 elevator_name
[len
- 1] = '\0';
856 e
= elevator_get(elevator_name
);
858 printk(KERN_ERR
"elevator: type %s not found\n", elevator_name
);
862 if (!strcmp(elevator_name
, q
->elevator
->elevator_type
->elevator_name
)) {
867 if (!elevator_switch(q
, e
))
868 printk(KERN_ERR
"elevator: switch to %s failed\n",elevator_name
);
872 ssize_t
elv_iosched_show(request_queue_t
*q
, char *name
)
874 elevator_t
*e
= q
->elevator
;
875 struct elevator_type
*elv
= e
->elevator_type
;
876 struct list_head
*entry
;
879 spin_lock_irq(q
->queue_lock
);
880 list_for_each(entry
, &elv_list
) {
881 struct elevator_type
*__e
;
883 __e
= list_entry(entry
, struct elevator_type
, list
);
884 if (!strcmp(elv
->elevator_name
, __e
->elevator_name
))
885 len
+= sprintf(name
+len
, "[%s] ", elv
->elevator_name
);
887 len
+= sprintf(name
+len
, "%s ", __e
->elevator_name
);
889 spin_unlock_irq(q
->queue_lock
);
891 len
+= sprintf(len
+name
, "\n");
895 EXPORT_SYMBOL(elv_dispatch_sort
);
896 EXPORT_SYMBOL(elv_add_request
);
897 EXPORT_SYMBOL(__elv_add_request
);
898 EXPORT_SYMBOL(elv_next_request
);
899 EXPORT_SYMBOL(elv_dequeue_request
);
900 EXPORT_SYMBOL(elv_queue_empty
);
901 EXPORT_SYMBOL(elevator_exit
);
902 EXPORT_SYMBOL(elevator_init
);