-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathpsci_cpu_off.v
37 lines (33 loc) · 1.13 KB
/
psci_cpu_off.v
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Require Import CodeDeps.
Require Import Ident.
Local Open Scope Z_scope.
Definition _rec := 1%positive.
Definition _rec__1 := 2%positive.
Definition _ret := 3%positive.
Definition _runnable := 4%positive.
Definition psci_cpu_off_body :=
(Ssequence
(Scall None
(Evar _set_psci_result_forward_psci_call (Tfunction (Tcons tuint Tnil)
tvoid cc_default))
((Econst_int (Int.repr 1) tuint) :: nil))
(Ssequence
(Scall None
(Evar _set_rec_runnable (Tfunction
(Tcons (tptr Tvoid)
(Tcons tuint Tnil)) tvoid cc_default))
((Etempvar _rec (tptr Tvoid)) ::
(Econst_int (Int.repr 0) tuint) :: nil))
(Scall None
(Evar _set_psci_result_x0 (Tfunction (Tcons tulong Tnil) tvoid
cc_default))
((Econst_long (Int64.repr 0) tulong) :: nil))))
.
Definition f_psci_cpu_off := {|
fn_return := tvoid;
fn_callconv := cc_default;
fn_params := ((_rec, (tptr Tvoid)) :: nil);
fn_vars := nil;
fn_temps := nil;
fn_body := psci_cpu_off_body
|}.