194b80ffdSSteven Rostedt /* 294b80ffdSSteven Rostedt * unlikely profiler 394b80ffdSSteven Rostedt * 494b80ffdSSteven Rostedt * Copyright (C) 2008 Steven Rostedt <srostedt@redhat.com> 594b80ffdSSteven Rostedt */ 694b80ffdSSteven Rostedt #include <linux/kallsyms.h> 794b80ffdSSteven Rostedt #include <linux/seq_file.h> 894b80ffdSSteven Rostedt #include <linux/spinlock.h> 965c6dc6aSFrederic Weisbecker #include <linux/irqflags.h> 1094b80ffdSSteven Rostedt #include <linux/debugfs.h> 1194b80ffdSSteven Rostedt #include <linux/uaccess.h> 1294b80ffdSSteven Rostedt #include <linux/module.h> 1394b80ffdSSteven Rostedt #include <linux/ftrace.h> 1494b80ffdSSteven Rostedt #include <linux/hash.h> 1594b80ffdSSteven Rostedt #include <linux/fs.h> 1694b80ffdSSteven Rostedt #include <asm/local.h> 17f633cef0SSteven Rostedt 1894b80ffdSSteven Rostedt #include "trace.h" 19002bb86dSFrederic Weisbecker #include "trace_stat.h" 20f633cef0SSteven Rostedt #include "trace_output.h" 2194b80ffdSSteven Rostedt 2294b80ffdSSteven Rostedt #ifdef CONFIG_BRANCH_TRACER 2394b80ffdSSteven Rostedt 24002bb86dSFrederic Weisbecker static struct tracer branch_trace; 2594b80ffdSSteven Rostedt static int branch_tracing_enabled __read_mostly; 2694b80ffdSSteven Rostedt static DEFINE_MUTEX(branch_tracing_mutex); 27e302cf3fSFrederic Weisbecker 2894b80ffdSSteven Rostedt static struct trace_array *branch_tracer; 2994b80ffdSSteven Rostedt 3094b80ffdSSteven Rostedt static void 3194b80ffdSSteven Rostedt probe_likely_condition(struct ftrace_branch_data *f, int val, int expect) 3294b80ffdSSteven Rostedt { 33e1112b4dSTom Zanussi struct ftrace_event_call *call = &event_branch; 3494b80ffdSSteven Rostedt struct trace_array *tr = branch_tracer; 3594b80ffdSSteven Rostedt struct ring_buffer_event *event; 3694b80ffdSSteven Rostedt struct trace_branch *entry; 370a987751SArnaldo Carvalho de Melo unsigned long flags; 3894b80ffdSSteven Rostedt int cpu, pc; 3994b80ffdSSteven Rostedt const char *p; 4094b80ffdSSteven Rostedt 4194b80ffdSSteven Rostedt /* 4294b80ffdSSteven Rostedt * I would love to save just the ftrace_likely_data pointer, but 4394b80ffdSSteven Rostedt * this code can also be used by modules. Ugly things can happen 4494b80ffdSSteven Rostedt * if the module is unloaded, and then we go and read the 4594b80ffdSSteven Rostedt * pointer. This is slower, but much safer. 4694b80ffdSSteven Rostedt */ 4794b80ffdSSteven Rostedt 4894b80ffdSSteven Rostedt if (unlikely(!tr)) 4994b80ffdSSteven Rostedt return; 5094b80ffdSSteven Rostedt 51a5e25883SSteven Rostedt local_irq_save(flags); 5294b80ffdSSteven Rostedt cpu = raw_smp_processor_id(); 5394b80ffdSSteven Rostedt if (atomic_inc_return(&tr->data[cpu]->disabled) != 1) 5494b80ffdSSteven Rostedt goto out; 5594b80ffdSSteven Rostedt 5651a763ddSArnaldo Carvalho de Melo pc = preempt_count(); 5751a763ddSArnaldo Carvalho de Melo event = trace_buffer_lock_reserve(tr, TRACE_BRANCH, 5851a763ddSArnaldo Carvalho de Melo sizeof(*entry), flags, pc); 5994b80ffdSSteven Rostedt if (!event) 6094b80ffdSSteven Rostedt goto out; 6194b80ffdSSteven Rostedt 6294b80ffdSSteven Rostedt entry = ring_buffer_event_data(event); 6394b80ffdSSteven Rostedt 6494b80ffdSSteven Rostedt /* Strip off the path, only save the file */ 6594b80ffdSSteven Rostedt p = f->file + strlen(f->file); 6694b80ffdSSteven Rostedt while (p >= f->file && *p != '/') 6794b80ffdSSteven Rostedt p--; 6894b80ffdSSteven Rostedt p++; 6994b80ffdSSteven Rostedt 7094b80ffdSSteven Rostedt strncpy(entry->func, f->func, TRACE_FUNC_SIZE); 7194b80ffdSSteven Rostedt strncpy(entry->file, p, TRACE_FILE_SIZE); 7294b80ffdSSteven Rostedt entry->func[TRACE_FUNC_SIZE] = 0; 7394b80ffdSSteven Rostedt entry->file[TRACE_FILE_SIZE] = 0; 7494b80ffdSSteven Rostedt entry->line = f->line; 7594b80ffdSSteven Rostedt entry->correct = val == expect; 7694b80ffdSSteven Rostedt 77e1112b4dSTom Zanussi filter_check_discard(call, entry, event); 78e1112b4dSTom Zanussi 790a987751SArnaldo Carvalho de Melo ring_buffer_unlock_commit(tr->buffer, event); 8094b80ffdSSteven Rostedt 8194b80ffdSSteven Rostedt out: 8294b80ffdSSteven Rostedt atomic_dec(&tr->data[cpu]->disabled); 83a5e25883SSteven Rostedt local_irq_restore(flags); 8494b80ffdSSteven Rostedt } 8594b80ffdSSteven Rostedt 8694b80ffdSSteven Rostedt static inline 8794b80ffdSSteven Rostedt void trace_likely_condition(struct ftrace_branch_data *f, int val, int expect) 8894b80ffdSSteven Rostedt { 8994b80ffdSSteven Rostedt if (!branch_tracing_enabled) 9094b80ffdSSteven Rostedt return; 9194b80ffdSSteven Rostedt 9294b80ffdSSteven Rostedt probe_likely_condition(f, val, expect); 9394b80ffdSSteven Rostedt } 9494b80ffdSSteven Rostedt 9594b80ffdSSteven Rostedt int enable_branch_tracing(struct trace_array *tr) 9694b80ffdSSteven Rostedt { 9794b80ffdSSteven Rostedt mutex_lock(&branch_tracing_mutex); 9894b80ffdSSteven Rostedt branch_tracer = tr; 9994b80ffdSSteven Rostedt /* 10094b80ffdSSteven Rostedt * Must be seen before enabling. The reader is a condition 10194b80ffdSSteven Rostedt * where we do not need a matching rmb() 10294b80ffdSSteven Rostedt */ 10394b80ffdSSteven Rostedt smp_wmb(); 10494b80ffdSSteven Rostedt branch_tracing_enabled++; 10594b80ffdSSteven Rostedt mutex_unlock(&branch_tracing_mutex); 10694b80ffdSSteven Rostedt 107f54fc98aSWenji Huang return 0; 10894b80ffdSSteven Rostedt } 10994b80ffdSSteven Rostedt 11094b80ffdSSteven Rostedt void disable_branch_tracing(void) 11194b80ffdSSteven Rostedt { 11294b80ffdSSteven Rostedt mutex_lock(&branch_tracing_mutex); 11394b80ffdSSteven Rostedt 11494b80ffdSSteven Rostedt if (!branch_tracing_enabled) 11594b80ffdSSteven Rostedt goto out_unlock; 11694b80ffdSSteven Rostedt 11794b80ffdSSteven Rostedt branch_tracing_enabled--; 11894b80ffdSSteven Rostedt 11994b80ffdSSteven Rostedt out_unlock: 12094b80ffdSSteven Rostedt mutex_unlock(&branch_tracing_mutex); 12194b80ffdSSteven Rostedt } 12294b80ffdSSteven Rostedt 12394b80ffdSSteven Rostedt static void start_branch_trace(struct trace_array *tr) 12494b80ffdSSteven Rostedt { 12594b80ffdSSteven Rostedt enable_branch_tracing(tr); 12694b80ffdSSteven Rostedt } 12794b80ffdSSteven Rostedt 12894b80ffdSSteven Rostedt static void stop_branch_trace(struct trace_array *tr) 12994b80ffdSSteven Rostedt { 13094b80ffdSSteven Rostedt disable_branch_tracing(); 13194b80ffdSSteven Rostedt } 13294b80ffdSSteven Rostedt 1331c80025aSFrederic Weisbecker static int branch_trace_init(struct trace_array *tr) 13494b80ffdSSteven Rostedt { 13594b80ffdSSteven Rostedt start_branch_trace(tr); 1361c80025aSFrederic Weisbecker return 0; 13794b80ffdSSteven Rostedt } 13894b80ffdSSteven Rostedt 13994b80ffdSSteven Rostedt static void branch_trace_reset(struct trace_array *tr) 14094b80ffdSSteven Rostedt { 14194b80ffdSSteven Rostedt stop_branch_trace(tr); 14294b80ffdSSteven Rostedt } 14394b80ffdSSteven Rostedt 144ae7462b4SArnaldo Carvalho de Melo static enum print_line_t trace_branch_print(struct trace_iterator *iter, 145ae7462b4SArnaldo Carvalho de Melo int flags) 146f633cef0SSteven Rostedt { 147f633cef0SSteven Rostedt struct trace_branch *field; 148f633cef0SSteven Rostedt 1492c9b238eSArnaldo Carvalho de Melo trace_assign_type(field, iter->ent); 150f633cef0SSteven Rostedt 1512c9b238eSArnaldo Carvalho de Melo if (trace_seq_printf(&iter->seq, "[%s] %s:%s:%d\n", 152f633cef0SSteven Rostedt field->correct ? " ok " : " MISS ", 153f633cef0SSteven Rostedt field->func, 154f633cef0SSteven Rostedt field->file, 155f633cef0SSteven Rostedt field->line)) 156f633cef0SSteven Rostedt return TRACE_TYPE_PARTIAL_LINE; 157f633cef0SSteven Rostedt 158d9793bd8SArnaldo Carvalho de Melo return TRACE_TYPE_HANDLED; 159f633cef0SSteven Rostedt } 160f633cef0SSteven Rostedt 161e302cf3fSFrederic Weisbecker 162f633cef0SSteven Rostedt static struct trace_event trace_branch_event = { 163f633cef0SSteven Rostedt .type = TRACE_BRANCH, 164f633cef0SSteven Rostedt .trace = trace_branch_print, 165f633cef0SSteven Rostedt }; 166f633cef0SSteven Rostedt 167002bb86dSFrederic Weisbecker static struct tracer branch_trace __read_mostly = 168002bb86dSFrederic Weisbecker { 169002bb86dSFrederic Weisbecker .name = "branch", 170002bb86dSFrederic Weisbecker .init = branch_trace_init, 171002bb86dSFrederic Weisbecker .reset = branch_trace_reset, 172002bb86dSFrederic Weisbecker #ifdef CONFIG_FTRACE_SELFTEST 173002bb86dSFrederic Weisbecker .selftest = trace_selftest_startup_branch, 174002bb86dSFrederic Weisbecker #endif /* CONFIG_FTRACE_SELFTEST */ 175002bb86dSFrederic Weisbecker }; 176002bb86dSFrederic Weisbecker 177002bb86dSFrederic Weisbecker __init static int init_branch_tracer(void) 178002bb86dSFrederic Weisbecker { 179002bb86dSFrederic Weisbecker int ret; 180002bb86dSFrederic Weisbecker 181002bb86dSFrederic Weisbecker ret = register_ftrace_event(&trace_branch_event); 182002bb86dSFrederic Weisbecker if (!ret) { 183002bb86dSFrederic Weisbecker printk(KERN_WARNING "Warning: could not register " 184002bb86dSFrederic Weisbecker "branch events\n"); 185002bb86dSFrederic Weisbecker return 1; 186002bb86dSFrederic Weisbecker } 187002bb86dSFrederic Weisbecker return register_tracer(&branch_trace); 188002bb86dSFrederic Weisbecker } 189002bb86dSFrederic Weisbecker device_initcall(init_branch_tracer); 190002bb86dSFrederic Weisbecker 19194b80ffdSSteven Rostedt #else 19294b80ffdSSteven Rostedt static inline 19394b80ffdSSteven Rostedt void trace_likely_condition(struct ftrace_branch_data *f, int val, int expect) 19494b80ffdSSteven Rostedt { 19594b80ffdSSteven Rostedt } 19694b80ffdSSteven Rostedt #endif /* CONFIG_BRANCH_TRACER */ 19794b80ffdSSteven Rostedt 19894b80ffdSSteven Rostedt void ftrace_likely_update(struct ftrace_branch_data *f, int val, int expect) 19994b80ffdSSteven Rostedt { 20094b80ffdSSteven Rostedt /* 20194b80ffdSSteven Rostedt * I would love to have a trace point here instead, but the 20294b80ffdSSteven Rostedt * trace point code is so inundated with unlikely and likely 20394b80ffdSSteven Rostedt * conditions that the recursive nightmare that exists is too 20494b80ffdSSteven Rostedt * much to try to get working. At least for now. 20594b80ffdSSteven Rostedt */ 20694b80ffdSSteven Rostedt trace_likely_condition(f, val, expect); 20794b80ffdSSteven Rostedt 20894b80ffdSSteven Rostedt /* FIXME: Make this atomic! */ 20994b80ffdSSteven Rostedt if (val == expect) 21094b80ffdSSteven Rostedt f->correct++; 21194b80ffdSSteven Rostedt else 21294b80ffdSSteven Rostedt f->incorrect++; 21394b80ffdSSteven Rostedt } 21494b80ffdSSteven Rostedt EXPORT_SYMBOL(ftrace_likely_update); 21594b80ffdSSteven Rostedt 216e302cf3fSFrederic Weisbecker extern unsigned long __start_annotated_branch_profile[]; 217e302cf3fSFrederic Weisbecker extern unsigned long __stop_annotated_branch_profile[]; 21894b80ffdSSteven Rostedt 219e302cf3fSFrederic Weisbecker static int annotated_branch_stat_headers(struct seq_file *m) 22094b80ffdSSteven Rostedt { 2212bcd521aSSteven Rostedt seq_printf(m, " correct incorrect %% "); 2222bcd521aSSteven Rostedt seq_printf(m, " Function " 22394b80ffdSSteven Rostedt " File Line\n" 22494b80ffdSSteven Rostedt " ------- --------- - " 22594b80ffdSSteven Rostedt " -------- " 22694b80ffdSSteven Rostedt " ---- ----\n"); 22794b80ffdSSteven Rostedt return 0; 22894b80ffdSSteven Rostedt } 22994b80ffdSSteven Rostedt 230e302cf3fSFrederic Weisbecker static inline long get_incorrect_percent(struct ftrace_branch_data *p) 231e302cf3fSFrederic Weisbecker { 232e302cf3fSFrederic Weisbecker long percent; 233e302cf3fSFrederic Weisbecker 234e302cf3fSFrederic Weisbecker if (p->correct) { 235e302cf3fSFrederic Weisbecker percent = p->incorrect * 100; 236e302cf3fSFrederic Weisbecker percent /= p->correct + p->incorrect; 237e302cf3fSFrederic Weisbecker } else 238e302cf3fSFrederic Weisbecker percent = p->incorrect ? 100 : -1; 239e302cf3fSFrederic Weisbecker 240e302cf3fSFrederic Weisbecker return percent; 241e302cf3fSFrederic Weisbecker } 242e302cf3fSFrederic Weisbecker 243e302cf3fSFrederic Weisbecker static int branch_stat_show(struct seq_file *m, void *v) 244e302cf3fSFrederic Weisbecker { 245e302cf3fSFrederic Weisbecker struct ftrace_branch_data *p = v; 246e302cf3fSFrederic Weisbecker const char *f; 247e302cf3fSFrederic Weisbecker long percent; 248e302cf3fSFrederic Weisbecker 24994b80ffdSSteven Rostedt /* Only print the file, not the path */ 25094b80ffdSSteven Rostedt f = p->file + strlen(p->file); 25194b80ffdSSteven Rostedt while (f >= p->file && *f != '/') 25294b80ffdSSteven Rostedt f--; 25394b80ffdSSteven Rostedt f++; 25494b80ffdSSteven Rostedt 2552bcd521aSSteven Rostedt /* 2562bcd521aSSteven Rostedt * The miss is overlayed on correct, and hit on incorrect. 2572bcd521aSSteven Rostedt */ 258e302cf3fSFrederic Weisbecker percent = get_incorrect_percent(p); 25994b80ffdSSteven Rostedt 260bac28bfeSSteven Rostedt seq_printf(m, "%8lu %8lu ", p->correct, p->incorrect); 261bac28bfeSSteven Rostedt if (percent < 0) 262bac28bfeSSteven Rostedt seq_printf(m, " X "); 263bac28bfeSSteven Rostedt else 264bac28bfeSSteven Rostedt seq_printf(m, "%3ld ", percent); 26594b80ffdSSteven Rostedt seq_printf(m, "%-30.30s %-20.20s %d\n", p->func, f, p->line); 26694b80ffdSSteven Rostedt return 0; 26794b80ffdSSteven Rostedt } 26894b80ffdSSteven Rostedt 26942548008SSteven Rostedt static void *annotated_branch_stat_start(struct tracer_stat *trace) 27094b80ffdSSteven Rostedt { 271e302cf3fSFrederic Weisbecker return __start_annotated_branch_profile; 27294b80ffdSSteven Rostedt } 27394b80ffdSSteven Rostedt 274e302cf3fSFrederic Weisbecker static void * 275e302cf3fSFrederic Weisbecker annotated_branch_stat_next(void *v, int idx) 276e302cf3fSFrederic Weisbecker { 277e302cf3fSFrederic Weisbecker struct ftrace_branch_data *p = v; 278e302cf3fSFrederic Weisbecker 279e302cf3fSFrederic Weisbecker ++p; 280e302cf3fSFrederic Weisbecker 281e302cf3fSFrederic Weisbecker if ((void *)p >= (void *)__stop_annotated_branch_profile) 282e302cf3fSFrederic Weisbecker return NULL; 283e302cf3fSFrederic Weisbecker 284e302cf3fSFrederic Weisbecker return p; 28594b80ffdSSteven Rostedt } 28694b80ffdSSteven Rostedt 287e302cf3fSFrederic Weisbecker static int annotated_branch_stat_cmp(void *p1, void *p2) 28894b80ffdSSteven Rostedt { 289e302cf3fSFrederic Weisbecker struct ftrace_branch_data *a = p1; 290e302cf3fSFrederic Weisbecker struct ftrace_branch_data *b = p2; 29194b80ffdSSteven Rostedt 292e302cf3fSFrederic Weisbecker long percent_a, percent_b; 29394b80ffdSSteven Rostedt 294e302cf3fSFrederic Weisbecker percent_a = get_incorrect_percent(a); 295e302cf3fSFrederic Weisbecker percent_b = get_incorrect_percent(b); 29694b80ffdSSteven Rostedt 297e302cf3fSFrederic Weisbecker if (percent_a < percent_b) 298e302cf3fSFrederic Weisbecker return -1; 299e302cf3fSFrederic Weisbecker if (percent_a > percent_b) 300e302cf3fSFrederic Weisbecker return 1; 301e302cf3fSFrederic Weisbecker else 30294b80ffdSSteven Rostedt return 0; 30394b80ffdSSteven Rostedt } 30494b80ffdSSteven Rostedt 305002bb86dSFrederic Weisbecker static struct tracer_stat annotated_branch_stats = { 306002bb86dSFrederic Weisbecker .name = "branch_annotated", 307002bb86dSFrederic Weisbecker .stat_start = annotated_branch_stat_start, 308002bb86dSFrederic Weisbecker .stat_next = annotated_branch_stat_next, 309002bb86dSFrederic Weisbecker .stat_cmp = annotated_branch_stat_cmp, 310002bb86dSFrederic Weisbecker .stat_headers = annotated_branch_stat_headers, 311002bb86dSFrederic Weisbecker .stat_show = branch_stat_show 312002bb86dSFrederic Weisbecker }; 313002bb86dSFrederic Weisbecker 314002bb86dSFrederic Weisbecker __init static int init_annotated_branch_stats(void) 315002bb86dSFrederic Weisbecker { 316002bb86dSFrederic Weisbecker int ret; 317002bb86dSFrederic Weisbecker 318002bb86dSFrederic Weisbecker ret = register_stat_tracer(&annotated_branch_stats); 319002bb86dSFrederic Weisbecker if (!ret) { 320002bb86dSFrederic Weisbecker printk(KERN_WARNING "Warning: could not register " 321002bb86dSFrederic Weisbecker "annotated branches stats\n"); 322002bb86dSFrederic Weisbecker return 1; 323002bb86dSFrederic Weisbecker } 324002bb86dSFrederic Weisbecker return 0; 325002bb86dSFrederic Weisbecker } 326002bb86dSFrederic Weisbecker fs_initcall(init_annotated_branch_stats); 327002bb86dSFrederic Weisbecker 328e302cf3fSFrederic Weisbecker #ifdef CONFIG_PROFILE_ALL_BRANCHES 329e302cf3fSFrederic Weisbecker 330e302cf3fSFrederic Weisbecker extern unsigned long __start_branch_profile[]; 331e302cf3fSFrederic Weisbecker extern unsigned long __stop_branch_profile[]; 332e302cf3fSFrederic Weisbecker 333e302cf3fSFrederic Weisbecker static int all_branch_stat_headers(struct seq_file *m) 334e302cf3fSFrederic Weisbecker { 335e302cf3fSFrederic Weisbecker seq_printf(m, " miss hit %% "); 336e302cf3fSFrederic Weisbecker seq_printf(m, " Function " 337e302cf3fSFrederic Weisbecker " File Line\n" 338e302cf3fSFrederic Weisbecker " ------- --------- - " 339e302cf3fSFrederic Weisbecker " -------- " 340e302cf3fSFrederic Weisbecker " ---- ----\n"); 341e302cf3fSFrederic Weisbecker return 0; 342e302cf3fSFrederic Weisbecker } 343e302cf3fSFrederic Weisbecker 34442548008SSteven Rostedt static void *all_branch_stat_start(struct tracer_stat *trace) 345e302cf3fSFrederic Weisbecker { 346e302cf3fSFrederic Weisbecker return __start_branch_profile; 347e302cf3fSFrederic Weisbecker } 348e302cf3fSFrederic Weisbecker 349e302cf3fSFrederic Weisbecker static void * 350e302cf3fSFrederic Weisbecker all_branch_stat_next(void *v, int idx) 351e302cf3fSFrederic Weisbecker { 352e302cf3fSFrederic Weisbecker struct ftrace_branch_data *p = v; 353e302cf3fSFrederic Weisbecker 354e302cf3fSFrederic Weisbecker ++p; 355e302cf3fSFrederic Weisbecker 356e302cf3fSFrederic Weisbecker if ((void *)p >= (void *)__stop_branch_profile) 357e302cf3fSFrederic Weisbecker return NULL; 358e302cf3fSFrederic Weisbecker 359e302cf3fSFrederic Weisbecker return p; 360e302cf3fSFrederic Weisbecker } 361e302cf3fSFrederic Weisbecker 362002bb86dSFrederic Weisbecker static struct tracer_stat all_branch_stats = { 363002bb86dSFrederic Weisbecker .name = "branch_all", 364034939b6SFrederic Weisbecker .stat_start = all_branch_stat_start, 365034939b6SFrederic Weisbecker .stat_next = all_branch_stat_next, 366034939b6SFrederic Weisbecker .stat_headers = all_branch_stat_headers, 367002bb86dSFrederic Weisbecker .stat_show = branch_stat_show 368034939b6SFrederic Weisbecker }; 369034939b6SFrederic Weisbecker 370002bb86dSFrederic Weisbecker __init static int all_annotated_branch_stats(void) 371e302cf3fSFrederic Weisbecker { 372e302cf3fSFrederic Weisbecker int ret; 373002bb86dSFrederic Weisbecker 374002bb86dSFrederic Weisbecker ret = register_stat_tracer(&all_branch_stats); 375e302cf3fSFrederic Weisbecker if (!ret) { 376002bb86dSFrederic Weisbecker printk(KERN_WARNING "Warning: could not register " 377002bb86dSFrederic Weisbecker "all branches stats\n"); 378e302cf3fSFrederic Weisbecker return 1; 379e302cf3fSFrederic Weisbecker } 380002bb86dSFrederic Weisbecker return 0; 381e302cf3fSFrederic Weisbecker } 382002bb86dSFrederic Weisbecker fs_initcall(all_annotated_branch_stats); 383002bb86dSFrederic Weisbecker #endif /* CONFIG_PROFILE_ALL_BRANCHES */ 384