xref: /openbmc/linux/tools/perf/util/auxtrace.h (revision e2f1cf25)
1 /*
2  * auxtrace.h: AUX area trace support
3  * Copyright (c) 2013-2015, Intel Corporation.
4  *
5  * This program is free software; you can redistribute it and/or modify it
6  * under the terms and conditions of the GNU General Public License,
7  * version 2, as published by the Free Software Foundation.
8  *
9  * This program is distributed in the hope it will be useful, but WITHOUT
10  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
11  * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
12  * more details.
13  *
14  */
15 
16 #ifndef __PERF_AUXTRACE_H
17 #define __PERF_AUXTRACE_H
18 
19 #include <sys/types.h>
20 #include <stdbool.h>
21 #include <stddef.h>
22 #include <linux/list.h>
23 #include <linux/perf_event.h>
24 #include <linux/types.h>
25 
26 #include "../perf.h"
27 #include "event.h"
28 #include "session.h"
29 #include "debug.h"
30 
31 union perf_event;
32 struct perf_session;
33 struct perf_evlist;
34 struct perf_tool;
35 struct option;
36 struct record_opts;
37 struct auxtrace_info_event;
38 struct events_stats;
39 
40 enum auxtrace_type {
41 	PERF_AUXTRACE_UNKNOWN,
42 };
43 
44 enum itrace_period_type {
45 	PERF_ITRACE_PERIOD_INSTRUCTIONS,
46 	PERF_ITRACE_PERIOD_TICKS,
47 	PERF_ITRACE_PERIOD_NANOSECS,
48 };
49 
50 /**
51  * struct itrace_synth_opts - AUX area tracing synthesis options.
52  * @set: indicates whether or not options have been set
53  * @inject: indicates the event (not just the sample) must be fully synthesized
54  *          because 'perf inject' will write it out
55  * @instructions: whether to synthesize 'instructions' events
56  * @branches: whether to synthesize 'branches' events
57  * @transactions: whether to synthesize events for transactions
58  * @errors: whether to synthesize decoder error events
59  * @dont_decode: whether to skip decoding entirely
60  * @log: write a decoding log
61  * @calls: limit branch samples to calls (can be combined with @returns)
62  * @returns: limit branch samples to returns (can be combined with @calls)
63  * @callchain: add callchain to 'instructions' events
64  * @callchain_sz: maximum callchain size
65  * @period: 'instructions' events period
66  * @period_type: 'instructions' events period type
67  */
68 struct itrace_synth_opts {
69 	bool			set;
70 	bool			inject;
71 	bool			instructions;
72 	bool			branches;
73 	bool			transactions;
74 	bool			errors;
75 	bool			dont_decode;
76 	bool			log;
77 	bool			calls;
78 	bool			returns;
79 	bool			callchain;
80 	unsigned int		callchain_sz;
81 	unsigned long long	period;
82 	enum itrace_period_type	period_type;
83 };
84 
85 /**
86  * struct auxtrace_index_entry - indexes a AUX area tracing event within a
87  *                               perf.data file.
88  * @file_offset: offset within the perf.data file
89  * @sz: size of the event
90  */
91 struct auxtrace_index_entry {
92 	u64			file_offset;
93 	u64			sz;
94 };
95 
96 #define PERF_AUXTRACE_INDEX_ENTRY_COUNT 256
97 
98 /**
99  * struct auxtrace_index - index of AUX area tracing events within a perf.data
100  *                         file.
101  * @list: linking a number of arrays of entries
102  * @nr: number of entries
103  * @entries: array of entries
104  */
105 struct auxtrace_index {
106 	struct list_head	list;
107 	size_t			nr;
108 	struct auxtrace_index_entry entries[PERF_AUXTRACE_INDEX_ENTRY_COUNT];
109 };
110 
111 /**
112  * struct auxtrace - session callbacks to allow AUX area data decoding.
113  * @process_event: lets the decoder see all session events
114  * @flush_events: process any remaining data
115  * @free_events: free resources associated with event processing
116  * @free: free resources associated with the session
117  */
118 struct auxtrace {
119 	int (*process_event)(struct perf_session *session,
120 			     union perf_event *event,
121 			     struct perf_sample *sample,
122 			     struct perf_tool *tool);
123 	int (*process_auxtrace_event)(struct perf_session *session,
124 				      union perf_event *event,
125 				      struct perf_tool *tool);
126 	int (*flush_events)(struct perf_session *session,
127 			    struct perf_tool *tool);
128 	void (*free_events)(struct perf_session *session);
129 	void (*free)(struct perf_session *session);
130 };
131 
132 /**
133  * struct auxtrace_buffer - a buffer containing AUX area tracing data.
134  * @list: buffers are queued in a list held by struct auxtrace_queue
135  * @size: size of the buffer in bytes
136  * @pid: in per-thread mode, the pid this buffer is associated with
137  * @tid: in per-thread mode, the tid this buffer is associated with
138  * @cpu: in per-cpu mode, the cpu this buffer is associated with
139  * @data: actual buffer data (can be null if the data has not been loaded)
140  * @data_offset: file offset at which the buffer can be read
141  * @mmap_addr: mmap address at which the buffer can be read
142  * @mmap_size: size of the mmap at @mmap_addr
143  * @data_needs_freeing: @data was malloc'd so free it when it is no longer
144  *                      needed
145  * @consecutive: the original data was split up and this buffer is consecutive
146  *               to the previous buffer
147  * @offset: offset as determined by aux_head / aux_tail members of struct
148  *          perf_event_mmap_page
149  * @reference: an implementation-specific reference determined when the data is
150  *             recorded
151  * @buffer_nr: used to number each buffer
152  * @use_size: implementation actually only uses this number of bytes
153  * @use_data: implementation actually only uses data starting at this address
154  */
155 struct auxtrace_buffer {
156 	struct list_head	list;
157 	size_t			size;
158 	pid_t			pid;
159 	pid_t			tid;
160 	int			cpu;
161 	void			*data;
162 	off_t			data_offset;
163 	void			*mmap_addr;
164 	size_t			mmap_size;
165 	bool			data_needs_freeing;
166 	bool			consecutive;
167 	u64			offset;
168 	u64			reference;
169 	u64			buffer_nr;
170 	size_t			use_size;
171 	void			*use_data;
172 };
173 
174 /**
175  * struct auxtrace_queue - a queue of AUX area tracing data buffers.
176  * @head: head of buffer list
177  * @tid: in per-thread mode, the tid this queue is associated with
178  * @cpu: in per-cpu mode, the cpu this queue is associated with
179  * @set: %true once this queue has been dedicated to a specific thread or cpu
180  * @priv: implementation-specific data
181  */
182 struct auxtrace_queue {
183 	struct list_head	head;
184 	pid_t			tid;
185 	int			cpu;
186 	bool			set;
187 	void			*priv;
188 };
189 
190 /**
191  * struct auxtrace_queues - an array of AUX area tracing queues.
192  * @queue_array: array of queues
193  * @nr_queues: number of queues
194  * @new_data: set whenever new data is queued
195  * @populated: queues have been fully populated using the auxtrace_index
196  * @next_buffer_nr: used to number each buffer
197  */
198 struct auxtrace_queues {
199 	struct auxtrace_queue	*queue_array;
200 	unsigned int		nr_queues;
201 	bool			new_data;
202 	bool			populated;
203 	u64			next_buffer_nr;
204 };
205 
206 /**
207  * struct auxtrace_heap_item - element of struct auxtrace_heap.
208  * @queue_nr: queue number
209  * @ordinal: value used for sorting (lowest ordinal is top of the heap) expected
210  *           to be a timestamp
211  */
212 struct auxtrace_heap_item {
213 	unsigned int		queue_nr;
214 	u64			ordinal;
215 };
216 
217 /**
218  * struct auxtrace_heap - a heap suitable for sorting AUX area tracing queues.
219  * @heap_array: the heap
220  * @heap_cnt: the number of elements in the heap
221  * @heap_sz: maximum number of elements (grows as needed)
222  */
223 struct auxtrace_heap {
224 	struct auxtrace_heap_item	*heap_array;
225 	unsigned int		heap_cnt;
226 	unsigned int		heap_sz;
227 };
228 
229 /**
230  * struct auxtrace_mmap - records an mmap of the auxtrace buffer.
231  * @base: address of mapped area
232  * @userpg: pointer to buffer's perf_event_mmap_page
233  * @mask: %0 if @len is not a power of two, otherwise (@len - %1)
234  * @len: size of mapped area
235  * @prev: previous aux_head
236  * @idx: index of this mmap
237  * @tid: tid for a per-thread mmap (also set if there is only 1 tid on a per-cpu
238  *       mmap) otherwise %0
239  * @cpu: cpu number for a per-cpu mmap otherwise %-1
240  */
241 struct auxtrace_mmap {
242 	void		*base;
243 	void		*userpg;
244 	size_t		mask;
245 	size_t		len;
246 	u64		prev;
247 	int		idx;
248 	pid_t		tid;
249 	int		cpu;
250 };
251 
252 /**
253  * struct auxtrace_mmap_params - parameters to set up struct auxtrace_mmap.
254  * @mask: %0 if @len is not a power of two, otherwise (@len - %1)
255  * @offset: file offset of mapped area
256  * @len: size of mapped area
257  * @prot: mmap memory protection
258  * @idx: index of this mmap
259  * @tid: tid for a per-thread mmap (also set if there is only 1 tid on a per-cpu
260  *       mmap) otherwise %0
261  * @cpu: cpu number for a per-cpu mmap otherwise %-1
262  */
263 struct auxtrace_mmap_params {
264 	size_t		mask;
265 	off_t		offset;
266 	size_t		len;
267 	int		prot;
268 	int		idx;
269 	pid_t		tid;
270 	int		cpu;
271 };
272 
273 /**
274  * struct auxtrace_record - callbacks for recording AUX area data.
275  * @recording_options: validate and process recording options
276  * @info_priv_size: return the size of the private data in auxtrace_info_event
277  * @info_fill: fill-in the private data in auxtrace_info_event
278  * @free: free this auxtrace record structure
279  * @snapshot_start: starting a snapshot
280  * @snapshot_finish: finishing a snapshot
281  * @find_snapshot: find data to snapshot within auxtrace mmap
282  * @parse_snapshot_options: parse snapshot options
283  * @reference: provide a 64-bit reference number for auxtrace_event
284  * @read_finish: called after reading from an auxtrace mmap
285  */
286 struct auxtrace_record {
287 	int (*recording_options)(struct auxtrace_record *itr,
288 				 struct perf_evlist *evlist,
289 				 struct record_opts *opts);
290 	size_t (*info_priv_size)(struct auxtrace_record *itr);
291 	int (*info_fill)(struct auxtrace_record *itr,
292 			 struct perf_session *session,
293 			 struct auxtrace_info_event *auxtrace_info,
294 			 size_t priv_size);
295 	void (*free)(struct auxtrace_record *itr);
296 	int (*snapshot_start)(struct auxtrace_record *itr);
297 	int (*snapshot_finish)(struct auxtrace_record *itr);
298 	int (*find_snapshot)(struct auxtrace_record *itr, int idx,
299 			     struct auxtrace_mmap *mm, unsigned char *data,
300 			     u64 *head, u64 *old);
301 	int (*parse_snapshot_options)(struct auxtrace_record *itr,
302 				      struct record_opts *opts,
303 				      const char *str);
304 	u64 (*reference)(struct auxtrace_record *itr);
305 	int (*read_finish)(struct auxtrace_record *itr, int idx);
306 	unsigned int alignment;
307 };
308 
309 #ifdef HAVE_AUXTRACE_SUPPORT
310 
311 /*
312  * In snapshot mode the mmapped page is read-only which makes using
313  * __sync_val_compare_and_swap() problematic.  However, snapshot mode expects
314  * the buffer is not updated while the snapshot is made (e.g. Intel PT disables
315  * the event) so there is not a race anyway.
316  */
317 static inline u64 auxtrace_mmap__read_snapshot_head(struct auxtrace_mmap *mm)
318 {
319 	struct perf_event_mmap_page *pc = mm->userpg;
320 	u64 head = ACCESS_ONCE(pc->aux_head);
321 
322 	/* Ensure all reads are done after we read the head */
323 	rmb();
324 	return head;
325 }
326 
327 static inline u64 auxtrace_mmap__read_head(struct auxtrace_mmap *mm)
328 {
329 	struct perf_event_mmap_page *pc = mm->userpg;
330 #if BITS_PER_LONG == 64 || !defined(HAVE_SYNC_COMPARE_AND_SWAP_SUPPORT)
331 	u64 head = ACCESS_ONCE(pc->aux_head);
332 #else
333 	u64 head = __sync_val_compare_and_swap(&pc->aux_head, 0, 0);
334 #endif
335 
336 	/* Ensure all reads are done after we read the head */
337 	rmb();
338 	return head;
339 }
340 
341 static inline void auxtrace_mmap__write_tail(struct auxtrace_mmap *mm, u64 tail)
342 {
343 	struct perf_event_mmap_page *pc = mm->userpg;
344 #if BITS_PER_LONG != 64 && defined(HAVE_SYNC_COMPARE_AND_SWAP_SUPPORT)
345 	u64 old_tail;
346 #endif
347 
348 	/* Ensure all reads are done before we write the tail out */
349 	mb();
350 #if BITS_PER_LONG == 64 || !defined(HAVE_SYNC_COMPARE_AND_SWAP_SUPPORT)
351 	pc->aux_tail = tail;
352 #else
353 	do {
354 		old_tail = __sync_val_compare_and_swap(&pc->aux_tail, 0, 0);
355 	} while (!__sync_bool_compare_and_swap(&pc->aux_tail, old_tail, tail));
356 #endif
357 }
358 
359 int auxtrace_mmap__mmap(struct auxtrace_mmap *mm,
360 			struct auxtrace_mmap_params *mp,
361 			void *userpg, int fd);
362 void auxtrace_mmap__munmap(struct auxtrace_mmap *mm);
363 void auxtrace_mmap_params__init(struct auxtrace_mmap_params *mp,
364 				off_t auxtrace_offset,
365 				unsigned int auxtrace_pages,
366 				bool auxtrace_overwrite);
367 void auxtrace_mmap_params__set_idx(struct auxtrace_mmap_params *mp,
368 				   struct perf_evlist *evlist, int idx,
369 				   bool per_cpu);
370 
371 typedef int (*process_auxtrace_t)(struct perf_tool *tool,
372 				  union perf_event *event, void *data1,
373 				  size_t len1, void *data2, size_t len2);
374 
375 int auxtrace_mmap__read(struct auxtrace_mmap *mm, struct auxtrace_record *itr,
376 			struct perf_tool *tool, process_auxtrace_t fn);
377 
378 int auxtrace_mmap__read_snapshot(struct auxtrace_mmap *mm,
379 				 struct auxtrace_record *itr,
380 				 struct perf_tool *tool, process_auxtrace_t fn,
381 				 size_t snapshot_size);
382 
383 int auxtrace_queues__init(struct auxtrace_queues *queues);
384 int auxtrace_queues__add_event(struct auxtrace_queues *queues,
385 			       struct perf_session *session,
386 			       union perf_event *event, off_t data_offset,
387 			       struct auxtrace_buffer **buffer_ptr);
388 void auxtrace_queues__free(struct auxtrace_queues *queues);
389 int auxtrace_queues__process_index(struct auxtrace_queues *queues,
390 				   struct perf_session *session);
391 struct auxtrace_buffer *auxtrace_buffer__next(struct auxtrace_queue *queue,
392 					      struct auxtrace_buffer *buffer);
393 void *auxtrace_buffer__get_data(struct auxtrace_buffer *buffer, int fd);
394 void auxtrace_buffer__put_data(struct auxtrace_buffer *buffer);
395 void auxtrace_buffer__drop_data(struct auxtrace_buffer *buffer);
396 void auxtrace_buffer__free(struct auxtrace_buffer *buffer);
397 
398 int auxtrace_heap__add(struct auxtrace_heap *heap, unsigned int queue_nr,
399 		       u64 ordinal);
400 void auxtrace_heap__pop(struct auxtrace_heap *heap);
401 void auxtrace_heap__free(struct auxtrace_heap *heap);
402 
403 struct auxtrace_cache_entry {
404 	struct hlist_node hash;
405 	u32 key;
406 };
407 
408 struct auxtrace_cache *auxtrace_cache__new(unsigned int bits, size_t entry_size,
409 					   unsigned int limit_percent);
410 void auxtrace_cache__free(struct auxtrace_cache *auxtrace_cache);
411 void *auxtrace_cache__alloc_entry(struct auxtrace_cache *c);
412 void auxtrace_cache__free_entry(struct auxtrace_cache *c, void *entry);
413 int auxtrace_cache__add(struct auxtrace_cache *c, u32 key,
414 			struct auxtrace_cache_entry *entry);
415 void *auxtrace_cache__lookup(struct auxtrace_cache *c, u32 key);
416 
417 struct auxtrace_record *auxtrace_record__init(struct perf_evlist *evlist,
418 					      int *err);
419 
420 int auxtrace_parse_snapshot_options(struct auxtrace_record *itr,
421 				    struct record_opts *opts,
422 				    const char *str);
423 int auxtrace_record__options(struct auxtrace_record *itr,
424 			     struct perf_evlist *evlist,
425 			     struct record_opts *opts);
426 size_t auxtrace_record__info_priv_size(struct auxtrace_record *itr);
427 int auxtrace_record__info_fill(struct auxtrace_record *itr,
428 			       struct perf_session *session,
429 			       struct auxtrace_info_event *auxtrace_info,
430 			       size_t priv_size);
431 void auxtrace_record__free(struct auxtrace_record *itr);
432 int auxtrace_record__snapshot_start(struct auxtrace_record *itr);
433 int auxtrace_record__snapshot_finish(struct auxtrace_record *itr);
434 int auxtrace_record__find_snapshot(struct auxtrace_record *itr, int idx,
435 				   struct auxtrace_mmap *mm,
436 				   unsigned char *data, u64 *head, u64 *old);
437 u64 auxtrace_record__reference(struct auxtrace_record *itr);
438 
439 int auxtrace_index__auxtrace_event(struct list_head *head, union perf_event *event,
440 				   off_t file_offset);
441 int auxtrace_index__write(int fd, struct list_head *head);
442 int auxtrace_index__process(int fd, u64 size, struct perf_session *session,
443 			    bool needs_swap);
444 void auxtrace_index__free(struct list_head *head);
445 
446 void auxtrace_synth_error(struct auxtrace_error_event *auxtrace_error, int type,
447 			  int code, int cpu, pid_t pid, pid_t tid, u64 ip,
448 			  const char *msg);
449 
450 int perf_event__synthesize_auxtrace_info(struct auxtrace_record *itr,
451 					 struct perf_tool *tool,
452 					 struct perf_session *session,
453 					 perf_event__handler_t process);
454 int perf_event__process_auxtrace_info(struct perf_tool *tool,
455 				      union perf_event *event,
456 				      struct perf_session *session);
457 s64 perf_event__process_auxtrace(struct perf_tool *tool,
458 				 union perf_event *event,
459 				 struct perf_session *session);
460 int perf_event__process_auxtrace_error(struct perf_tool *tool,
461 				       union perf_event *event,
462 				       struct perf_session *session);
463 int itrace_parse_synth_opts(const struct option *opt, const char *str,
464 			    int unset);
465 void itrace_synth_opts__set_default(struct itrace_synth_opts *synth_opts);
466 
467 size_t perf_event__fprintf_auxtrace_error(union perf_event *event, FILE *fp);
468 void perf_session__auxtrace_error_inc(struct perf_session *session,
469 				      union perf_event *event);
470 void events_stats__auxtrace_error_warn(const struct events_stats *stats);
471 
472 static inline int auxtrace__process_event(struct perf_session *session,
473 					  union perf_event *event,
474 					  struct perf_sample *sample,
475 					  struct perf_tool *tool)
476 {
477 	if (!session->auxtrace)
478 		return 0;
479 
480 	return session->auxtrace->process_event(session, event, sample, tool);
481 }
482 
483 static inline int auxtrace__flush_events(struct perf_session *session,
484 					 struct perf_tool *tool)
485 {
486 	if (!session->auxtrace)
487 		return 0;
488 
489 	return session->auxtrace->flush_events(session, tool);
490 }
491 
492 static inline void auxtrace__free_events(struct perf_session *session)
493 {
494 	if (!session->auxtrace)
495 		return;
496 
497 	return session->auxtrace->free_events(session);
498 }
499 
500 static inline void auxtrace__free(struct perf_session *session)
501 {
502 	if (!session->auxtrace)
503 		return;
504 
505 	return session->auxtrace->free(session);
506 }
507 
508 #else
509 
510 static inline struct auxtrace_record *
511 auxtrace_record__init(struct perf_evlist *evlist __maybe_unused,
512 		      int *err __maybe_unused)
513 {
514 	*err = 0;
515 	return NULL;
516 }
517 
518 static inline
519 void auxtrace_record__free(struct auxtrace_record *itr __maybe_unused)
520 {
521 }
522 
523 static inline int
524 perf_event__synthesize_auxtrace_info(struct auxtrace_record *itr __maybe_unused,
525 				     struct perf_tool *tool __maybe_unused,
526 				     struct perf_session *session __maybe_unused,
527 				     perf_event__handler_t process __maybe_unused)
528 {
529 	return -EINVAL;
530 }
531 
532 static inline
533 int auxtrace_record__options(struct auxtrace_record *itr __maybe_unused,
534 			     struct perf_evlist *evlist __maybe_unused,
535 			     struct record_opts *opts __maybe_unused)
536 {
537 	return 0;
538 }
539 
540 #define perf_event__process_auxtrace_info		0
541 #define perf_event__process_auxtrace			0
542 #define perf_event__process_auxtrace_error		0
543 
544 static inline
545 void perf_session__auxtrace_error_inc(struct perf_session *session
546 				      __maybe_unused,
547 				      union perf_event *event
548 				      __maybe_unused)
549 {
550 }
551 
552 static inline
553 void events_stats__auxtrace_error_warn(const struct events_stats *stats
554 				       __maybe_unused)
555 {
556 }
557 
558 static inline
559 int itrace_parse_synth_opts(const struct option *opt __maybe_unused,
560 			    const char *str __maybe_unused,
561 			    int unset __maybe_unused)
562 {
563 	pr_err("AUX area tracing not supported\n");
564 	return -EINVAL;
565 }
566 
567 static inline
568 int auxtrace_parse_snapshot_options(struct auxtrace_record *itr __maybe_unused,
569 				    struct record_opts *opts __maybe_unused,
570 				    const char *str)
571 {
572 	if (!str)
573 		return 0;
574 	pr_err("AUX area tracing not supported\n");
575 	return -EINVAL;
576 }
577 
578 static inline
579 int auxtrace__process_event(struct perf_session *session __maybe_unused,
580 			    union perf_event *event __maybe_unused,
581 			    struct perf_sample *sample __maybe_unused,
582 			    struct perf_tool *tool __maybe_unused)
583 {
584 	return 0;
585 }
586 
587 static inline
588 int auxtrace__flush_events(struct perf_session *session __maybe_unused,
589 			   struct perf_tool *tool __maybe_unused)
590 {
591 	return 0;
592 }
593 
594 static inline
595 void auxtrace__free_events(struct perf_session *session __maybe_unused)
596 {
597 }
598 
599 static inline
600 void auxtrace_cache__free(struct auxtrace_cache *auxtrace_cache __maybe_unused)
601 {
602 }
603 
604 static inline
605 void auxtrace__free(struct perf_session *session __maybe_unused)
606 {
607 }
608 
609 static inline
610 int auxtrace_index__write(int fd __maybe_unused,
611 			  struct list_head *head __maybe_unused)
612 {
613 	return -EINVAL;
614 }
615 
616 static inline
617 int auxtrace_index__process(int fd __maybe_unused,
618 			    u64 size __maybe_unused,
619 			    struct perf_session *session __maybe_unused,
620 			    bool needs_swap __maybe_unused)
621 {
622 	return -EINVAL;
623 }
624 
625 static inline
626 void auxtrace_index__free(struct list_head *head __maybe_unused)
627 {
628 }
629 
630 int auxtrace_mmap__mmap(struct auxtrace_mmap *mm,
631 			struct auxtrace_mmap_params *mp,
632 			void *userpg, int fd);
633 void auxtrace_mmap__munmap(struct auxtrace_mmap *mm);
634 void auxtrace_mmap_params__init(struct auxtrace_mmap_params *mp,
635 				off_t auxtrace_offset,
636 				unsigned int auxtrace_pages,
637 				bool auxtrace_overwrite);
638 void auxtrace_mmap_params__set_idx(struct auxtrace_mmap_params *mp,
639 				   struct perf_evlist *evlist, int idx,
640 				   bool per_cpu);
641 
642 #endif
643 
644 #endif
645