blk-mq: pass hctx to blk_mq_dispatch_rq_list
[platform/kernel/linux-starfive.git] / block / blk-mq-sched.c
1 // SPDX-License-Identifier: GPL-2.0
2 /*
3  * blk-mq scheduling framework
4  *
5  * Copyright (C) 2016 Jens Axboe
6  */
7 #include <linux/kernel.h>
8 #include <linux/module.h>
9 #include <linux/blk-mq.h>
10
11 #include <trace/events/block.h>
12
13 #include "blk.h"
14 #include "blk-mq.h"
15 #include "blk-mq-debugfs.h"
16 #include "blk-mq-sched.h"
17 #include "blk-mq-tag.h"
18 #include "blk-wbt.h"
19
20 void blk_mq_sched_free_hctx_data(struct request_queue *q,
21                                  void (*exit)(struct blk_mq_hw_ctx *))
22 {
23         struct blk_mq_hw_ctx *hctx;
24         int i;
25
26         queue_for_each_hw_ctx(q, hctx, i) {
27                 if (exit && hctx->sched_data)
28                         exit(hctx);
29                 kfree(hctx->sched_data);
30                 hctx->sched_data = NULL;
31         }
32 }
33 EXPORT_SYMBOL_GPL(blk_mq_sched_free_hctx_data);
34
35 void blk_mq_sched_assign_ioc(struct request *rq)
36 {
37         struct request_queue *q = rq->q;
38         struct io_context *ioc;
39         struct io_cq *icq;
40
41         /*
42          * May not have an IO context if it's a passthrough request
43          */
44         ioc = current->io_context;
45         if (!ioc)
46                 return;
47
48         spin_lock_irq(&q->queue_lock);
49         icq = ioc_lookup_icq(ioc, q);
50         spin_unlock_irq(&q->queue_lock);
51
52         if (!icq) {
53                 icq = ioc_create_icq(ioc, q, GFP_ATOMIC);
54                 if (!icq)
55                         return;
56         }
57         get_io_context(icq->ioc);
58         rq->elv.icq = icq;
59 }
60
61 /*
62  * Mark a hardware queue as needing a restart. For shared queues, maintain
63  * a count of how many hardware queues are marked for restart.
64  */
65 void blk_mq_sched_mark_restart_hctx(struct blk_mq_hw_ctx *hctx)
66 {
67         if (test_bit(BLK_MQ_S_SCHED_RESTART, &hctx->state))
68                 return;
69
70         set_bit(BLK_MQ_S_SCHED_RESTART, &hctx->state);
71 }
72 EXPORT_SYMBOL_GPL(blk_mq_sched_mark_restart_hctx);
73
74 void blk_mq_sched_restart(struct blk_mq_hw_ctx *hctx)
75 {
76         if (!test_bit(BLK_MQ_S_SCHED_RESTART, &hctx->state))
77                 return;
78         clear_bit(BLK_MQ_S_SCHED_RESTART, &hctx->state);
79
80         blk_mq_run_hw_queue(hctx, true);
81 }
82
83 #define BLK_MQ_BUDGET_DELAY     3               /* ms units */
84
85 /*
86  * Only SCSI implements .get_budget and .put_budget, and SCSI restarts
87  * its queue by itself in its completion handler, so we don't need to
88  * restart queue if .get_budget() returns BLK_STS_NO_RESOURCE.
89  *
90  * Returns -EAGAIN if hctx->dispatch was found non-empty and run_work has to
91  * be run again.  This is necessary to avoid starving flushes.
92  */
93 static int blk_mq_do_dispatch_sched(struct blk_mq_hw_ctx *hctx)
94 {
95         struct request_queue *q = hctx->queue;
96         struct elevator_queue *e = q->elevator;
97         LIST_HEAD(rq_list);
98         int ret = 0;
99         struct request *rq;
100
101         do {
102                 if (e->type->ops.has_work && !e->type->ops.has_work(hctx))
103                         break;
104
105                 if (!list_empty_careful(&hctx->dispatch)) {
106                         ret = -EAGAIN;
107                         break;
108                 }
109
110                 if (!blk_mq_get_dispatch_budget(q))
111                         break;
112
113                 rq = e->type->ops.dispatch_request(hctx);
114                 if (!rq) {
115                         blk_mq_put_dispatch_budget(q);
116                         /*
117                          * We're releasing without dispatching. Holding the
118                          * budget could have blocked any "hctx"s with the
119                          * same queue and if we didn't dispatch then there's
120                          * no guarantee anyone will kick the queue.  Kick it
121                          * ourselves.
122                          */
123                         blk_mq_delay_run_hw_queues(q, BLK_MQ_BUDGET_DELAY);
124                         break;
125                 }
126
127                 /*
128                  * Now this rq owns the budget which has to be released
129                  * if this rq won't be queued to driver via .queue_rq()
130                  * in blk_mq_dispatch_rq_list().
131                  */
132                 list_add(&rq->queuelist, &rq_list);
133         } while (blk_mq_dispatch_rq_list(rq->mq_hctx, &rq_list, true));
134
135         return ret;
136 }
137
138 static struct blk_mq_ctx *blk_mq_next_ctx(struct blk_mq_hw_ctx *hctx,
139                                           struct blk_mq_ctx *ctx)
140 {
141         unsigned short idx = ctx->index_hw[hctx->type];
142
143         if (++idx == hctx->nr_ctx)
144                 idx = 0;
145
146         return hctx->ctxs[idx];
147 }
148
149 /*
150  * Only SCSI implements .get_budget and .put_budget, and SCSI restarts
151  * its queue by itself in its completion handler, so we don't need to
152  * restart queue if .get_budget() returns BLK_STS_NO_RESOURCE.
153  *
154  * Returns -EAGAIN if hctx->dispatch was found non-empty and run_work has to
155  * to be run again.  This is necessary to avoid starving flushes.
156  */
157 static int blk_mq_do_dispatch_ctx(struct blk_mq_hw_ctx *hctx)
158 {
159         struct request_queue *q = hctx->queue;
160         LIST_HEAD(rq_list);
161         struct blk_mq_ctx *ctx = READ_ONCE(hctx->dispatch_from);
162         int ret = 0;
163         struct request *rq;
164
165         do {
166                 if (!list_empty_careful(&hctx->dispatch)) {
167                         ret = -EAGAIN;
168                         break;
169                 }
170
171                 if (!sbitmap_any_bit_set(&hctx->ctx_map))
172                         break;
173
174                 if (!blk_mq_get_dispatch_budget(q))
175                         break;
176
177                 rq = blk_mq_dequeue_from_ctx(hctx, ctx);
178                 if (!rq) {
179                         blk_mq_put_dispatch_budget(q);
180                         /*
181                          * We're releasing without dispatching. Holding the
182                          * budget could have blocked any "hctx"s with the
183                          * same queue and if we didn't dispatch then there's
184                          * no guarantee anyone will kick the queue.  Kick it
185                          * ourselves.
186                          */
187                         blk_mq_delay_run_hw_queues(q, BLK_MQ_BUDGET_DELAY);
188                         break;
189                 }
190
191                 /*
192                  * Now this rq owns the budget which has to be released
193                  * if this rq won't be queued to driver via .queue_rq()
194                  * in blk_mq_dispatch_rq_list().
195                  */
196                 list_add(&rq->queuelist, &rq_list);
197
198                 /* round robin for fair dispatch */
199                 ctx = blk_mq_next_ctx(hctx, rq->mq_ctx);
200
201         } while (blk_mq_dispatch_rq_list(rq->mq_hctx, &rq_list, true));
202
203         WRITE_ONCE(hctx->dispatch_from, ctx);
204         return ret;
205 }
206
207 static int __blk_mq_sched_dispatch_requests(struct blk_mq_hw_ctx *hctx)
208 {
209         struct request_queue *q = hctx->queue;
210         struct elevator_queue *e = q->elevator;
211         const bool has_sched_dispatch = e && e->type->ops.dispatch_request;
212         int ret = 0;
213         LIST_HEAD(rq_list);
214
215         /*
216          * If we have previous entries on our dispatch list, grab them first for
217          * more fair dispatch.
218          */
219         if (!list_empty_careful(&hctx->dispatch)) {
220                 spin_lock(&hctx->lock);
221                 if (!list_empty(&hctx->dispatch))
222                         list_splice_init(&hctx->dispatch, &rq_list);
223                 spin_unlock(&hctx->lock);
224         }
225
226         /*
227          * Only ask the scheduler for requests, if we didn't have residual
228          * requests from the dispatch list. This is to avoid the case where
229          * we only ever dispatch a fraction of the requests available because
230          * of low device queue depth. Once we pull requests out of the IO
231          * scheduler, we can no longer merge or sort them. So it's best to
232          * leave them there for as long as we can. Mark the hw queue as
233          * needing a restart in that case.
234          *
235          * We want to dispatch from the scheduler if there was nothing
236          * on the dispatch list or we were able to dispatch from the
237          * dispatch list.
238          */
239         if (!list_empty(&rq_list)) {
240                 blk_mq_sched_mark_restart_hctx(hctx);
241                 if (blk_mq_dispatch_rq_list(hctx, &rq_list, false)) {
242                         if (has_sched_dispatch)
243                                 ret = blk_mq_do_dispatch_sched(hctx);
244                         else
245                                 ret = blk_mq_do_dispatch_ctx(hctx);
246                 }
247         } else if (has_sched_dispatch) {
248                 ret = blk_mq_do_dispatch_sched(hctx);
249         } else if (hctx->dispatch_busy) {
250                 /* dequeue request one by one from sw queue if queue is busy */
251                 ret = blk_mq_do_dispatch_ctx(hctx);
252         } else {
253                 blk_mq_flush_busy_ctxs(hctx, &rq_list);
254                 blk_mq_dispatch_rq_list(hctx, &rq_list, false);
255         }
256
257         return ret;
258 }
259
260 void blk_mq_sched_dispatch_requests(struct blk_mq_hw_ctx *hctx)
261 {
262         struct request_queue *q = hctx->queue;
263
264         /* RCU or SRCU read lock is needed before checking quiesced flag */
265         if (unlikely(blk_mq_hctx_stopped(hctx) || blk_queue_quiesced(q)))
266                 return;
267
268         hctx->run++;
269
270         /*
271          * A return of -EAGAIN is an indication that hctx->dispatch is not
272          * empty and we must run again in order to avoid starving flushes.
273          */
274         if (__blk_mq_sched_dispatch_requests(hctx) == -EAGAIN) {
275                 if (__blk_mq_sched_dispatch_requests(hctx) == -EAGAIN)
276                         blk_mq_run_hw_queue(hctx, true);
277         }
278 }
279
280 bool blk_mq_sched_try_merge(struct request_queue *q, struct bio *bio,
281                 unsigned int nr_segs, struct request **merged_request)
282 {
283         struct request *rq;
284
285         switch (elv_merge(q, &rq, bio)) {
286         case ELEVATOR_BACK_MERGE:
287                 if (!blk_mq_sched_allow_merge(q, rq, bio))
288                         return false;
289                 if (!bio_attempt_back_merge(rq, bio, nr_segs))
290                         return false;
291                 *merged_request = attempt_back_merge(q, rq);
292                 if (!*merged_request)
293                         elv_merged_request(q, rq, ELEVATOR_BACK_MERGE);
294                 return true;
295         case ELEVATOR_FRONT_MERGE:
296                 if (!blk_mq_sched_allow_merge(q, rq, bio))
297                         return false;
298                 if (!bio_attempt_front_merge(rq, bio, nr_segs))
299                         return false;
300                 *merged_request = attempt_front_merge(q, rq);
301                 if (!*merged_request)
302                         elv_merged_request(q, rq, ELEVATOR_FRONT_MERGE);
303                 return true;
304         case ELEVATOR_DISCARD_MERGE:
305                 return bio_attempt_discard_merge(q, rq, bio);
306         default:
307                 return false;
308         }
309 }
310 EXPORT_SYMBOL_GPL(blk_mq_sched_try_merge);
311
312 /*
313  * Iterate list of requests and see if we can merge this bio with any
314  * of them.
315  */
316 bool blk_mq_bio_list_merge(struct request_queue *q, struct list_head *list,
317                            struct bio *bio, unsigned int nr_segs)
318 {
319         struct request *rq;
320         int checked = 8;
321
322         list_for_each_entry_reverse(rq, list, queuelist) {
323                 bool merged = false;
324
325                 if (!checked--)
326                         break;
327
328                 if (!blk_rq_merge_ok(rq, bio))
329                         continue;
330
331                 switch (blk_try_merge(rq, bio)) {
332                 case ELEVATOR_BACK_MERGE:
333                         if (blk_mq_sched_allow_merge(q, rq, bio))
334                                 merged = bio_attempt_back_merge(rq, bio,
335                                                 nr_segs);
336                         break;
337                 case ELEVATOR_FRONT_MERGE:
338                         if (blk_mq_sched_allow_merge(q, rq, bio))
339                                 merged = bio_attempt_front_merge(rq, bio,
340                                                 nr_segs);
341                         break;
342                 case ELEVATOR_DISCARD_MERGE:
343                         merged = bio_attempt_discard_merge(q, rq, bio);
344                         break;
345                 default:
346                         continue;
347                 }
348
349                 return merged;
350         }
351
352         return false;
353 }
354 EXPORT_SYMBOL_GPL(blk_mq_bio_list_merge);
355
356 /*
357  * Reverse check our software queue for entries that we could potentially
358  * merge with. Currently includes a hand-wavy stop count of 8, to not spend
359  * too much time checking for merges.
360  */
361 static bool blk_mq_attempt_merge(struct request_queue *q,
362                                  struct blk_mq_hw_ctx *hctx,
363                                  struct blk_mq_ctx *ctx, struct bio *bio,
364                                  unsigned int nr_segs)
365 {
366         enum hctx_type type = hctx->type;
367
368         lockdep_assert_held(&ctx->lock);
369
370         if (blk_mq_bio_list_merge(q, &ctx->rq_lists[type], bio, nr_segs)) {
371                 ctx->rq_merged++;
372                 return true;
373         }
374
375         return false;
376 }
377
378 bool __blk_mq_sched_bio_merge(struct request_queue *q, struct bio *bio,
379                 unsigned int nr_segs)
380 {
381         struct elevator_queue *e = q->elevator;
382         struct blk_mq_ctx *ctx = blk_mq_get_ctx(q);
383         struct blk_mq_hw_ctx *hctx = blk_mq_map_queue(q, bio->bi_opf, ctx);
384         bool ret = false;
385         enum hctx_type type;
386
387         if (e && e->type->ops.bio_merge)
388                 return e->type->ops.bio_merge(hctx, bio, nr_segs);
389
390         type = hctx->type;
391         if ((hctx->flags & BLK_MQ_F_SHOULD_MERGE) &&
392                         !list_empty_careful(&ctx->rq_lists[type])) {
393                 /* default per sw-queue merge */
394                 spin_lock(&ctx->lock);
395                 ret = blk_mq_attempt_merge(q, hctx, ctx, bio, nr_segs);
396                 spin_unlock(&ctx->lock);
397         }
398
399         return ret;
400 }
401
402 bool blk_mq_sched_try_insert_merge(struct request_queue *q, struct request *rq)
403 {
404         return rq_mergeable(rq) && elv_attempt_insert_merge(q, rq);
405 }
406 EXPORT_SYMBOL_GPL(blk_mq_sched_try_insert_merge);
407
408 void blk_mq_sched_request_inserted(struct request *rq)
409 {
410         trace_block_rq_insert(rq->q, rq);
411 }
412 EXPORT_SYMBOL_GPL(blk_mq_sched_request_inserted);
413
414 static bool blk_mq_sched_bypass_insert(struct blk_mq_hw_ctx *hctx,
415                                        bool has_sched,
416                                        struct request *rq)
417 {
418         /*
419          * dispatch flush and passthrough rq directly
420          *
421          * passthrough request has to be added to hctx->dispatch directly.
422          * For some reason, device may be in one situation which can't
423          * handle FS request, so STS_RESOURCE is always returned and the
424          * FS request will be added to hctx->dispatch. However passthrough
425          * request may be required at that time for fixing the problem. If
426          * passthrough request is added to scheduler queue, there isn't any
427          * chance to dispatch it given we prioritize requests in hctx->dispatch.
428          */
429         if ((rq->rq_flags & RQF_FLUSH_SEQ) || blk_rq_is_passthrough(rq))
430                 return true;
431
432         if (has_sched)
433                 rq->rq_flags |= RQF_SORTED;
434
435         return false;
436 }
437
438 void blk_mq_sched_insert_request(struct request *rq, bool at_head,
439                                  bool run_queue, bool async)
440 {
441         struct request_queue *q = rq->q;
442         struct elevator_queue *e = q->elevator;
443         struct blk_mq_ctx *ctx = rq->mq_ctx;
444         struct blk_mq_hw_ctx *hctx = rq->mq_hctx;
445
446         /* flush rq in flush machinery need to be dispatched directly */
447         if (!(rq->rq_flags & RQF_FLUSH_SEQ) && op_is_flush(rq->cmd_flags)) {
448                 blk_insert_flush(rq);
449                 goto run;
450         }
451
452         WARN_ON(e && (rq->tag != -1));
453
454         if (blk_mq_sched_bypass_insert(hctx, !!e, rq)) {
455                 /*
456                  * Firstly normal IO request is inserted to scheduler queue or
457                  * sw queue, meantime we add flush request to dispatch queue(
458                  * hctx->dispatch) directly and there is at most one in-flight
459                  * flush request for each hw queue, so it doesn't matter to add
460                  * flush request to tail or front of the dispatch queue.
461                  *
462                  * Secondly in case of NCQ, flush request belongs to non-NCQ
463                  * command, and queueing it will fail when there is any
464                  * in-flight normal IO request(NCQ command). When adding flush
465                  * rq to the front of hctx->dispatch, it is easier to introduce
466                  * extra time to flush rq's latency because of S_SCHED_RESTART
467                  * compared with adding to the tail of dispatch queue, then
468                  * chance of flush merge is increased, and less flush requests
469                  * will be issued to controller. It is observed that ~10% time
470                  * is saved in blktests block/004 on disk attached to AHCI/NCQ
471                  * drive when adding flush rq to the front of hctx->dispatch.
472                  *
473                  * Simply queue flush rq to the front of hctx->dispatch so that
474                  * intensive flush workloads can benefit in case of NCQ HW.
475                  */
476                 at_head = (rq->rq_flags & RQF_FLUSH_SEQ) ? true : at_head;
477                 blk_mq_request_bypass_insert(rq, at_head, false);
478                 goto run;
479         }
480
481         if (e && e->type->ops.insert_requests) {
482                 LIST_HEAD(list);
483
484                 list_add(&rq->queuelist, &list);
485                 e->type->ops.insert_requests(hctx, &list, at_head);
486         } else {
487                 spin_lock(&ctx->lock);
488                 __blk_mq_insert_request(hctx, rq, at_head);
489                 spin_unlock(&ctx->lock);
490         }
491
492 run:
493         if (run_queue)
494                 blk_mq_run_hw_queue(hctx, async);
495 }
496
497 void blk_mq_sched_insert_requests(struct blk_mq_hw_ctx *hctx,
498                                   struct blk_mq_ctx *ctx,
499                                   struct list_head *list, bool run_queue_async)
500 {
501         struct elevator_queue *e;
502         struct request_queue *q = hctx->queue;
503
504         /*
505          * blk_mq_sched_insert_requests() is called from flush plug
506          * context only, and hold one usage counter to prevent queue
507          * from being released.
508          */
509         percpu_ref_get(&q->q_usage_counter);
510
511         e = hctx->queue->elevator;
512         if (e && e->type->ops.insert_requests)
513                 e->type->ops.insert_requests(hctx, list, false);
514         else {
515                 /*
516                  * try to issue requests directly if the hw queue isn't
517                  * busy in case of 'none' scheduler, and this way may save
518                  * us one extra enqueue & dequeue to sw queue.
519                  */
520                 if (!hctx->dispatch_busy && !e && !run_queue_async) {
521                         blk_mq_try_issue_list_directly(hctx, list);
522                         if (list_empty(list))
523                                 goto out;
524                 }
525                 blk_mq_insert_requests(hctx, ctx, list);
526         }
527
528         blk_mq_run_hw_queue(hctx, run_queue_async);
529  out:
530         percpu_ref_put(&q->q_usage_counter);
531 }
532
533 static void blk_mq_sched_free_tags(struct blk_mq_tag_set *set,
534                                    struct blk_mq_hw_ctx *hctx,
535                                    unsigned int hctx_idx)
536 {
537         if (hctx->sched_tags) {
538                 blk_mq_free_rqs(set, hctx->sched_tags, hctx_idx);
539                 blk_mq_free_rq_map(hctx->sched_tags);
540                 hctx->sched_tags = NULL;
541         }
542 }
543
544 static int blk_mq_sched_alloc_tags(struct request_queue *q,
545                                    struct blk_mq_hw_ctx *hctx,
546                                    unsigned int hctx_idx)
547 {
548         struct blk_mq_tag_set *set = q->tag_set;
549         int ret;
550
551         hctx->sched_tags = blk_mq_alloc_rq_map(set, hctx_idx, q->nr_requests,
552                                                set->reserved_tags);
553         if (!hctx->sched_tags)
554                 return -ENOMEM;
555
556         ret = blk_mq_alloc_rqs(set, hctx->sched_tags, hctx_idx, q->nr_requests);
557         if (ret)
558                 blk_mq_sched_free_tags(set, hctx, hctx_idx);
559
560         return ret;
561 }
562
563 /* called in queue's release handler, tagset has gone away */
564 static void blk_mq_sched_tags_teardown(struct request_queue *q)
565 {
566         struct blk_mq_hw_ctx *hctx;
567         int i;
568
569         queue_for_each_hw_ctx(q, hctx, i) {
570                 if (hctx->sched_tags) {
571                         blk_mq_free_rq_map(hctx->sched_tags);
572                         hctx->sched_tags = NULL;
573                 }
574         }
575 }
576
577 int blk_mq_init_sched(struct request_queue *q, struct elevator_type *e)
578 {
579         struct blk_mq_hw_ctx *hctx;
580         struct elevator_queue *eq;
581         unsigned int i;
582         int ret;
583
584         if (!e) {
585                 q->elevator = NULL;
586                 q->nr_requests = q->tag_set->queue_depth;
587                 return 0;
588         }
589
590         /*
591          * Default to double of smaller one between hw queue_depth and 128,
592          * since we don't split into sync/async like the old code did.
593          * Additionally, this is a per-hw queue depth.
594          */
595         q->nr_requests = 2 * min_t(unsigned int, q->tag_set->queue_depth,
596                                    BLKDEV_MAX_RQ);
597
598         queue_for_each_hw_ctx(q, hctx, i) {
599                 ret = blk_mq_sched_alloc_tags(q, hctx, i);
600                 if (ret)
601                         goto err;
602         }
603
604         ret = e->ops.init_sched(q, e);
605         if (ret)
606                 goto err;
607
608         blk_mq_debugfs_register_sched(q);
609
610         queue_for_each_hw_ctx(q, hctx, i) {
611                 if (e->ops.init_hctx) {
612                         ret = e->ops.init_hctx(hctx, i);
613                         if (ret) {
614                                 eq = q->elevator;
615                                 blk_mq_sched_free_requests(q);
616                                 blk_mq_exit_sched(q, eq);
617                                 kobject_put(&eq->kobj);
618                                 return ret;
619                         }
620                 }
621                 blk_mq_debugfs_register_sched_hctx(q, hctx);
622         }
623
624         return 0;
625
626 err:
627         blk_mq_sched_free_requests(q);
628         blk_mq_sched_tags_teardown(q);
629         q->elevator = NULL;
630         return ret;
631 }
632
633 /*
634  * called in either blk_queue_cleanup or elevator_switch, tagset
635  * is required for freeing requests
636  */
637 void blk_mq_sched_free_requests(struct request_queue *q)
638 {
639         struct blk_mq_hw_ctx *hctx;
640         int i;
641
642         queue_for_each_hw_ctx(q, hctx, i) {
643                 if (hctx->sched_tags)
644                         blk_mq_free_rqs(q->tag_set, hctx->sched_tags, i);
645         }
646 }
647
648 void blk_mq_exit_sched(struct request_queue *q, struct elevator_queue *e)
649 {
650         struct blk_mq_hw_ctx *hctx;
651         unsigned int i;
652
653         queue_for_each_hw_ctx(q, hctx, i) {
654                 blk_mq_debugfs_unregister_sched_hctx(hctx);
655                 if (e->type->ops.exit_hctx && hctx->sched_data) {
656                         e->type->ops.exit_hctx(hctx, i);
657                         hctx->sched_data = NULL;
658                 }
659         }
660         blk_mq_debugfs_unregister_sched(q);
661         if (e->type->ops.exit_sched)
662                 e->type->ops.exit_sched(e);
663         blk_mq_sched_tags_teardown(q);
664         q->elevator = NULL;
665 }