2 * Copyright IBM Corp. 2012
3 * Author(s): Jan Glauber <jang@linux.vnet.ibm.com>
6 #include <linux/kernel.h>
7 #include <linux/syscalls.h>
8 #include <linux/signal.h>
10 #include <linux/slab.h>
11 #include <linux/init.h>
12 #include <linux/errno.h>
13 #include <linux/kernel_stat.h>
14 #include <linux/sched/task_stack.h>
16 #include <asm/runtime_instr.h>
17 #include <asm/cpu_mf.h>
20 /* empty control block to disable RI by loading it */
21 struct runtime_instr_cb runtime_instr_empty_cb
;
23 static void disable_runtime_instr(void)
25 struct pt_regs
*regs
= task_pt_regs(current
);
27 load_runtime_instr_cb(&runtime_instr_empty_cb
);
30 * Make sure the RI bit is deleted from the PSW. If the user did not
31 * switch off RI before the system call the process will get a
32 * specification exception otherwise.
34 regs
->psw
.mask
&= ~PSW_MASK_RI
;
37 static void init_runtime_instr_cb(struct runtime_instr_cb
*cb
)
39 cb
->buf_limit
= 0xfff;
41 cb
->pstate_set_buf
= 1;
42 cb
->pstate_sample
= 1;
43 cb
->pstate_collect
= 1;
44 cb
->key
= PAGE_DEFAULT_KEY
;
48 void exit_thread_runtime_instr(void)
50 struct task_struct
*task
= current
;
52 if (!task
->thread
.ri_cb
)
54 disable_runtime_instr();
55 kfree(task
->thread
.ri_cb
);
56 task
->thread
.ri_cb
= NULL
;
59 SYSCALL_DEFINE1(s390_runtime_instr
, int, command
)
61 struct runtime_instr_cb
*cb
;
63 if (!test_facility(64))
66 if (command
== S390_RUNTIME_INSTR_STOP
) {
68 exit_thread_runtime_instr();
73 if (command
!= S390_RUNTIME_INSTR_START
)
76 if (!current
->thread
.ri_cb
) {
77 cb
= kzalloc(sizeof(*cb
), GFP_KERNEL
);
81 cb
= current
->thread
.ri_cb
;
82 memset(cb
, 0, sizeof(*cb
));
85 init_runtime_instr_cb(cb
);
87 /* now load the control block to make it available */
89 current
->thread
.ri_cb
= cb
;
90 load_runtime_instr_cb(cb
);